#! /usr/bin/perl -w

use strict;
use warnings;

use CGI;
use LWP;
use XML::RSSLite;
use Data::Dumper;

my $cgi = new CGI;
print $cgi->header;
print $cgi->start_html('RSS Feed');

my $rssUrl = 'http://news.bbc.co.uk/rss/newsonline_uk_edition/business/rss091.xml';

my $rssContent;

my $ua = LWP::UserAgent->new;
 $ua->timeout(10);
 
 my $response = $ua->get($rssUrl);
 
 if ($response->is_success) {
     $rssContent = $response->content;  # or whatever
 }
 
print "Getting $rssUrl\n";
# print $response->code, "Content ->", $rssContent;

if ($rssContent)
{
	my %rssHash;
	parseRSS(\%rssHash, \$rssContent);
	
	print $cgi->h1($rssHash{'title'});
	print $cgi->a({href=>$rssHash{'image'}->{'link'}},
			$cgi->img({src=>$rssHash{'image'}->{'url'}})
			);
	
	foreach my $item (@{$rssHash{'item'}})
	{
	print "<p>\n",
	"Title: $item->{'title'}<br>\n",
	"Desc:  $item->{'description'}<br>\n",
	"Link:  <a href=\"$item->{'link'}\">$item->{'link'}</a>\n";
	}
#	print "<pre>", Dumper(\%rssHash), "</pre>";
}
else
{
	print $cgi->h1("Error ",$response->message);
}

print $cgi->end_html();