#!/usr/bin/perl

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

require "resooconf.pl";


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

$query = $ENV{'QUERY_STRING'};

## sans paramètre, fonction "image du jour"
if (!$query) {

    $page = "img";

    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 = $query;
    $img_name =~ s/.gif//;
    $img_name =~ s/.jpg//;
    $img_name =~ s/.png//;
    
    if (!(-e $img_du_jour)) {
	$img_du_jour = "$dir_dujour/i-$query";
	if (!(-e $img_du_jour)) {
	    $img_du_jour = "$dir_dujour/$img_name.gif";
	    if (!(-e $img_du_jour)) {
		$img_du_jour = "$dir_dujour/i-$img_name.gif";
		if (!(-e $img_du_jour)) {
		    $img_du_jour = "$dir_dujour/$img_name.jpg";
		    if (!(-e $img_du_jour)) {
			$img_du_jour = "$dir_dujour/i-$img_name.jpg";
			if (!(-e $img_du_jour)) {
			    $img_du_jour = "$dir_dujour/$img_name.png";
			    if (!(-e $img_du_jour)) {
				$img_du_jour = "$dir_dujour/i-$img_name.png";
				if (!(-e $img_du_jour)) {
				    $img_du_jour = "$dir_dujour/$defautimage";
				}
			    }
			}
		    }
		}
	    }
	}
    }
}
else {
    $page = "";
    $img_du_jour = "$dir_img/$query";
}

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

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


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

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

if ($page){
    &get_comp;
    &incr_comp;
}

&head_gen;

&pao_img_haut;

if ($page){
    print "$fontgrande$imgtitre$finfontgrande<br>\n";
}
else {
    print "<center>$fontgrande\[ <a HREF=\"javascript: history.back()\;\" onMouseOver=\"status=\'Back\'\; return true\;\">Retour page précédente</a> \]$finfontgrande</center>\n";
}
print "<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;