/[Grep]/lib/Grep/Model/Feed.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/Feed.pm

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

revision 120 by dpavlin, Mon Apr 9 19:23:05 2007 UTC revision 166 by dpavlin, Wed Jul 4 08:58:51 2007 UTC
# Line 69  sub search_uri { Line 69  sub search_uri {
69          my $search = shift;          my $search = shift;
70    
71          my $uri = $self->uri or die "no uri?";          my $uri = $self->uri or die "no uri?";
72            $uri =~ s/^https:/http:/;
73          $uri =~ s/\Q|!|\E/;/g;          $uri =~ s/\Q|!|\E/;/g;
74          $uri =~ s/{x!(26|3b)}/chr(hex($1))/gei;          $uri =~ s/{x!(26|3b)}/chr(hex($1))/gei;
75          return sprintf( $uri, $search );          return sprintf( $uri, $search );
76  }  }
77    
78    =head2 home_page_uri
79    
80      print $feed->home_page_uri
81    
82    Try to strip search arguments from C<uri> and construct home page URI
83    
84    =cut
85    
86    sub home_page_uri {
87            my $self = shift;
88            my $uri = $self->search_uri('foo');
89            $uri =~ s/\?.*$//g;
90            return $uri;
91    }
92    
93    
94  sub current_user_can {  sub current_user_can {
95          my $self = shift;          my $self = shift;
# Line 81  sub current_user_can { Line 97  sub current_user_can {
97    
98          my $uid = Jifty->web->current_user->id;          my $uid = Jifty->web->current_user->id;
99    
100            # superuser
101            return 1 if ( defined $uid && $uid == 0 );
102    
103          return 1 if ( $uid && $what eq 'create' );          return 1 if ( $uid && $what eq 'create' );
104    
105          return 1 if ( $uid && ! $self->id );          return 1 if ( $uid && ! $self->id );
106    
 #       Jifty->log->debug("current_user[$uid]_can($what) on Feed ", $self->id || '???', " owner ", $self->owner->id || '???');  
   
107          return 1 if ( $uid && $uid == $self->owner->id );          return 1 if ( $uid && $uid == $self->owner->id );
108    
109            warn "$uid can't $what";
110  }  }
111    
112  1;  1;
Legend:
Removed from v.120  
changed lines
  Added in v.166
  ViewVC Help
Powered by ViewVC 1.1.26