/[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 5 by dpavlin, Sat Feb 17 18:06:42 2007 UTC revision 28 by dpavlin, Mon Feb 19 16:28:00 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 24  use Jifty::Action schema { Line 25  use Jifty::Action schema {
25    
26          param feed =>          param feed =>
27                  label is 'From feed',                  label is 'From feed',
28                  render as 'combobox',                  render as 'select',
29                  available are defer {                  available are defer {
30                          my $feeds = Grep::Model::FeedCollection->new;                          my $feeds = Grep::Model::FeedCollection->new;
31                          $feeds->order_by({ column => 'title', order => 'ASC' });                          $feeds->order_by({ column => 'title', order => 'ASC' });
# 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  };  };
49    
50  =head2 take_action  =head2 take_action
# Line 63  sub take_action { Line 71  sub take_action {
71                  return 0;                  return 0;
72          }          }
73    
74          Jifty->log->info("Fetching ", $feed->title, " from ", $feed->uri);          my $uri = $feed->uri;
75            if ($uri =~ m/%s/) {
76                    $uri = $feed->search_uri( $self->argument_value('q') );
77                    Jifty->log->info("Searching ", $feed->title, " at $uri");
78            } else {
79                    Jifty->log->info("Fetching ", $feed->title, " at $uri");
80            }
81    
82            my $ua = LWP::UserAgent->new;
83            $ua->default_header( 'Cookie' => $feed->cookie );
84            my $r = $ua->get( $uri );
85            die $feed->title . " returned " . $r->status_line . " for $uri\n" unless ( $r->is_success );
86    
87            my $content = $r->content;
88    
89            die "No content returned from $uri" unless length( $content ) > 1;
90    
91          my $xml_feed = XML::Feed->parse( URI->new( $feed->uri ) )          my $xml_feed = XML::Feed->parse( \$content )
92                  or die XML::Feed->errstr;                  or die $feed->title, " returned ", XML::Feed->errstr, " for $uri\n";
93    
94            warn "getting entries from ", $xml_feed->title, "\n";
95    
96            my @items;
97    
         warn "fetching ", $xml_feed->title, "\n";  
98          for my $entry ($xml_feed->entries) {          for my $entry ($xml_feed->entries) {
99                  my $i = Grep::Model::Item->new();                  my $i = Grep::Model::Item->new();
100    
# Line 84  sub take_action { Line 110  sub take_action {
110                          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 %z") : undef,
111                  );                  );
112    
113                  Jifty->log->debug("entry = ",dump( $entry ) );                  if ( $i->id ) {
114                            push @items, $i;
115    
116            #               Grep::Event::Result->new( $i )->publish;
117    
118                            Jifty->log->debug("published ", $i->id ) ; # dump( $entry, $i ) );
119                    } else {
120                            warn "can't create item from entry ", dump( $entry ) unless ( $i->id );
121                    }
122    
123          }          }
124    
125      $self->result->message('Success') if not $self->result->failure;          if ( @items ) {
126        
127      return 1;                  $self->result->message( $self->argument_value('q') . ' => ' .
128                            $xml_feed->entries . ' items: ' . join(",", map { $_->id } @items)
129                    );
130    
131                    $self->result->content( items => \@items );
132                    return 1;
133    
134            } else {
135    
136                    $self->result->error( 'No results found' );
137                    return 0;
138    
139            }
140  }  }
141    
142  1;  1;
Legend:
Removed from v.5  
changed lines
  Added in v.28
  ViewVC Help
Powered by ViewVC 1.1.26