/[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 29 by dpavlin, Mon Feb 19 18:25:12 2007 UTC revision 33 by dpavlin, Mon Feb 19 21:26:30 2007 UTC
# Line 87  sub take_action { Line 87  sub take_action {
87                  Jifty->log->info("Fetching ", $feed->title, " at $uri");                  Jifty->log->info("Fetching ", $feed->title, " at $uri");
88          }          }
89    
90            my $items = Grep::Model::ItemCollection->new();
91    
92            sub abort {
93                    my $message = join(" ", @_);
94                    if ( $publish ) {
95                            Grep::Event::Result->new({
96                                    q => $q, coll => $items,
97                                    message => $message, class => 'error',
98                            })->publish;
99                            return 0;
100                    } else {
101                            $self->result->error( $message );
102                            return 0;
103                    }
104            }
105          my $ua = LWP::UserAgent->new;          my $ua = LWP::UserAgent->new;
106          $ua->default_header( 'Cookie' => $feed->cookie );          $ua->default_header( 'Cookie' => $feed->cookie );
107          my $r = $ua->get( $uri );          my $r = $ua->get( $uri );
108          die $feed->title . " returned " . $r->status_line . " for $uri\n" unless ( $r->is_success );          return abort(
109                    $feed->title . " returned " . $r->status_line . " for $uri\n"
110            ) unless ( $r->is_success );
111    
112          my $content = $r->content;          my $content = $r->content;
113    
114          die "No content returned from $uri" unless length( $content ) > 1;          return abort( "No content returned from $uri" ) unless length( $content ) > 1;
115    
116    
117          my $xml_feed = XML::Feed->parse( \$content )          my $xml_feed = XML::Feed->parse( \$content )
118                  or die $feed->title, " returned ", XML::Feed->errstr, " for $uri\n";                  or return abort( $feed->title, " returned ", XML::Feed->errstr, " for $uri" );
119    
120          warn "getting entries from ", $xml_feed->title, "\n";          warn "getting entries from ", $xml_feed->title, "\n";
121    
         my $items = Grep::Model::ItemCollection->new();  
   
122          for my $entry ($xml_feed->entries) {          for my $entry ($xml_feed->entries) {
123                  my $i = Grep::Model::Item->new();                  my $i = Grep::Model::Item->new();
124    
# Line 128  sub take_action { Line 144  sub take_action {
144    
145          }          }
146    
147          if ( $items ) {          if ( my $count = $items->count ) {
148    
149                  $self->result->message( $q . ' => ' . $xml_feed->entries . ' results' );                  my $message = "$count results for '$q' in " . $feed->title;
150    
151                    $self->result->message( $message );
152    
153                  if ( $publish ) {                  if ( $publish ) {
154                          Grep::Event::Result->new({ q => $q, coll => $items, item_fragment => 'title' })->publish;                          Grep::Event::Result->new({
155                                    q => $q, coll => $items,
156                                    item_fragment => $self->argument_value('item_fragment'),
157                                    message => $message, class => 'message',
158                            })->publish;
159                          Jifty->log->debug( $items->count, " for '$q' published" );                          Jifty->log->debug( $items->count, " for '$q' published" );
160                  } else {                  } else {
161                          $self->result->content( items => $items );                          $self->result->content( items => $items );
# Line 141  sub take_action { Line 163  sub take_action {
163                  }                  }
164    
165          } else {          } else {
166                    return abort( "No results for '$q' in ' . $feed->title );
                 $self->result->error( 'No results found' );  
   
167          }          }
168    
169          return $items;          return $items;
Legend:
Removed from v.29  
changed lines
  Added in v.33
  ViewVC Help
Powered by ViewVC 1.1.26