#!/usr/bin/perl

#
#  REF: resooindexAT.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 = "AT";

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

sub idx_pao {

&menuAT;

print "<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n";

print "  <tbody><tr> \n";
print "    <td width=\"8\" height=\"5\"><IMG SRC=\"$dir_img/resoo/space.gif\" WIDTH=\"8\" HEIGHT=\"5\" ALT=\"\"></td>\n";
print "    <td width=\"170\"><IMG SRC=\"$dir_img/resoo/space.gif\" WIDTH=\"170\" HEIGHT=\"5\" ALT=\"\"></td>\n";
print "    <td width=\"5\"><IMG SRC=\"$dir_img/resoo/space.gif\" WIDTH=\"5\" HEIGHT=\"5\" ALT=\"\"></td>\n";
print "    <td width=\"100%\"></td><IMG SRC=\"$dir_img/resoo/space.gif\" WIDTH=\"\" HEIGHT=\"5\" ALT=\"\">\n";
print "    <td width=\"5\"><IMG SRC=\"$dir_img/resoo/space.gif\" WIDTH=\"5\" HEIGHT=\"5\" ALT=\"\"></td>\n";
print "    <td width=\"200\"><IMG SRC=\"$dir_img/resoo/space.gif\" WIDTH=\"200\" HEIGHT=\"5\" ALT=\"\"></td>\n";
print "    <td width=\"8\" height=\"5\"><IMG SRC=\"$dir_img/resoo/space.gif\" WIDTH=\"8\" HEIGHT=\"5\" ALT=\"\"></td>\n";
print "  </tr>\n";

print "  <tr> \n";
print "    <td width=\"8\"></td>\n";
print "    <td valign=\"top\">\n";
print "<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n";
print "  <tbody>\n";
print "    <tr><td colspan=\"3\" height=\"3\" bgcolor=\"$couleur_cad\"></td></tr>\n";
print "    <tr>\n";
print "     <td width=\"3\" bgcolor=\"$couleur_cad\"></td>\n";
print "     <td bgcolor=\"$couleur_col\">\n";
###### data breves ###############################################

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

###################################################################
print "     </td>\n";
print "     <td width=\"3\" bgcolor=\"$couleur_cad\"></td>\n";
print "    </tr>\n";
print "    <tr><td colspan=\"3\" height=\"3\" bgcolor=\"$couleur_cad\"></td></tr>\n";
print "  </tbody>\n";
print "</table>\n";
print "    </td>\n";

print "    <td width=\"5\"></td>\n";

print "    <td valign=\"top\">\n";
print "<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n";
print "  <tbody>\n";
print "    <tr><td colspan=\"3\" height=\"3\" bgcolor=\"$couleur_cad\"></td></tr>\n";
print "    <tr>\n";
print "     <td width=\"3\" bgcolor=\"$couleur_cad\"></td>\n";
print "     <td bgcolor=\"$couleur_col\">\n";
###### 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_col\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 "     <td width=\"3\" bgcolor=\"$couleur_cad\"></td>\n";
print "    </tr>\n";
print "    <tr><td colspan=\"3\" height=\"3\" bgcolor=\"$couleur_cad\"></td></tr>\n";
print "  </tbody>\n";
print "</table>\n";
print "    </td>\n";

print "    <td width=\"5\"></td>\n";

print "    <td valign=\"top\">\n";
print "<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n";
print "  <tbody>\n";
print "    <tr><td colspan=\"3\" height=\"3\" bgcolor=\"$couleur_cad\"></td></tr>\n";
print "    <tr>\n";
print "     <td width=\"3\" bgcolor=\"$couleur_cad\"></td>\n";
print "     <td bgcolor=\"$couleur_col\" align=\"center\">\n";
###### data image ###############################################
$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\" WIDTH=\"190\" border=\"0\" alt=\"$imgtitre\">\n";
		print "</a>\n";
	}
	elsif ($query == $defautretour ) {
		print "<a href=\"resooimg.pl\">\n";
		print "<IMG SRC=\"$cadrimage\" WIDTH=\"190\" border=\"0\" alt=\"$imgtitre\">\n";
		print "</a>\n";
	}
	else {
		print "<IMG SRC=\"$cadrimage\" WIDTH=\"190\" border=\"0\" alt=\"\">\n";
	}
}
else {
	print "<IMG SRC=\"$cadrimage\" WIDTH=\"190\" border=\"0\" alt=\"\">\n";
}
if ($img > "1") {
	if ($img == "3") {
print "<br>\n";
print "		$fontpetite_col<i>\n";
print "<A HREF=\"resooimg.pl\">$imgtitre</A>\n";
print "		</i>$finfontpetite\n";
print "	<br>\n";
	}
	elsif ($query == $defautretour ) {
print "<br>\n";
print "		$fontpetite_col<i>\n";
print "<A HREF=\"resooimg.pl\">$imgtitre</A>\n";
print "		</i>$finfontpetite\n";
print "	<br>\n";
	}
}
###################################################################
print "<br>\n";
###### data encart ###############################################
print "			$fontstitre_col\n";
print "			$titre3\n";
print "			$finfontstitre\n";
print "			<br><br>\n";
print "				$fontgrande_col\n";
print "$encart\n";
###################################################################
print "				$finfontgrande\n";
print "     </td>\n";
print "     <td width=\"3\" bgcolor=\"$couleur_cad\"></td>\n";
print "    </tr>\n";
print "    <tr><td colspan=\"3\" height=\"3\" bgcolor=\"$couleur_cad\"></td></tr>\n";
print "  </tbody>\n";
print "</table>\n";
print "    </td>\n";

