#!/usr/bin/perl -w
	
print << "END";
<?xml version="1.0" encoding="iso-8859-1" ?>
<rdf:RDF
xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
xmlns="http://my.netscape.com/rdf/simple/0.9/">

<channel>
 <title>Spass mit SCO</title>
 <link>http://www.sco.com/</link>
 <description>
    Die abstrusesten Pressemeldungen der Firma mit dem schr&auml;gsten Gesch&auml;ftsmodell!
 </description>
</channel>

<!-- Erzeugt von ekd-rdf.pl == © 2003 Mattias Schlenker             -->
<!-- http://devcorner.schlenker-webdesign.de/cms.20.html            -->

END
;	
my $date = "";
my $count = 0;
my $maxcount = 20;

while (<STDIN>) {
  
  # Identify the date 

  if (/nowrap(.*?)align=\"right\">(.*?)<\/td>/i) {
    $date = $2;
  }
  
  # get rid of HTML
  s/<font(.*?)>//g;
  s/<sup(.*?)>//g;
  s/<\/font(.*?)>//g;
  s/<\/sup(.*?)>//g;
  
  # Jede Zeile wird nun auf den Inhalt des Links
  # untersucht. Der Text in den Klammern wird extrahiert, ebenso
  # der Text zwischen ">" und "</a>".
  
  if (/<td><a href=\"(.*?)\">(.*?)<\/a>/i && $count < $maxcount) {
    $count++;
    # print STDERR $count;
    print "<item>\n  ";
    print "<title>".$2." (".$date.")</title>\n  ";
    print "<link>".$1."</link>\n";
    print "</item>\n\n";
  }
}

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