Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
#!/usr/local/bin/perl
print "Content-type: text/html\\n\\n";
$buffer=$ENV{\'QUERY_STRING\'};
#@pairs = split(/&/, $buffer);
@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;
$in{$name} = $value;
}
$NAME = "$in{name}";
$EMAIL = $in{email};
$TEXT = "$in{text}";
$DATES = $data;
open(FILE,">>guest.txt");
print FILE $NAME,"|",$EMAIL,"| |",$TEXT,"|",$DATES,"\\n";
close(FILE);