#!/usr/bin/perl # Ouvrir le fichier $i=0; if (open (FICHIER, ") { push(@Lignes,$_); $max++; } # flock (FICHIER, 8); # déverrouille close (FICHIER); # Sortie vers le navigateur : print "Content-type: text/html\n\n"; print < The Eurofil Homepage, Guestbook entries.

Ethel's Web Guestbook messages:


html_fin for ($i=0; $i<$max; $i+=6) { $time = @Lignes[$i+0]; $PNom = @Lignes[$i+1]; $NomFam = @Lignes[$i+2]; $email = @Lignes[$i+3]; $subject = @Lignes[$i+4]; $body = @Lignes[$i+5]; print "
", $PNom, " from ", $NomFam,"
\n"; print " (", $email, ")

\n"; print "Date:", $time,"

\n"; print " ", $subject, "

\n"; print "", $body, "
\n"; } print <
If you want you can sign the Guestbook or go back to Ethel's Web

Powered by: www.ethelworld.com
html_fin } else # erreur fichier { print < Erreur Impossible de lire le Livre d'or

html_fin } exit;