#!/usr/bin/perl
#########################################################################
##                                                                     ##
##   SCRIPT :                                                          ##
##                                                                     ##
##   zc-index                               Version 2.0                ##
##   Pour Unix avec perl5                                              ##
##   Créé le 13.01.2002                     modifié le 28.02.2002      ##
##                                                                     ##
#########################################################################
##                                                                     ##
##   COPYRIGHT :                                                       ##
##                                                                     ##
##   Ce script est en téléchargement  sur                              ##
##   http://www.perl-fr.com et est en utilisation libre !              ##
##   Il est INTERDIT de le diffuser gratuitement ou non !              ##
##   Il est INTERDIT de le modifier sans avoir l'accord de l'auteur,   ##
##  (mise à part les lignes de configuration ;-)                       ##
##                                                                     ##
#########################################################################

#########################################################################
###                CONFIGURATION                                      ###
#########################################################################

$erreur="index.cgi?accueil"; # page ou sera redirigez le visiteur en cas d'erreur 404, ou si un des fichiers textes manquent (voir ci apres)

$dossier="site"; # nom du sous-dossier ou seront contenu vos page en .html ou .htm
                    # si vous ne pouvez mettre vos scripts cgi que dans votre répertoire cgi-bin appelez le ../nomdudossier !

$body1="haut.txt"; # fichier texte qui contiendra le code html du haut des pages affichées !

$body2="bas.txt"; # fichier texte qui contiendra le code html du bas des pages affichées.

#########################################################################
###                NE RIEN CHANGER CI APRES !!!!                      ###
#########################################################################


$html = "$ENV{'QUERY_STRING'}";

if ($html =~ /\.|>|</) { print "Location: $erreur\n\n"; exit; }
if (!$html) { print "Location: $erreur\n\n"; exit; }

open(BODY1,"<$body1") || print "Location: $erreur\n\n";
@BODY1 = <BODY1>;
close(BODY1);

open(BODY2,"<$body2") || print "Location: $erreur\n\n";
@BODY2 = <BODY2>;
close(BODY2);

if (-e "$dossier/$html.htm") {
open(PAGE,"<$dossier/$html.htm"); 
@PAGE = <PAGE>;
close(PAGE);
&affichage;

}
else {
open(PAGE,"<$dossier/$html.html") || print "Location: $erreur\n\n";
@PAGE = <PAGE>;
close(PAGE);
&affichage;
exit;
}

sub affichage {
print "Content-type: text/html\n\n";
print<<LETOUT;
@BODY1
@PAGE
@BODY2
LETOUT
}