#!/usr/bin/perl

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

######## configuration mise en page ########

$scrversion = "SN";

######## configuration utilisateur ########

##total 600 :|      170      |  30  |       200       |  30  |      170     |
##           |                              L1                              |
##   entete  |           L5L6       |       L4        |        L5L6         |
##   ...     |      L5       |                       L2                     |
##   article |      L5       |  L6  |                L3                     |
##   bas     |           L5L6       |                L3                     |

##           |  30  |  30  |                    540                         |
##   ...     |  L6  |  L6  |                    L7                          |

$L1="600";
$L2="430";
$L3="400";
$L4="200";
$L5L6="200";
$L5="170";
$L6="30";
$L7="540";

######## mise en page index ########

sub idx_pao {

print "<table border=\"0\" width=\"$L1\">\n";
print "<tr>\n";
print "<td width=\"$L5\"><IMG SRC=\"$dir_img/resoo/space.gif\" WIDTH=\"$L5\" HEIGHT=\"1\" ALT=\"\"></td>\n";
print "<td width=\"$L6\"><IMG SRC=\"$dir_img/resoo/space.gif\" WIDTH=\"$L6\" HEIGHT=\"1\" ALT=\"\"></td>\n";
print "<td width=\"$L4\"><IMG SRC=\"$dir_img/resoo/space.gif\" WIDTH=\"$L4\" HEIGHT=\"1\" ALT=\"\"></td>\n";
print "<td width=\"$L6\"><IMG SRC=\"$dir_img/resoo/space.gif\" WIDTH=\"$L6\" HEIGHT=\"1\" ALT=\"\"></td>\n";
print "<td width=\"$L5\"><IMG SRC=\"$dir_img/resoo/space.gif\" WIDTH=\"$L5\" HEIGHT=\"1\" ALT=\"\"></td>\n";
print "</tr>\n";

print "<tr>\n";
print "<td colspan=\"5\" width=\"$L1\" 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 colspan=\"5\" width=\"$L1\">\n";
print "<hr>\n";
print "</td>\n";
print "</tr>\n";
print "<tr>\n";
print "<td colspan=\"2\" width=\"$L5L6\" bgcolor=\"$couleur_cell\" align=\"center\">\n";
print "$fontpetite_cel<B>$date_long</B>$finfontpetite\n";
print "</td>\n";
print "<td width=\"$L4\" 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\">$imgtitre</A></i>$finfontpetite\n";
	}
}
print "</td>\n";
print "<td colspan=\"2\" width=\"$L5L6\" 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=\"$L5L6\" 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=\"$L4\" 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\" width=\"$L4\" alt=\"$imgtitre\">\n";
		print "</a>\n";
	}
	elsif ($query == $defautretour ) {
		print "<a href=\"resooimg.pl\">\n";
		print "<IMG SRC=\"$cadrimage\" border=\"0\" width=\"$L4\" alt=\"$imgtitre\">\n";
		print "</a>\n";
	}
	else {
		print "<IMG SRC=\"$cadrimage\" border=\"0\" width=\"$L4\" alt=\"\">\n";
	}
}
else {
	print "<IMG SRC=\"$cadrimage\" border=\"0\" width=\"$L4\" alt=\"\">\n";
}
print "</td>\n";
print "<td colspan=\"2\" width=\"$L5L6\" 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=\"$L5\" 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=\"$L6\" valign=\"TOP\">&nbsp;</td>\n";
print "<td colspan=\"3\" width=\"$L3\" 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=\"$L5L6\">\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 colspan=\"3\" width=\"$L3\">\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";

}