print "    <td width=\"8\"></td>\n";
print "  </tr>\n";

print "  <tr> \n";
print "    <td width=\"8\" height=\"5\"></td>\n";
print "    <td></td>\n";
print "    <td width=\"5\"></td>\n";
print "    <td></td>\n";
print "    <td width=\"5\"></td>\n";
print "    <td></td>\n";
print "    <td width=\"8\" height=\"5\"></td>\n";
print "  </tr></tbody>\n";
print "</table>\n";


print "<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n";
print "  <tbody><tr> \n";
print "    <td width=\"8\" height=\"5\"></td>\n";
print "    <td></td>\n";
print "    <td width=\"8\" height=\"5\"></td>\n";
print "  </tr>\n";
print "  <tr> \n";
print "    <td width=\"8\"></td>\n";
print "    <td bgcolor=\"$couleur_cad\" valign=\"middle\">\n";

print "	<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n";
print "	  <tbody>\n";
print "	    <tr><td colspan=\"3\" height=\"3\"></td></tr>\n";
print "	    <tr>\n";
print "	     <td width=\"3\"></td>\n";
print "	     <td bgcolor=\"$couleur_col\">\n";
	print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"5\" width=\"100%\">\n";
	print "<tbody>\n";
	print "<tr>\n";
	print "	<td align=\"left\" valign=\"middle\">\n";
	print "$font_col\n";
	print "<a href=\"resooindexadmin.pl?$query\">Accès Administrateur</a>\n";
	print "$finfont\n";
	print "	</td>\n";
	print "	<td align=\"center\" valign=\"middle\">\n";
	print "$fontgrande_col\n";
	print "$title\n";
	print "$finfontgrande\n";
	print "	</td>\n";
	print "	<td align=\"right\" valign=\"top\">\n";
	print "$fontpetite_col<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 "	</td>\n";
	print "</tr>\n";
	print "</tbody>\n";
	print "</table>\n";
print "	     </td>\n";
print "	     <td width=\"3\"></td>\n";
print "	    </tr>\n";
print "	    <tr><td colspan=\"3\" height=\"3\"></td></tr>\n";
print "	  </tbody>\n";
print "	</table>\n";

print "    </td>\n";
print "    <td width=\"8\"></td>\n";
print "  </tr>\n";
print "  <tr> \n";
print "    <td width=\"8\" height=\"10\"></td>\n";
print "    <td></td>\n";
print "    <td width=\"8\" height=\"10\"></td>\n";
print "  </tr>\n";
print "</tbody></table>\n";

}