#!/usr/bin/perl

@lines = <>;

print "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n\n".
	"<rdf:RDF\n".
	"  xmlns:rdf=\"http://www.w3.org/1999/02/22-rdf-syntax-ns#\"\n".
	"  xmlns=\"http://purl.org/rss/1.0/\">\n\n".
	"<channel rdf:about=\"http://slashdot.org/index.pl\">\n".
	"  <title>Slashdot</title>\n".
	"  <link>http://slashdot.org/index.pl</link>\n".
	"  <description>News for nerds, stuff that matters</description>\n".
	"  <language>en</language>\n".
	"</channel>\n\n";

$found = 0;
foreach (@lines) {
	chomp;
	if ($_ eq "\tWIDTH=\"13\" HEIGHT=\"16\" ALT=\"\" ALIGN=\"TOP\"><FONT") {
		$found = 1;
		next;
	}
	if ($found == 1) {
		# Inside article section now
		if (/<A HREF=\"\/\/.*\.slashdot\.org\/\">/) {
			/FONT COLOR=\"#FFFFFF\">(.*)<\/FONT><\/A>(.*)<\/B>/;
			$headline = $1.$2;
		} else {
			/<B>(.*)<\/B>/;
			$headline = $1;
		}
		$found = 2;
		$headline =~ s/&/&amp;/g;
		$headline =~ s/</&lt;/g;
		$headline =~ s/>/&gt;/g;
		$headline =~ s/\"/&quot;/g;
		$headline =~ s/\'/&apos;/g;
		next;
	}
	if ((/^<FONT SIZE="2">/) && ($found == 2)) {
		# Discard a whole bunch of crap
		$found = 3;
		next;
	}
	if ((/^./) && ($found == 3)) {
		if (/^./) {
			# In theory we've now hit the line with description and link
			$main = $_;
			$main =~ s/&/&amp;/g;
			$main =~ s/</&lt;/g;
			$main =~ s/>/&gt;/g;
			$main =~ s/\"/&quot;/g;
			$main =~ s/\'/&apos;/g;
			$found = 4;
		}
		next;
	} elsif ($found == 3) {
		next;
	}
	if ((m/Read More/) && ($found == 4)) {
		$link = "http:".(split(/\"/,$_))[1];
		$link = (split(/&/,$link))[0];
		$found = 0;
		
		# Print out RSS item
		print "<item rdf:about=\"$link\">\n".
			"<title>$headline</title>\n".
			"<link>$link</link>\n".
			"<description>$main</description>\n</item>\n\n";
	}
}

print "</rdf:RDF>\n";