#!/usr/bin/perl -w
$|++;
use CGI qw/:standard/;
do "functions/func.pl";


print header(-type=>'application/rss+xml');


print '<?xml version="1.0" encoding="iso-8859-15" ?>

<rdf:RDF xmlns:dc="http://purl.org/dc/elements/1.1/"
         xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
         xmlns="http://purl.org/rss/1.0/">
<channel rdf:about="http://tfeserver.homelinux.com">
    <title>Blog de tfe : tfeserver</title>
    <description>RSS</description>
    <link>http://tfeserver.homelinux.com</link>

';

    

&connect_db();

my $sth = $dbh->prepare("SELECT * FROM news ORDER BY id DESC LIMIT 10");
$sth->execute();
$dbh->prepare("none"); # pour pas que warning :p
print "<items>
    <rdf:Seq>
";
while (my $hash_ref = $sth->fetchrow_hashref)
{
    print "<rdf:li rdf:resource=\"http://tfeserver.homelinux.com/site/news/". ${$hash_ref}{'id'}."\" />
    ";

}
print "
    </rdf:Seq>
</items>
</channel>
";


$sth = $dbh->prepare("SELECT * FROM news ORDER BY id DESC LIMIT 10");
$sth->execute();
$dbh->prepare("none"); # pour pas que warning :p
while (my $hash_ref = $sth->fetchrow_hashref)
{
$date = ${$hash_ref}{'date'};
$date =~ s/(\d{4})\-(\d{2})\-(\d{2}).*/$1-$2-$3/;
${$hash_ref}{'contenu'} =~ s/\[\/?code\]//g;
print "<item rdf:about=\"http://tfeserver.homelinux.com/site/news/". ${$hash_ref}{'id'}."\">
    <title><![CDATA[". ${$hash_ref}{'nom'}."]]></title>
    <dc:creator>tfe</dc:creator>
    <dc:date>$date</dc:date>
    <link>http://tfeserver.homelinux.com/site/news/". ${$hash_ref}{'id'}."</link>
<!--    <description><![CDATA[".${$hash_ref}{'contenu'}."]]></description> -->
</item>


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