#!/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"; # Icône diocésain, selon la langue -- Diocesan Icon, according to language print "\n"; # Menu, selon ce qui est indiqué print "\n"; print "\n"; # Panneau de droite, selon ce qui est indiqué print "\n"; print "\n"; print "<body bgcolor=#FFFFFF text=#000000>\n"; print "<p>&nbsp;</p>\n"; print "Veuillez charger <a href=" . $fichier[2] .">cette page</a>.\n"; print "</body>\n"; print "\n"; print "\n"; print "\n";