Hi Andy,
If the RSS feed is down for whatever reason, the page just returns blank.
Is there a way for some error handing so a small messages is displayed if no feed is available?
I tried this code addition but no luck I'm afraid:
my $feed_url = $_[0];
if ($feed_url !~ /(.*?)bbc\.co\.uk\/(.*?).xml/) {
return "No RSS feed URL passed in!";
}
use LWP::Simple;
use Data::Dumper;
my @page = get($feed_url);
my $page = join("",@page);
die "Request failed\n" unless defined($feed_url);
use XML::Simple;
my $ref = XMLin($page);
my $count = $ref->{channel}->{ttl} || 0;
my @news;
for (my $i = 0; $i < $count; $i++) {
push @news, $ref->{channel}->{item}[$i];
}
return { 'news.title' => $ref->{channel}->{title},
news_loop => \@news, 'news.dump' => Dumper($ref->{channel}) };
}
~ ERASER
Free JavaScripts @ Insight Eye
If the RSS feed is down for whatever reason, the page just returns blank.
Is there a way for some error handing so a small messages is displayed if no feed is available?
I tried this code addition but no luck I'm afraid:
Code:
sub GetNews { my $feed_url = $_[0];
if ($feed_url !~ /(.*?)bbc\.co\.uk\/(.*?).xml/) {
return "No RSS feed URL passed in!";
}
use LWP::Simple;
use Data::Dumper;
my @page = get($feed_url);
my $page = join("",@page);
die "Request failed\n" unless defined($feed_url);
use XML::Simple;
my $ref = XMLin($page);
my $count = $ref->{channel}->{ttl} || 0;
my @news;
for (my $i = 0; $i < $count; $i++) {
push @news, $ref->{channel}->{item}[$i];
}
return { 'news.title' => $ref->{channel}->{title},
news_loop => \@news, 'news.dump' => Dumper($ref->{channel}) };
}
~ ERASER
Free JavaScripts @ Insight Eye
