#!/usr/bin/perl

#
#  REF: resoobackend.pl
#  ResooSite v.0.9.5.2 -(p)Resoo 2002-2003
#  (c)2003 - pascal blain / GNU GPL - General Public License
#  http://www.resoo.org/resoosite
#  pascal@resoo.org
#

require "resooconf.pl";

if ($use_backend){
    exit 1;
}

my $forceitem = "X";
my $backendlogo;
my $rssimage = "../img/logo-rss.gif";
if (-e $rssimage) {
    $backendlogo = "$server/$dir/img/logo-rss.gif";
}
else {
    $backendlogo = "";
}
if ($backenddesc){
    $description = $backenddesc;
}
else{
    $description = "$title - feuille d'info web";
}
if ($backendmax){
    $max_item = $backendmax;
}
else{
    $max_item = 6;
}

my $language = "fr-fr";

open (MAXNUM, "$dir_comp/page.cmp");
@maxnum = <MAXNUM>;
close (MAXNUM);
$maxnum = @maxnum[0];
my $num;
my $nbitem = 0;

print "Content-type: text/plain\; charset=ISO-8859-1\n\n";

print "<?xml version=\"1.0\" encoding=\"iso-8859-1\"?>\n";
	    
print "<!DOCTYPE rss PUBLIC \"-//Netscape Communications//DTD RSS 0.91//EN\" ";
print "\"http://my.netscape.com/publish/formats/rss-0.91.dtd\">\n";
print "<rss version=\"0.91\" encoding=\"ISO_8859-1\">\n\n";

print "<channel>\n\n";

print "<title>$title</title>\n";
print "<link>$urlperso</link>\n";
print "<description>$description</description>\n";
print "<language>$language</language>\n";
print "<copyright>$title - $urlperso</copyright>\n\n";

if ($backendlogo){
    print "<image>\n";
    print "	<title>$title</title>\n";
    print "	<url>$backendlogo</url>\n";
    print "	<link>$urlperso</link>\n";
    print "	<description>$description</description>\n";
    print "</image>\n\n\n";
}

if ($backendforce){
    $num = $backendforce;
    $item_idx = "$dir_txt/$num.idx";
    $item_lst = "$dir_txt/$num.lst";
    if ((-s "$item_idx") and (!-e "$item_lst")) {
	open(TEXT,"$dir_txt/$num.idx") || die $!;
	@text = <TEXT>;
	close (TEXT);
	$txttitre = $text[0];
	$txtauteur = $text[4];
	$txtresume = $text[5];
	chomp($txttitre);
	chomp($txtauteur);
	chomp($txtresume);
	&print_item;
	$nbitem++;
	$forceitem = $num;
    }
}

$num = $maxnum;

while (($num > 0) and ($nbitem < $max_item)) {
    $item_idx = "$dir_txt/$num.idx";
    $item_lst = "$dir_txt/$num.lst";
    if ((-s "$item_idx") and (!-e "$item_lst") and ($num ne $forceitem)) {
	open(TEXT,"$dir_txt/$num.idx") || die $!;
	@text = <TEXT>;
	close (TEXT);
	$txttitre = $text[0];
	$txtretour = $text[1];
	$txtauteur = $text[4];
	$txtresume = $text[5];
	chomp($txttitre);
	chomp($txtretour);
	chomp($txtauteur);
	chomp($txtresume);
	if (!($filesindex{$txtretour} =~ /^_I_/)) {
	    &print_item;
	    $nbitem++;
	}
    }
    $num--;
}
sub print_item {
    print "	<item>\n";
    print "		<title>$txttitre</title>\n";
    print "		<link>$server/$dir/cgi-bin/resoopage.pl?$num</link>\n";
    print "		<description>$txtresume</description>\n";
#    if ($txtauteur){
        print "		<author>$txtauteur</author>\n";
#    }
    print "	</item>\n\n";
}

print "</channel>\n\n";

print "</rss>\n";