#!/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>News der EKD</title>
 <link>http://www.ekd.de/</link>
 <description>Aktuelle Artikel der Evangelischen Kirche in Deutschland</description>
</channel>

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

END

$inside = 0;
$line = 0;

while (<STDIN>) {
  
  # Wir suchen nach dem Kommentar "RedDot-EKD-Newsfenster"
  # Zwischen den Kommentaren erwarten wir die Links
  # und die Überschriften
  
  if (/RedDot-EKD-Newsfenster/i && $line > 0) {
    $inside = 0;
  }

  # Jede Zeile wird nun auf den Inhalt des Links
  # untersucht. Der Text in den Klammern wird extrahiert, ebenso
  # der Text zwischen ">" und "</a>".

  if ($inside > 0) {
    if (/<a(.*?)\"(.*?)\"><img(.*?)>\&nbsp\;(.*?)<\/a>/i) { 
      print "<item>\n  ";
      print "<title>".$4."</title>\n  ";
      print "<link>http://www.ekd.de".$2."</link>\n";
      print "</item>\n\n"
    }
  }

  # Beim ersten Kommentar "RedDot-EKD-Newsfenster"
  # schalten wir die Suche an.

  if (/RedDot-EKD-Newsfenster/i && $line < 1) {
    $inside = 1;
    $line++;
  }
}

print "</rdf:RDF>\n"