#! /usr/bin/perl

use XML::RSS;

print "Content-type: text/html\n\n";

# URL to the RSS feed
$url = "http://www.microsite.reuters.com/rss/scienceNews";

# file to write the feed to
# apache needs to have write access to this file
$file = "./reuters.rdf";

# get the feed
`GET '$url' > $file`;

# create new instance of XML::RSS
my $rss = new XML::RSS;
eval {$rss->parsefile("$file");};
if ($@) {die "Error parsing $file.\n$@\n";}

# set up the title
$title = "$rss->{'channel'}->{'title'}";

# print the channel items
foreach my $item (@{$rss->{'items'}}) {
	next unless defined($item->{'title'}) && defined($item->{'link'});
		my $trans_link = $item->{'link'};
		$trans_link =~ s/%26/&/g;
		push(@body, "<LI><A HREF=\"$trans_link\">$item->{'title'}</A><BR>");
}

# if there's a textinput element
if ($rss->{'textinput'}->{'title'}) {
	push(@body, "<FORM METHOD=\"get\" ACTION=\"$rss->{'textinput'}->{'link'}\">");
	push(@body, "$rss->{'textinput'}->{'description'}<BR>"); 
	push(@body, "<INPUT TYPE=\"text\" NAME=\"$rss->{'textinput'}->{'name'}\"><BR>");
	push(@body, "<INPUT TYPE=\"submit\" VALUE=\"$rss->{'textinput'}->{'title'}\"></FORM>");
}

# if there's a copyright element
if ($rss->{'channel'}->{'copyright'}) {
	push(@body, "<BR><SUB>$rss->{'channel'}->{'copyright'}</SUB>");
}

$body = join("\n", @body);

# print out the block
print << "E_O_F";
<TABLE BORDER=0 CELLSPACING=4 CELLPADDING=0 WIDTH=100%><TR><TD>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=1 bgcolor="blue">
	<TR>
		<TD>
		<TABLE BORDER=0 CELLSPACING=0 WIDTH=300>
			<TR>
				<TD BGCOLOR="blue">
				<FONT FACE="verdana, arial, helvetica" COLOR=white SIZE=-1><B>
				$title
				</B></FONT>
				</TD>
			</TR>
			<TR>
				<TD bgcolor="white" style="padding : 4px;" align="left">
				<FONT FACE="arial, helvetica" SIZE=-1>
				$body
				</FONT>
				</TD>
			</TR>
		</TABLE>
		</TD>
	</TR>
</TABLE>
</TD></TR></TABLE>


E_O_F

exit;