#!/usr/bin/perl
# Exploiter les variables d'environnement :
if($ENV{'REQUEST_METHOD'} eq 'GET')
{
$Data = $ENV{'QUERY_STRING'}
}
else
{
read(STDIN, $Data, $ENV{'CONTENT_LENGTH'})
}
$i=0;
@ChampsFormulaire = split(/&/, $Data);
foreach $Champ (@ChampsFormulaire)
{
($name, $value) = split(/=/, $Champ);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
$value =~ s/\n/
/g; # transformer Newline en
$Formulaire[$i] = $name;
$i = $i + 1;
$Formulaire[$i] = $value;
$i = $i + 1;
}
# Extraire date et heure
$ValActu = time();
$HeureActu = localtime($ValActu);
# ouvre le fichier pour l'adjonction
if (open (FICHIER, ">>gbook.txt") != false)
{
# flock (FICHIER, 2); # verouille en écriture
print FICHIER "$HeureActu\n";
for ($i=0; $i<=$#Formulaire; $i=$i+2)
{
print FICHIER $Formulaire[$i+1], "\n";
}
# flock (FICHIER, 8); # déverrouille
close (FICHIER);
# Sortie vers le navigateur :
print "Content-type: text/html\n\n";
print <
Merci
Thank you for adding to my Visitor's Book.
You can now '
read your message, and all the others... or
return to my Homepage.
Have fun !