#!/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>Counterpane News</title>
 <link>http://www.counterpane.com/</link>
 <description>Counterpane News</description>
</channel>

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

END

while (<STDIN>) {
  
  # Wir suchen nach dem Kommentar "RedDot-EKD-Newsfenster"
  # Zwischen den Kommentaren erwarten wir die Links
  # und die Überschriften
 
  # Jede Zeile wird nun auf den Inhalt des Links
  # untersucht. Der Text in den Klammern wird extrahiert, ebenso
  # der Text zwischen ">" und "</a>".

  if (/class=\"leftcol\"><a(.*?)\"(.*?)\">(.*?)<\/a>/i) { 
    print "<item>\n  ";
    print "<title>".$3."</title>\n  ";
    print "<link>http://www.counterpane.com/".$2."</link>\n";
    print "</item>\n\n"
  }
}

print "</rdf:RDF>\n"