#!/usr/bin/perl

#
#  REF: resooimg.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";


######## 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";
$img_name = $img_du_jour;
$img_name =~ s/.gif//;
$img_name =~ s/.jpg//;
$img_name =~ s/.png//;

if (!(-e $img_du_jour)) {
    $img_du_jour = "$img_name.gif";
    if (!(-e $img_du_jour)) {
	$img_du_jour = "$img_name.jpg";
	if (!(-e $img_du_jour)) {
	    $img_du_jour = "$img_name.png";
	    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\; charset=ISO-8859-1\n\n";

if (!($query=~ /^\.\./)){
    &get_comp;
    &incr_comp;
}

&head_gen;

&pao_img_haut;

if (!($query=~ /^\.\./)){
    print "$fontgrande$imgtitre$finfontgrande\n";
}
print "<br><br>\n";
if (!(-e $img_du_jour)) {
    print "<center>\&nbsp\;<br>\n";
    print "$fontgrande...non disponible$finfontgrande\n";
    print "</center>\n";
}
else {
    print "<center><IMG SRC=\"$img_du_jour\" border=\"0\" alt=\"image\"></center>\n";
}

&pao_img_bas;

&foot_gen;