#!/usr/bin/perl use IO::File; use CGI qw(:standard); my $pagehtml,$texte; my @menus_fr = ('Accueil','Terroir','Vinification','Vins','Récompenses','Tarifs, visites','Vente en ligne','Gite rural','Accès'); my @menus_uk = ('Home','Soil','Winemaking','Wines','Awards','Prices, visits','Online sales','Lodging','Access'); my $page = param('page') || '1'; my $lang = param('lang') || 'fr'; use constant TAILLE_TAMPON => 16384; print "Content-Type: text/html\n\n"; print ''; print ""; print '' ; print ""; print ""; # outer print "
"; # etiquette print "
"; print "
"; # entete print "
"; print "
"; # menu print "
"; print "

"; for ($i=0; $i<=$#menus_fr; $i++) { if ($lang eq "fr") { if ($i+1 == $page) { print "$menus_fr[$i]"; } else { print "$menus_fr[$i]"; } } else { if ($i+1 == $page) { print "$menus_uk[$i]"; } else { print "$menus_uk[$i]"; } } } print "

"; # langue print ""; print "  "; print ""; # mentions légales if ($lang eq "fr") { $texte = "mentions légales"; } else { $texte = "Legal notice"; } if ($page == 99) { print "
$texte"; } else { print "
$texte"; } print "
"; # défilement photos print "
"; print ""; print "
"; #print "
"; # corps print "
"; # aiguillage en fonction de la page $pagehtml = "../pages/texte_" . $page . "_" . $lang . ".txt"; sysopen(IN,$pagehtml,O_READ); while () { chomp; if (substr($_,0,1) ne "#") { print $_; } } close (IN); print "
"; # pied de page print "
"; print "  LE DOMAINE DU FOGOLAR - COLLET DE BOVIS - 370 Chemin de Cremat - Impasse Collet de Bovis - 06200 NICE - portable : 06 14 76 09 71 - tél/fax : +33 4 93 37 82 52"; print "
"; # page fin #print ""; # outer fin print ""; print "";