/[Grep]/lib/Grep/Model/Item.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/Grep/Model/Item.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 70 by dpavlin, Thu Feb 22 17:59:56 2007 UTC revision 178 by dpavlin, Mon Sep 3 16:05:38 2007 UTC
# Line 10  use Grep::Record schema { Line 10  use Grep::Record schema {
10    
11          column in_feed =>          column in_feed =>
12                  refers_to Grep::Model::Feed by 'id',                  refers_to Grep::Model::Feed by 'id',
13                    is indexed,
14                  is mandatory;                  is mandatory;
15                    
16          column title =>          column title =>
# Line 18  use Grep::Record schema { Line 19  use Grep::Record schema {
19                    
20          column link =>          column link =>
21                  type is 'text',                  type is 'text',
22                    is distinct,
23                    is indexed,
24                  is mandatory;                  is mandatory;
25                    
26          column content =>          column content =>
# Line 33  use Grep::Record schema { Line 36  use Grep::Record schema {
36          column author =>          column author =>
37                  type is 'text';                  type is 'text';
38    
39          column issued =>          column created_on =>
40                  type is 'timestamp',                  type is 'timestamp',
41                    default is defer { DateTime->now },
42                  filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime );                  filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime );
43    
44          column modified =>          column last_update =>
45                  type is 'timestamp',                  type is 'timestamp',
46                    default is defer { DateTime->now },
47                  filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime );                  filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime );
48    
49  };  };
# Line 53  sub current_user_can { Line 58  sub current_user_can {
58    
59          my $uid = Jifty->web->current_user->id;          my $uid = Jifty->web->current_user->id;
60    
61            # superuser
62            return 1 if ( defined $uid && $uid == 0 );
63    
64          return 1 if ( $uid && $what eq 'create' );          return 1 if ( $uid && $what eq 'create' );
65    
66          return 1 if ( $uid && ! $self->id );          return 1 if ( $uid && ! $self->id );
# Line 61  sub current_user_can { Line 69  sub current_user_can {
69    
70  #       Jifty->log->debug("current_user[$uid]_can($what) on Item ", $self->id || '???', " owner ", $owner_id || '???');  #       Jifty->log->debug("current_user[$uid]_can($what) on Item ", $self->id || '???', " owner ", $owner_id || '???');
71    
72          return 1 if ( $uid == $owner_id );          return 1 if ( $uid && $owner_id && $uid == $owner_id );
73    
74            # system user
75            return 1 if ( defined( $uid ) && $uid == 0 );
76    
77            warn "$uid can't $what";
78    }
79    
80    sub _set {
81            my $self = shift;
82            my ($val, $msg) = $self->SUPER::_set(@_);
83    
84            $self->SUPER::_set(column => 'last_update', value => defer { DateTime->now });
85    
86            return ($val, $msg);
87    }
88    
89    =head2 link_current
90    
91      my $item = Grep::Model::Item->link_currnet( 'http://www.example.com' )
92      my $item = $item->link_current( 'http://www.example.com' );
93    
94    =cut
95    
96    my $update_every_hr = 24; # s
97    
98    sub link_current {
99            my $self = shift;
100            my $uri = shift || die "no uri?";
101    
102            my $item = $self;
103            if ( ! ref($self) || ! $self->link || ( $self->link && $self->link ne $uri ) ) {
104                    $item = Grep::Model::Item->new;
105                    #warn "load_by_cols link => $uri";
106                    $item->load_by_cols( link => $uri );
107                    return $item if $item->id;
108                    return 0;
109            }
110    
111            return 0 unless ( $item );
112    
113            die "item is not Grep::Model::Item, but ", ref( $item ) unless ref( $item ) eq 'Grep::Model::Item';
114    
115            my $last_update = $item->last_update || $item->created_on; # fallback
116            return 0 unless defined( $last_update ) && $last_update;
117    
118            my $newer_than = DateTime->now->subtract( hours => $update_every_hr );
119            #warn "$last_update > $newer_than";
120            return 0 if ( $last_update - $newer_than )->is_negative;
121            return $item;
122  }  }
123    
124  1;  1;
Legend:
Removed from v.70  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.26