/[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 7 by dpavlin, Sat Feb 17 21:22:17 2007 UTC revision 30 by dpavlin, Mon Feb 19 20:07:48 2007 UTC
# Line 11  package Grep::Action::Fetch; Line 11  package Grep::Action::Fetch;
11  use base qw/Grep::Action Jifty::Action/;  use base qw/Grep::Action Jifty::Action/;
12    
13  use XML::Feed;  use XML::Feed;
14    use LWP::UserAgent;
15    
16  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
17    
# Line 37  use Jifty::Action schema { Line 38  use Jifty::Action schema {
38                          }];                          }];
39                  };                  };
40    
41            param item_fragment =>
42                    label is 'Show',
43                    render as 'select',
44    #               valid are qw/result result_short/,
45    #               available are qw/result result_short/;
46                    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 50  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 65  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 = sprintf( $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 $xml_feed = XML::Feed->parse( URI->new($uri) )          my $ua = LWP::UserAgent->new;
91                  or die XML::Feed->errstr;          $ua->default_header( 'Cookie' => $feed->cookie );
92            my $r = $ua->get( $uri );
93            die $feed->title . " returned " . $r->status_line . " for $uri\n" unless ( $r->is_success );
94    
95            my $content = $r->content;
96    
97            die "No content returned from $uri" unless length( $content ) > 1;
98    
99          warn "fetching ", $xml_feed->title, "\n";          my $xml_feed = XML::Feed->parse( \$content )
100                    or die $feed->title, " returned ", XML::Feed->errstr, " for $uri\n";
101    
102          my @results;          warn "getting entries from ", $xml_feed->title, "\n";
103    
104            my $items = Grep::Model::ItemCollection->new();
105    
106          for my $entry ($xml_feed->entries) {          for my $entry ($xml_feed->entries) {
107                  my $i = Grep::Model::Item->new();                  my $i = Grep::Model::Item->new();
# Line 89  sub take_action { Line 114  sub take_action {
114                          summary => $entry->summary->body,                          summary => $entry->summary->body,
115                          category => $entry->category,                          category => $entry->category,
116                          author => $entry->author,                          author => $entry->author,
117                          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,
118                          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,
119                  );                  );
120    
121                  die "can't create item from entry ", dump( $entry ) unless ( $i->id );                  if ( $i->id ) {
122                            $items->add_record( $i );
123    
124                  push @results, $i->id;                          Jifty->log->debug("added ", $i->id, " to collection");
125                    } else {
126                            warn "can't add entry ", dump( $entry ) unless ( $i->id );
127                    }
128    
                 Jifty->log->debug("item ", $i->id, " = ",dump( $entry ) );  
129          }          }
130    
131          if ( @results ) {          if ( $items ) {
132    
133                  $self->result->message( $self->argument_value('q') . ' => ' .                  $self->result->message( $q . ' => ' . $xml_feed->entries . ' results' );
                         $xml_feed->entries . ' items: ' . join(",", @results)  
                 );  
134    
135                  $self->result->content( results => \@results );                  if ( $publish ) {
136                  return 1;                          Grep::Event::Result->new({
137                                    q => $q, coll => $items,
138                                    item_fragment => $self->argument_value('item_fragment'),
139                            })->publish;
140                            Jifty->log->debug( $items->count, " for '$q' published" );
141                    } else {
142                            $self->result->content( items => $items );
143                            Jifty->log->debug( $items->count, " for '$q' found" );
144                    }
145    
146          } else {          } else {
147    
148                  $self->result->message( 'No results for ' . $self->argument_value('q') );                  $self->result->error( 'No results found' );
149                  return 0;  
150          }          }
151    
152            return $items;
153  }  }
154    
155  1;  1;
Legend:
Removed from v.7  
changed lines
  Added in v.30
  ViewVC Help
Powered by ViewVC 1.1.26