[ NEW PLUGIN ] BBC_News [ FREE ]

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}) };

}

my $page = join("",@page);

if (!$page[0]) {
return "Request failed";
}

if ($feed_url !~ /(.*?)bbc\.co\.uk\/(.*?).xml/) {

#!/usr/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);
print "Content-Type: text/html \n\n";

my $feed_url = q|http://news.google.com/?ned=us&topic=t&output=rss|;

print $feed_url;

use LWP::Simple;
use Data::Dumper;
my @page = get($feed_url);

print join("",@page);

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

use XML::Simple;
my $ref = XMLin($page);

my $count = $ref->{channel}->{ttl} || 0;

my @news;
for (my $i = 0; $i < $count; $i++) {
$ref->{channel}->{item}[$i]->{image} = $ref->{channel}->{item}[$i]->{'media:thumbnail'}->{url};
push @news, $ref->{channel}->{item}[$i];

}

return { 'news.title' => $ref->{channel}->{title}, news_loop => \@news, 'news.dump' => Dumper($ref->{channel}) };

}

<%Plugins::BBC_News::GetNews("http://newsrss.bbc.co.uk/rss/newsonline_uk_edition/front_page/rss.xml")%>

Title: <%news.title%><br/> <%-- This is the title of the particular RSS feed you selected --%>

<%loop news_loop%>
Title: <%title%><br/>
URL: <%link%><br/>
Description: <%description%><br/>
<%if image%><img src="<%image%>" /><%endif%>
<br/>
<%endloop%>