#!/usr/bin/perl

if ($ENV{"REQUEST_METHOD"} eq 'GET') { $buffer = $ENV{'QUERY_STRING'}; }
else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } 
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;
}

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time);
$mon += 1;
$year += 1900;
$date = "$mday/$mon/$year";
if ($min < 10) { $minu = "0$min"; }
          else { $minu = "$min"; }
$hour += 1; if ($hour == 24) { $hour = 0; }
$heure = "$hour:$minu";
open(BASE,">>webmaster/externes.dat");
print BASE "$FORM{'sender'}|$date|$heure|$ENV{'REMOTE_ADDR'}|$ENV{'HTTP_USER_AGENT'}|$ENV{'HTTP_ACCEPT_LANGUAGE'}\n";
close(BASE);

$page = "index.html";
print "Location: $page\n\n";