/[Grep]/lib/Grep/Action/AddFeed.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/AddFeed.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 85 by dpavlin, Fri Feb 23 18:09:19 2007 UTC revision 86 by dpavlin, Fri Feb 23 21:16:44 2007 UTC
# Line 12  use base qw/Grep::Action::CreateFeed/; Line 12  use base qw/Grep::Action::CreateFeed/;
12    
13  use Feed::Find;  use Feed::Find;
14  use LWP::UserAgent;  use LWP::UserAgent;
15    
16  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
17    
18  =head2 canonicalize_uri  =head2 canonicalize_uri
# Line 89  sub take_action { Line 90  sub take_action {
90          Jifty->log->debug("got ", length( $content ), " bytes $ct");          Jifty->log->debug("got ", length( $content ), " bytes $ct");
91    
92          if ( $ct =~ /xml/ ) {          if ( $ct =~ /xml/ ) {
93                    Grep::Source->save( 'addfeed.xml', $content );
94                  $self->result->message( "Assuming $uri is feed from $ct" );                  $self->result->message( "Assuming $uri is feed from $ct" );
95                  return $self->SUPER::take_action( @ARGS );                  return $self->SUPER::take_action( @ARGS );
96          }          }
97    
98            Grep::Source->save( 'addfeed.html', $content );
99    
100          my $base_uri = $uri;          my $base_uri = $uri;
101          $base_uri =~ s!/[^/]+$!!;          $base_uri =~ s!/[^/]+$!!;
102    
Legend:
Removed from v.85  
changed lines
  Added in v.86
  ViewVC Help
Powered by ViewVC 1.1.26