/[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 43 by dpavlin, Tue Feb 20 16:26:56 2007 UTC revision 44 by dpavlin, Tue Feb 20 21:55:24 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    
         param publish =>  
                 label is 'In which queue?';  
   
48  };  };
49    
50  =head2 take_action  =head2 take_action
# Line 64  sub take_action { Line 61  sub take_action {
61    
62          my $feed = Grep::Model::Feed->new();          my $feed = Grep::Model::Feed->new();
63          my $feed_id = $self->argument_value('feed');          my $feed_id = $self->argument_value('feed');
         my $publish = $self->argument_value('publish');  
64          my $q = $self->argument_value('q');          my $q = $self->argument_value('q');
65          my $user_id = Jifty->web->current_user->id;          my $user_id = Jifty->web->current_user->id;
66    
# Line 88  sub take_action { Line 84  sub take_action {
84          } else {          } else {
85                  $message = 'Fetching';                  $message = 'Fetching';
86          }          }
87          $message .= ' ' . ( $publish ? "and publishing for $user_id" : '' ) . ' ' . $feed->title . " at $uri";          $message .= ' ' . $feed->title . " at $uri";
88    
89          Jifty->log->info( $message );          Jifty->log->info( $message );
90    
# Line 97  sub take_action { Line 93  sub take_action {
93          my $ua = LWP::UserAgent->new;          my $ua = LWP::UserAgent->new;
94          $ua->default_header( 'Cookie' => $feed->cookie );          $ua->default_header( 'Cookie' => $feed->cookie );
95          my $r = $ua->get( $uri );          my $r = $ua->get( $uri );
96          return $self->abort(          return $self->result->error(
97                  $feed->title . " returned " . $r->status_line . " for $uri\n"                  $feed->title . " returned " . $r->status_line . " for $uri\n"
98          ) unless ( $r->is_success );          ) unless ( $r->is_success );
99    
100          my $content = $r->content;          my $content = $r->content;
101    
102          return $self->abort( "No content returned from $uri" ) unless length( $content ) > 1;          return $self->result->error( "No content returned from $uri" ) unless length( $content ) > 1;
103    
104    
105          my $xml_feed = XML::Feed->parse( \$content )          my $xml_feed = XML::Feed->parse( \$content )
106                  or return $self->abort( $feed->title, " returned ", XML::Feed->errstr, " for $uri" );                  or return $self->result->error( $feed->title, " returned ", XML::Feed->errstr, " for $uri" );
107    
108          warn "getting entries from ", $xml_feed->title, "\n";          warn "getting entries from ", $xml_feed->title, "\n";
109    
# Line 142  sub take_action { Line 138  sub take_action {
138    
139                  $self->result->message( $message );                  $self->result->message( $message );
140    
141                  if ( $publish ) {                  $self->result->content( items => $items );
                         Grep::Event::Result->new({  
                                 q => $q, coll => $items,  
                                 item_fragment => $self->argument_value('item_fragment'),  
                                 message => $message, class => 'message',  
                                 user_id => $user_id,  
                         })->publish;  
                         Jifty->log->debug( "$count published for user $user_id for '$q'" );  
                 } else {  
                         $self->result->content( items => $items );  
                         Jifty->log->debug( "$count found for user $user_id for '$q'" );  
                 }  
142                  $self->result->content( count => $items->count );                  $self->result->content( count => $items->count );
143    
144          } else {          } else {
145                  return $self->abort( "No results for '$q' in " . $feed->title );                  return $self->result->error( "No results for '$q' in " . $feed->title );
146          }          }
147    
148          return $items;          return $items;
149  }  }
150    
 =head2 abort  
   
 Abort action with error message which support publish or normal messages  
   
 =cut  
   
 sub abort {  
         my $self = shift;  
   
         my $message = join(" ", @_);  
   
         my $publish = $self->argument_value('publish');  
         my $q = $self->argument_value('q');  
         my $user_id = Jifty->web->current_user->id;  
   
         Jifty->log->debug("ABORT: $message", $publish ? " for $user_id" : '');  
   
         if ( $publish ) {  
                 Grep::Event::Result->new({  
                         q => $q, coll => Grep::Model::ItemCollection->new(),  
                         message => $message, class => 'error',  
                         user_id => $user_id,  
                 })->publish;  
                 return;  
         } else {  
                 $self->result->error( $message );  
                 return;  
         }  
 }  
   
151  1;  1;
152    
Legend:
Removed from v.43  
changed lines
  Added in v.44
  ViewVC Help
Powered by ViewVC 1.1.26