#!/usr/bin/perl
# RSS CGI Prog
use strict;
use warnings;
use CGI;
use XML::RSS;
use LWP::Simple;
use Data::Dumper;

my $cgi = CGI->new;
my $url = "http://feeds.feedburner.com/animals";
my $content;
my $rss = XML::RSS->new;
if ($url=~ /http:/i) {
    $content = get($url);
    die "Could not retrieve $url" unless $content;
    $rss->parse($content);
}

print $cgi->header,
      $cgi->start_html(-style=>"/css/cgi_lesson1.css",-title=>"This is an RSS thingy.");
print_html($rss);

sub print_html {
    my $rss = shift;
    print <<"HTML";
<div class="container"><div class="header"><B><center><h2><a href="$rss->{'channel'}->{'link'}">$rss->{'channel'}->{'title'}</a></h2></center></B>
HTML
    if ($rss->{'image'}->{'link'}) {
	print <<"HTML";
<center>
<p><a href="$rss->{'image'}->{'link'}"><img src="$rss->{'image'}->{'url'}" alt="$rss->{'image'}->{'title'}" border="0"

HTML
        print qq{ width="$rss->{'image'}->{'width'}"}
	    if $rss->{'image'}->{'width'};
	print qq{ height="$rss->{'image'}->{'height'}"}
	    if $rss->{'image'}->{'height'};
	print "></a></center><p></div>\n";
    }
    print qq{<div class="content">};

    foreach my $item (@{$rss->{'items'}}) {
	next unless defined($item->{'title'}) && defined($item->{'link'});
	print qq{<a href="$item->{'link'}">$item->{'title'}</a><BR>\n$item->{'description'}};
    }

    if ($rss->{'channel'}->{'copyright'}) {
	print <<"HTML";
</div>
<div class="footer"><center><p><sub>$rss->{'channel'}->{'copyright'}</sub></p></center>
HTML
    }

    print <<"HTML";
</div></div>
HTML
}
print $cgi->end_html;