#!/local/bin/perl
#
# Création d'un cadre dont les éléments sont identifiés comme suit :
# frame.cgi?fr&menu01.shtml&parish/e-mail.shtml
# où fr = langue, menu01 et parish/e-mail sont les panneaux de gauche et de droite respectivement.
#
#
# par Michel Gagnon
# http://www.mlink.net/~gagnon1/
# Mettre ici l'URL de base qui sera ajoutée par défaut à toutes les demandes
# my $url_base = "http://www.montreal.anglican.org/";
# my $url_chemin = "../www/";
print "Content-type: text/html\n\n";
# Lire l'URL afin d'y trouver les paramètres présents
# Les paramètres sont des fichiers à inclure dans le tout
my $commande = $ENV{'SCRIPT_NAME'};
my $requete = $ENV{'QUERY_STRING'};
my $url_complete = $url_base2 . $commande . '?' . $requete ;
my $nom_fichier;
my $guil = chr(34);
my $diese = chr(35);
@fichier = split(/&/,$requete);
#Variables du chemin d'accès aux trois fichiers chargés dans le cadre
#Choix du retour au diocèse
if ($fichier[0] eq 'fr') {
$ledio = 'diohome-fr.htm' }
else {
$ledio = 'diohome-en.htm' };
$lemenu = $fichier[1];
$ladroite = $fichier[2];
# Bâtir le cadre
print "Diocese of Montreal - - Diocèse de Montréal\n";
print "\n";
print "\n";