#!/usr/bin/perl

#
#  ResooSite v.0.9.1 - Resoo 2002-2003
#  resooimg.pl
#

require "resooconf.pl";


######## recuperation de l'image ########

$query = $ENV{'QUERY_STRING'};

if (!$query) {
	open(IDX,"$dir_txt/$defautretour.idx") || die $!;
	@idx = <IDX>;
	close (IDX);
	$query = $idx[3];
	$query =~ s/\n//;
}

$img_du_jour = "$dir_dujour/$query";

if (!(-e $img_du_jour)) {
    $img_du_jour = "$dir_dujour/$defautimage";
}

if (!$query) {
    $img_du_jour = "$dir_dujour/$defautimage";
}

if (!(-e $img_du_jour)) {
    $img_du_jour = "$defaut_image";
}

$page = "img";


######## mise en page de l'image ########

print "Content-type: text/html\n\n";

&get_comp;
&incr_comp;

&head;

print "<table border=\"0\" width=\"600\">\n";
print "<tr>\n";
print "<td width=\"600\" colspan=\"3\">\n";
print "$font\n";
print "<div align=\"right\"><A HREF=\"resooindex.pl?$defautretour\"><B>Retour...</B></A></div>\n";
print "$finfont\n";
print "</td>\n";
print "</tr>\n";
print "<tr>\n";
print "<td bgcolor=\"$couleur_col\" width=\"30\" align=\"center\" valign=\"TOP\">\n";
print "$fontgrande \&nbsp\;<br>\n";
print "$finfontgrande\n";
print "</td>\n";

print "<td width=\"30\">\n";
print "\&nbsp\;\n";
print "</td>\n";

print "<td width=\"540\" valign=\"TOP\">\n";
print "$fontgrande\n";
print "$imgtitre\n";
print "$finfontgrande</center><br>\n";
if (!(-e $img_du_jour)) {
    print "<center>$fontgrande\&nbsp\;<br>\n";
    print "...non disponible\n";
    print "$finfontgrande</center>\n";
}
else {
    print "<IMG SRC=\"$img_du_jour\" border=\"0\">\n";
}
print "<br><br>\n";
print "</td>\n";
print "</tr>\n";
print "<tr>\n";
print "<td colspan=\"3\" width=\"600\" bgcolor=\"$couleur_cell\" align=\"right\">\n";
print "$font\n";
print "\&nbsp\;<br>\&nbsp\;\n";
print "$finfont\n";
print "</td>\n";
print "</tr>\n";
print "<tr>\n";
print "<td width=\"600\" colspan=\"3\">\n";
print "$font\n";
print "<br>\n";
#print "$fonttitre\n";
#print "$imgtitre\n";
#print "$finfonttitre<br><hr>\n";
if ($bbs == "3") {
	print "Réagir à cette page sur le <a href=\"$dir_bbs\">forum</a> $title<br>\n";
}
else {
	print "$title<br>\n";
}
print "$finfont\n";
print "</td>\n";
print "</tr>\n";
print "</table>\n";

print "<table border=\"0\" width=\"600\">\n";
print "<tr>\n";
print "<td width=\"170\">\n";
print "$font\n";
print "<a href=\"resooindexadmin.pl\?$defautretour\">Accès Administrateur</a>\n";
print "$finfont\n";
print "</td>\n";
print "<td width=\"430\" colspan=\"2\">\n";
print "$font\n";
print "<div align=\"right\"><A HREF=\"resooindex.pl?$defautretour\"><B>Retour...</B></A>\n";
print "$finfont\n";
if ($compt == "3") {
	print "$fontpetite\n";
	print "<br>Cette page a été consultée $comp fois.</div>\n";
	print "$finfontpetite\n";
}
print "</td>\n";
print "</tr>\n";

print "</table>\n";

&foot;