27 |
die $feed->title . " returned " . $r->status_line . " for $uri\n" unless ( $r->is_success ); |
die $feed->title . " returned " . $r->status_line . " for $uri\n" unless ( $r->is_success ); |
28 |
my $content = $r->content; |
my $content = $r->content; |
29 |
|
|
30 |
|
$parent->save('feed.xml'); |
31 |
|
|
32 |
die "No content returned from $uri\n" unless length( $content ) > 1; |
die "No content returned from $uri\n" unless length( $content ) > 1; |
33 |
|
|
34 |
my $xml_feed = XML::Feed->parse( \$content ) |
my $xml_feed = XML::Feed->parse( \$content ) |