/[Grep]/lib/Grep/Action/Fetch.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/Action/Fetch.pm

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

revision 42 by dpavlin, Tue Feb 20 12:26:14 2007 UTC revision 43 by dpavlin, Tue Feb 20 16:26:56 2007 UTC
# Line 66  sub take_action { Line 66  sub take_action {
66          my $feed_id = $self->argument_value('feed');          my $feed_id = $self->argument_value('feed');
67          my $publish = $self->argument_value('publish');          my $publish = $self->argument_value('publish');
68          my $q = $self->argument_value('q');          my $q = $self->argument_value('q');
69            my $user_id = Jifty->web->current_user->id;
70    
71          if (! $feed_id) {          if (! $feed_id) {
72                  $self->result->message("Need feed ID");                  $self->result->message("Need feed ID");
# Line 79  sub take_action { Line 80  sub take_action {
80                  return 0;                  return 0;
81          }          }
82    
83            my $message;
84          my $uri = $feed->uri;          my $uri = $feed->uri;
85          if ($uri =~ m/%s/) {          if ($uri =~ m/%s/) {
86                  $uri = $feed->search_uri( $q );                  $uri = $feed->search_uri( $q );
87                  Jifty->log->info("Searching ", $feed->title, " at $uri");                  $message = 'Searching';
88          } else {          } else {
89                  Jifty->log->info("Fetching ", $feed->title, " at $uri");                  $message = 'Fetching';
90          }          }
91            $message .= ' ' . ( $publish ? "and publishing for $user_id" : '' ) . ' ' . $feed->title . " at $uri";
92    
93          my $items = Grep::Model::ItemCollection->new();          Jifty->log->info( $message );
94    
95          sub abort {          my $items = Grep::Model::ItemCollection->new();
                 my $message = join(" ", @_);  
                 if ( $publish ) {  
                         Grep::Event::Result->new({  
                                 q => $q, coll => $items,  
                                 message => $message, class => 'error',  
                         })->publish;  
                         return;  
                 } else {  
                         $self->result->error( $message );  
                         return;  
                 }  
         }  
96    
97          my $ua = LWP::UserAgent->new;          my $ua = LWP::UserAgent->new;
98          $ua->default_header( 'Cookie' => $feed->cookie );          $ua->default_header( 'Cookie' => $feed->cookie );
99          my $r = $ua->get( $uri );          my $r = $ua->get( $uri );
100          return abort(          return $self->abort(
101                  $feed->title . " returned " . $r->status_line . " for $uri\n"                  $feed->title . " returned " . $r->status_line . " for $uri\n"
102          ) unless ( $r->is_success );          ) unless ( $r->is_success );
103    
104          my $content = $r->content;          my $content = $r->content;
105    
106          return abort( "No content returned from $uri" ) unless length( $content ) > 1;          return $self->abort( "No content returned from $uri" ) unless length( $content ) > 1;
107    
108    
109          my $xml_feed = XML::Feed->parse( \$content )          my $xml_feed = XML::Feed->parse( \$content )
110                  or return abort( $feed->title, " returned ", XML::Feed->errstr, " for $uri" );                  or return $self->abort( $feed->title, " returned ", XML::Feed->errstr, " for $uri" );
111    
112          warn "getting entries from ", $xml_feed->title, "\n";          warn "getting entries from ", $xml_feed->title, "\n";
113    
# Line 156  sub take_action { Line 147  sub take_action {
147                                  q => $q, coll => $items,                                  q => $q, coll => $items,
148                                  item_fragment => $self->argument_value('item_fragment'),                                  item_fragment => $self->argument_value('item_fragment'),
149                                  message => $message, class => 'message',                                  message => $message, class => 'message',
150                                    user_id => $user_id,
151                          })->publish;                          })->publish;
152                          Jifty->log->debug( "$count items published for '$q'" );                          Jifty->log->debug( "$count published for user $user_id for '$q'" );
153                  } else {                  } else {
154                          $self->result->content( items => $items );                          $self->result->content( items => $items );
155                          Jifty->log->debug( "$count items for '$q' found" );                          Jifty->log->debug( "$count found for user $user_id for '$q'" );
156                  }                  }
157                  $self->result->content( count => $items->count );                  $self->result->content( count => $items->count );
158    
159          } else {          } else {
160                  return abort( "No results for '$q' in " . $feed->title );                  return $self->abort( "No results for '$q' in " . $feed->title );
161          }          }
162    
163          return $items;          return $items;
164  }  }
165    
166    =head2 abort
167    
168    Abort action with error message which support publish or normal messages
169    
170    =cut
171    
172    sub abort {
173            my $self = shift;
174    
175            my $message = join(" ", @_);
176    
177            my $publish = $self->argument_value('publish');
178            my $q = $self->argument_value('q');
179            my $user_id = Jifty->web->current_user->id;
180    
181            Jifty->log->debug("ABORT: $message", $publish ? " for $user_id" : '');
182    
183            if ( $publish ) {
184                    Grep::Event::Result->new({
185                            q => $q, coll => Grep::Model::ItemCollection->new(),
186                            message => $message, class => 'error',
187                            user_id => $user_id,
188                    })->publish;
189                    return;
190            } else {
191                    $self->result->error( $message );
192                    return;
193            }
194    }
195    
196  1;  1;
197    
Legend:
Removed from v.42  
changed lines
  Added in v.43
  ViewVC Help
Powered by ViewVC 1.1.26