#!/usr/bin/perl

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

require "resooconf.pl";

$indexversion = "SN";

######## recuperation de l'article ########

$query = $ENV{'QUERY_STRING'};

if ($query) {
	$page = $query;
}
else {
	$query = "$defautretour"; #### debug
	$page = "$query"; #### debug
}

open(IDX,"$dir_txt/$page.idx") || die $!;
@idx = <IDX>;
close (IDX);
$titre = $idx[0];  #titre page gauche
	$titre =~ s/\n//;
$creation = $idx[1];
	$creation =~ s/\n//;
$titre2 = $idx[2]; #titre manchette
	$titre2 =~ s/\n//;
$image = $idx[3];
	$image =~ s/\n//;
$titre3 = $idx[4]; #titre page droite
	$titre3 =~ s/\n//;
$encart = $idx[5]; #encart page droite
	$renew = $encart;
	&resoohtml2;
	$encart = $renew;
	$encart =~ s/\n//;
$formatarticle = $idx[6]; #formatage des liens articles
	$formatarticle =~ s/\n//;
$infospeciale = $idx[7]; #encadré de haut de page
	$renew = $infospeciale;
	&resoohtml2;
	$infospeciale = $renew;
	$infospeciale =~ s/\n//;


######## mise en page de l'article ########

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

&get_comp;
&incr_comp;
&get_date;

&head_gen;

print "<table border=\"0\" width=\"600\">\n";
print "<tr>\n";
print "<td width=\"170\"><IMG SRC=\"$dir_img/resoo/space.gif\" WIDTH=\"170\" HEIGHT=\"1\" ALT=\"\"></td>\n";
print "<td width=\"30\"><IMG SRC=\"$dir_img/resoo/space.gif\" WIDTH=\"30\" HEIGHT=\"1\" ALT=\"\"></td>\n";
print "<td width=\"200\"><IMG SRC=\"$dir_img/resoo/space.gif\" WIDTH=\"200\" HEIGHT=\"1\" ALT=\"\"></td>\n";
print "<td width=\"30\"><IMG SRC=\"$dir_img/resoo/space.gif\" WIDTH=\"30\" HEIGHT=\"1\" ALT=\"\"></td>\n";
print "<td width=\"170\"><IMG SRC=\"$dir_img/resoo/space.gif\" WIDTH=\"170\" HEIGHT=\"1\" ALT=\"\"></td>\n";
print "</tr>\n";

print "<tr>\n";
print "<td colspan=\"5\" width=\"600\" align=\"center\">\n";
print "$fontstitre\n";
print "$urlperso<br>\n";
print "$font\n";
print "$title - <a href=\"mailto:$email\">$email</a>\n";
print "$finfont$finfontstitre\n";
print "</td>\n";
print "</tr>\n";
print "<tr>\n";
print "<td width=\"600\" colspan=\"5\">\n";
print "<hr>\n";
print "</td>\n";
print "</tr>\n";
print "<tr>\n";
print "<td width=\"200\" colspan=\"2\" bgcolor=\"$couleur_cell\" align=\"center\">\n";
print "$fontpetite_cel<B>$date_long</B>$finfontpetite\n";
print "</td>\n";
print "<td width=\"200\" align=\"center\">\n";
if ($img > "1") {
	if ($img == "3") {
	print "$fontpetite<i><A HREF=\"resooimg.pl?\">$imgtitre</A></i>$finfontpetite\n";
	}
	elsif ($query == $defautretour ) {
	print "$fontpetite<i><A HREF=\"resooimg.pl?$image\">$imgtitre</A></i>$finfontpetite\n";
	}
}
print "</td>\n";
print "<td width=\"170\" colspan=\"2\" bgcolor=\"$couleur_cell\" align=\"center\">\n";
print "$fontpetite_cel<B>mise à jour du $creation</B>$finfontpetite\n";
print "</td>\n";
print "</tr>\n";
print "<tr>\n";
print "<td width=\"200\" colspan=\"2\">\n";
print "$fontstitre\n";
print "$title<br>\n";
print "$titre\n";
print "<br>$finfontstitre<br>\n";

