with some success. The following is a simple CGI that displays an RSS feed as a web page.
#! /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();