65 |
|
|
66 |
my $uri = $feed->uri; |
my $uri = $feed->uri; |
67 |
if ($uri =~ m/%s/) { |
if ($uri =~ m/%s/) { |
68 |
$uri = sprintf( $uri, $self->argument_value('q') ); |
$uri = $feed->search_uri( $self->argument_value('q') ); |
69 |
Jifty->log->info("Searching ", $feed->title, " at $uri"); |
Jifty->log->info("Searching ", $feed->title, " at $uri"); |
70 |
} else { |
} else { |
71 |
Jifty->log->info("Fetching ", $feed->title, " at $uri"); |
Jifty->log->info("Fetching ", $feed->title, " at $uri"); |
72 |
} |
} |
73 |
|
|
74 |
my $xml_feed = XML::Feed->parse( URI->new($uri) ) |
my $xml_feed = XML::Feed->parse( URI->new($uri) ) |
75 |
or die XML::Feed->errstr; |
or die $feed->title, " returned ", XML::Feed->errstr, " for $uri\n"; |
76 |
|
|
77 |
warn "fetching ", $xml_feed->title, "\n"; |
warn "fetching ", $xml_feed->title, "\n"; |
78 |
|
|