if ($retourfiles > 1) {
	print "$font<STRONG>Accès aux pages:</STRONG>$finfont<BR>";
	print "\n";
	if ($resooclick == 1) {
	    print "<FORM METHOD=\"post\" ACTION=\"resooclick.pl\">\n";
	    print "<SELECT NAME=\"goto\" SIZE=\"1\">\n";
	    print "<OPTION>Choisir la rubrique...</OPTION>\n";
	    foreach $key (sort keys %indexfiles) {
		if (!($key =~ /^_\w_/)) {
		    if ( $query ne $indexfiles{$key} ) {
			    print "<OPTION VALUE=\"resooindex.pl?$indexfiles{$key}\">$key</OPTION>\n";
		    }
		}
	    }
	    print "</SELECT>\n";
	    print "<INPUT TYPE=\"submit\" VALUE=\"OK\"></FORM>\n";
	    if (($bbs > "1") or ($rep > "1") or ($img > "1") or ($link > "1")) {
		print "$font<STRONG>Autres:</STRONG>$finfont<BR>";
	    }
	}
        else {
	    foreach $key (sort keys %indexfiles) {
		if (!($key =~ /^_\w_/)) {
	    	    if ( $query ne $indexfiles{$key} ) {
			print "$font$printpuce1<STRONG><a href=\"resooindex.pl?$indexfiles{$key}\">$key</a></STRONG>$finfont<br>\n";
		    }
	    	    else {
			print "$font$printpuce2\[&nbsp\;<I>$key</I>&nbsp\;\]$finfont<br>\n";
		    }
		}
	    }
	}
}

if ($bbs > "1") {
	print "$font$printpuce1<STRONG><I><A HREF=\"$bbslink\">$forumtitre</A></I></STRONG>$finfont<br>\n";
}
if ($rep > "1") {
	print "$font$printpuce1<STRONG><I><A HREF=\"resoorep.pl?$dir_rep\">$teletitre</A></I></STRONG>$finfont<br>\n";
}
if ($link > "1") {
	print "$font$printpuce1<STRONG><I><A HREF=\"resoopage.pl?link\">$linktitre</A></I></STRONG>$finfont<br>\n";
}
if ($img > "1") {
	print "$font$printpuce1<STRONG><I><A HREF=\"resooimg.pl?\">$imgtitre</A></I></STRONG>$finfont<br>\n";
}
if ($option1 == "2") {
	print "$font$printpuce1<STRONG><I><A HREF=\"$dir_opt1\">Option 1</A></I></STRONG>$finfont<br>\n";
}
if ($option2 == "2") {
	print "$font$printpuce1<STRONG><I><A HREF=\"$dir_opt2\">Option 2</A></I></STRONG>$finfont<br>\n";
}
if ($option3 == "2") {
	print "$font$printpuce1<STRONG><I><A HREF=\"$dir_opt3\">Option 3</A></I></STRONG>$finfont<br>\n";
}
print "<br>\n";
print "<br>\n";
print "</td>\n";
print "<td width=\"200\" align=\"center\">\n";
$cadrimage = "$dir_cadre/$image";
if (!(-e $cadrimage)) {
	$cadrimage = "$dir_cadre/$defautcadre";
}
if (!$image) {
	$cadrimage = "$dir_cadre/$defautcadre";
}
if (!(-e $cadrimage)) {
	$cadrimage = "$defaut_cadre";
}
if ($img > "1") {
	if ($img == "3") {
		print "<a href=\"resooimg.pl?\">\n";
		print "<IMG SRC=\"$cadrimage\" border=\"0\" alt=\"$imgtitre\">\n";
		print "</a>\n";
	}
	elsif ($query == $defautretour ) {
		print "<a href=\"resooimg.pl?$image\">\n";
		print "<IMG SRC=\"$cadrimage\" border=\"0\" alt=\"$imgtitre\">\n";
		print "</a>\n";
	}
	else {
		print "<IMG SRC=\"$cadrimage\" border=\"0\" alt=\"\">\n";
	}
}
else {
	print "<IMG SRC=\"$cadrimage\" border=\"0\" alt=\"\">\n";
}
print "</td>\n";
print "<td width=\"200\" colspan=\"2\" align=\"right\">\n";
print "$fontstitre\n";
print "$titre3\n";
print "<br>$finfontstitre\n";

