<?xml version="1.0" encoding="ISO-8859-1" standalone="yes"?>
<!-- generator="familienrss-generator 0.9" -->
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
    <channel>
<atom:link href="http://www.familienfreunde.de/rss$lk.xml" rel="self" type="application/rss+xml" />
        <perl>
        if ( ($lk le "1624") and ($lk ge "1322") )
           {
           if ( ($lk le "1624") and ($lk ge "1599") )
              {
              $BLN = 16;
              }
              else
              {
              if ( ($lk le "1415") and ($lk ge "1399") )
                 {
                  $BLN = 14;
                 }
                 else
                 {
                  $BLN = 13;
                 }
              }
            }
        #out $BLN;
        get "LK==$lk" , "landkreis_BL$BLN";
        out "<title>pl&amp;#228;tze frei. wir informieren ";
        out $LKName;
        out ". familienfreund kg</title>";
        out "<description><![CDATA[Plätze frei. familienfreunde informieren ";
        out $LKName;
        out ".]]></description>";
        out "<link>http://";
        ### out $LKName;
        out "www.familienfreunde.de/</link>";
        out "<lastBuildDate>";
        out datum("jetzt", "rfc", "Wochentagkurz, Tag0 Monatkurz Jahr Stunde:Minute:Sekunde ");
        out "</lastBuildDate>";
        out "<generator>familienrss-generator 0.9</generator>";
        $gestern=datum("-15", "intern");
        get "Nummer<>_ geaendert>=$gestern Freie_Plaetze_veroeffentlichen==1 Landkreis==$lk sort=-geaendert", "betreuung", "rss";
     while (get_next "rss")
     {
               out "\n<item>";
               out "<title>";
               $Kitaxml = convert_xml($KiTa);
               $Ortxml = convert_xml($Ort);
               # $KiTa =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;
               # $KiTa=~s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
               out $Kitaxml;
               out " in ";
               out $Ortxml;
               if ( $Ort eq "Leipzig" )
                  {
                  out "-";
                  $Ortsteil =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;
                  out $Ortsteil;
                  }
               out "</title>";
               out "<link>http://www.familienfreunde.de/baseportal/FF_Detail_$Kategorie&amp;amp;Nummer==$Nummer</link>";
               out "<description><![CDATA[Es wurden Details am Profil geändert.";
               out "]]></description>";
               out "<author>nutzer\@familienfreund.de (familienfreund KG) </author>";
               out "<pubDate>";
               out datum("$geaendert", "rfc", "Wochentagkurz, Tag0 Monatkurz Jahr Stunde:Minute:Sekunde");
               out "</pubDate>";
               out "<guid>http://www.familienfreunde.de/baseportal/FF_Detail_$Kategorie&amp;amp;Nummer==$Nummer</guid>";
               out "</item>";
     }
     </perl>        
    </channel>
</rss>