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 |
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 |
|
|