print "$font\n";

###### data encart ###############################################

print "<br>$encart\n";

###################################################################

print "<br>\n";
print "$finfont\n";
print "<br>\n";
print "</td>\n";
print "</tr>\n";
print "<tr>\n";
print "<td bgcolor=\"$couleur_col\" width=\"170\" valign=\"TOP\">\n";

###### data breves ###############################################

open(TXT,"$dir_txt/$page.txt") || die $!;
@txt = <TXT>;
close (TXT);
print "$font_col<B><U>$titre2</U></B><br><br>\n";
foreach $line (@txt) {
	$renew = $line;
	&resoohtml2;
	&unword;
	$line = $renew;
	print "$printpuce4$line<br><br>";
}

###################################################################

print "$finfont\n";
print "</td>\n";
print "<td width=\"30\" valign=\"TOP\">&nbsp;</td>\n";
print "<td colspan=\"3\" width=\"400\" valign=\"TOP\"> \n";
print "<br>";

###### infospeciale ###############################################

if ($infospeciale) {
    print "<table width=\"100%\"><tr><td bgcolor=\"$couleur_cad\" width=\"100%\" align=\"center\">\n";
    print "$font_cad\n";
    print $infospeciale;
    print "$finfont\n";
    print "</td></tr></table>\n";
    print "<br>";
}

###### data articles ##############################################

print "$font\n";

open(LST,"$dir_txt/$page.lst") || die $!;
@lst = <LST>;
close (LST);
foreach $line (@lst) {
	$line =~ s/\n//;
	open(TEXT,"$dir_txt/$line.idx") || die $!;
	@text = <TEXT>;
	close (TEXT);
	$txttitre = $text[0];
	$renew = $txttitre;
	&unword;
	$txttitre = $renew;
	$txtretour = $text[1];
	$txtcreation = $text[2];
	$txtmaj = $text[3];
		$txtmaj =~ s/\n//;
	$txtauteur = $text[4];
	$txtresume = $text[5];
	$renew = $txtresume;
	&resoohtml2;
	&unword;
	$txtresume = $renew;
	$txtnote = $text[6];
	$txtlettrine = $text[7];
	if ($formatarticle==1){
	    print "<B>$txttitre</B><br>\n";
	    print "<I>$txtcreation</I>\n";
	    if ($txtmaj) {
		print "<I>  (mis à jour le $txtmaj)</I>\n";
	    }
	    print "<a href=\"resoopage.pl?$line\">Lire l'article...</a>\n";
	    print "<br><br>\n";
	}
	elsif ($formatarticle==2){
	    if ($txtmaj) {
		print "$printpuce0<I>($txtmaj)</I> \n";
	    }
	    else {
		print "$printpuce0<I>($txtcreation)</I> \n";
	    }
	    print "<B><a href=\"resoopage.pl?$line\">$txttitre</a></B><br>\n";
	}
	else {
	    print "<B>$txttitre</B><br>\n";
	    print "<I>$txtcreation</I>\n";
	    if ($txtmaj) {
		print "<I>  (mis à jour le $txtmaj)</I>\n";
	    }
	    print "<br>\n";
	    print "$txtresume...\n";
	    print "<br>\n";
	    print "<a href=\"resoopage.pl?$line\">Lire la suite...</a>\n";
	    print "<br><br>\n";
	}
}

print "$finfont\n";

##########################################################################

print "</td>\n";
print "</tr>\n";

print "<tr>\n";
print "<td colspan=\"2\" width=\"200\">\n";
print "$font\n";
print "<br><br>\n";
print "<a href=\"resooindexadmin.pl?$query\">Accès Administrateur</a>\n";
print "$finfont\n";
print "</td>\n";
print "<td width=\"400\" colspan=\"3\">\n";
print "<br><br>\n";
print "<div align=\"right\">\n";
print "$fontpetite<i>\n";
if ($compt > "1") {
	print "Cette page a été consultée $comp fois\n";
}
print "<br>Dernière mise à jour le $creation.\n";
print "</i>$finfontpetite\n";
print "</div>\n";
print "</td>\n";
print "</tr>\n";

print "</table>\n";

&foot_gen;