/[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 28 by dpavlin, Mon Feb 19 16:28:00 2007 UTC revision 34 by dpavlin, Mon Feb 19 21:57:07 2007 UTC
# Line 45  use Jifty::Action schema { Line 45  use Jifty::Action schema {
45  #               available are qw/result result_short/;  #               available are qw/result result_short/;
46                  available are qw/long short title/;                  available are qw/long short title/;
47    
48            param publish =>
49                    label is 'In which queue?';
50    
51  };  };
52    
53  =head2 take_action  =head2 take_action
54    
55    Returns C<Grep::Model::ItemCollection> of fatched items from Feed which will
56    also be stored in local cache.
57    
58  =cut  =cut
59    
60  sub take_action {  sub take_action {
# Line 58  sub take_action { Line 64  sub take_action {
64    
65          my $feed = Grep::Model::Feed->new();          my $feed = Grep::Model::Feed->new();
66          my $feed_id = $self->argument_value('feed');          my $feed_id = $self->argument_value('feed');
67            my $publish = $self->argument_value('publish');
68            my $q = $self->argument_value('q');
69    
70          if (! $feed_id) {          if (! $feed_id) {
71                  $self->result->message("Need feed ID");                  $self->result->message("Need feed ID");
# Line 73  sub take_action { Line 81  sub take_action {
81    
82          my $uri = $feed->uri;          my $uri = $feed->uri;
83          if ($uri =~ m/%s/) {          if ($uri =~ m/%s/) {
84                  $uri = $feed->search_uri( $self->argument_value('q') );                  $uri = $feed->search_uri( $q );
85                  Jifty->log->info("Searching ", $feed->title, " at $uri");                  Jifty->log->info("Searching ", $feed->title, " at $uri");
86          } else {          } else {
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;
100                    } else {
101                            $self->result->error( $message );
102                            return;
103                    }
104            }
105    
106          my $ua = LWP::UserAgent->new;          my $ua = LWP::UserAgent->new;
107          $ua->default_header( 'Cookie' => $feed->cookie );          $ua->default_header( 'Cookie' => $feed->cookie );
108          my $r = $ua->get( $uri );          my $r = $ua->get( $uri );
109          die $feed->title . " returned " . $r->status_line . " for $uri\n" unless ( $r->is_success );          return abort(
110                    $feed->title . " returned " . $r->status_line . " for $uri\n"
111            ) unless ( $r->is_success );
112    
113          my $content = $r->content;          my $content = $r->content;
114    
115          die "No content returned from $uri" unless length( $content ) > 1;          return abort( "No content returned from $uri" ) unless length( $content ) > 1;
116    
117    
118          my $xml_feed = XML::Feed->parse( \$content )          my $xml_feed = XML::Feed->parse( \$content )
119                  or die $feed->title, " returned ", XML::Feed->errstr, " for $uri\n";                  or return abort( $feed->title, " returned ", XML::Feed->errstr, " for $uri" );
120    
121          warn "getting entries from ", $xml_feed->title, "\n";          warn "getting entries from ", $xml_feed->title, "\n";
122    
         my @items;  
   
123          for my $entry ($xml_feed->entries) {          for my $entry ($xml_feed->entries) {
124                  my $i = Grep::Model::Item->new();                  my $i = Grep::Model::Item->new();
125    
# Line 106  sub take_action { Line 131  sub take_action {
131                          summary => $entry->summary->body,                          summary => $entry->summary->body,
132                          category => $entry->category,                          category => $entry->category,
133                          author => $entry->author,                          author => $entry->author,
134                          issued => $entry->issued ? $entry->issued->strftime("%Y-%m-%d %H:%M:%S %z") : undef,                          issued => $entry->issued ? $entry->issued->strftime("%Y-%m-%d %H:%M:%S") : undef,
135                          modified => $entry->modified ? $entry->modified->strftime("%Y-%m-%d %H:%M:%S %z") : undef,                          modified => $entry->modified ? $entry->modified->strftime("%Y-%m-%d %H:%M:%S") : undef,
136                  );                  );
137    
138                  if ( $i->id ) {                  if ( $i->id ) {
139                          push @items, $i;                          $items->add_record( $i );
140    
141          #               Grep::Event::Result->new( $i )->publish;                          Jifty->log->debug("added ", $i->id, " to collection");
   
                         Jifty->log->debug("published ", $i->id ) ; # dump( $entry, $i ) );  
142                  } else {                  } else {
143                          warn "can't create item from entry ", dump( $entry ) unless ( $i->id );                          warn "can't add entry ", dump( $entry ) unless ( $i->id );
144                  }                  }
145    
146          }          }
147    
148          if ( @items ) {          if ( my $count = $items->count ) {
149    
150                  $self->result->message( $self->argument_value('q') . ' => ' .                  my $message = "$count results for '$q' in " . $feed->title;
                         $xml_feed->entries . ' items: ' . join(",", map { $_->id } @items)  
                 );  
151    
152                  $self->result->content( items => \@items );                  $self->result->message( $message );
                 return 1;  
153    
154          } else {                  if ( $publish ) {
155                            Grep::Event::Result->new({
156                  $self->result->error( 'No results found' );                                  q => $q, coll => $items,
157                  return 0;                                  item_fragment => $self->argument_value('item_fragment'),
158                                    message => $message, class => 'message',
159                            })->publish;
160                            Jifty->log->debug( $items->count, " for '$q' published" );
161                    } else {
162                            $self->result->content( items => $items );
163                            Jifty->log->debug( $items->count, " for '$q' found" );
164                    }
165    
166            } else {
167                    return abort( "No results for '$q' in " . $feed->title );
168          }          }
169    
170            return $items;
171  }  }
172    
173  1;  1;
Legend:
Removed from v.28  
changed lines
  Added in v.34
  ViewVC Help
Powered by ViewVC 1.1.26