#!/usr/bin/perl --
#formalité
use CGI;
$html=new CGI;
print "Content-type:text/html\n\n";
$Query_File = $ENV{QUERY_STRING}; #ON RECUPERE LA VARIABLE D'ENVIRONNEMENT
($site,$couleur,$page,$cheminactu)=split(/\&/,$Query_File);
$chemingen="/var/www/vhosts/syndicatdelachasse.com/httpdocs/cgi-bin";
open (pf1,"$chemingen/$site/contenu/lien-page.log");
@tableau1=;
close(pf1);
require "$chemingen/$site/habillage/couleur-txt.log";
require "$chemingen/$site/habillage/habillage.log";
require "$chemingen/$site/habillage/index.log";
############################################################################################
if ($page eq "pagecontact")
{
&haut();
&phrasecentre1();
&coordonnee();
&mail2();
&lesliens();
&phrasecentre2();
&phrasecentre3();
&bas();
}
############################################################################################
elsif ($page eq "meteo")
{
&haut();
&meteo();
&bas();
}
############################################################################################
elsif ($page eq "mailing")
{
&haut();
&mailing();
&bas();
}
#######################################################################
elsif ($page eq "actualite")
{
&haut();
&phrasecentre1();
&display_annuairez();
&phrasecentre2();
&lienarchive();
&phrasecentre3();
&bas();
}
#######################################################################
elsif ($page eq "info")
{
&haut();
&phrasecentre1();
&phrasecentre2();
&phrasecentre3();
&lienarchive();
&bas();
}
#######################################################################
elsif ($page eq "indispensables")
{
&haut();
&phrasecentre1();
&indispensablesss();
&phrasecentre2();
&phrasecentre3();
&lienarchive();
&bas();
}
#######################################################################
elsif ($page eq "archives")
{
&haut();
&phrasecentre1();
&archives();
&phrasecentre2();
&phrasecentre3();
&bas();
}
#######################################################################
elsif ($page eq "liens")
{
&haut();
&phrasecentre1();
&liensss();
&phrasecentre2();
&phrasecentre3();
&lienarchive();
&bas();
}
##########################################################
elsif ($page eq "actualite-mensuelle")
{
&haut();
&phrasecentre1();
&actumensuel();
&phrasecentre2();
&phrasecentre3();
&bas();
}
##########################################################
elsif ($page eq "pneumatiques")
{
&haut();
&phrasecentre1();
&pneumatiques();
&phrasecentre2();
&phrasecentre3();
&lienarchive();
&bas();
}
elsif ($page eq "mailingauto")
{
&haut();
&mailingauto();
&bas();
}
else
{
&haut();
&phrasecentre();
&lienarchive();
&bas();
}