#! /usr/bin/perl
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;
$value =~ s///g;
$value =~ s/<([^>]|\n)*>//g;
$FORM{$name} = $value;
}
&get_date;
$logfile = "/home/s/your-site.h14.ru/WWW/newstape.html"; # исправьте "your-site" на то имя, которое используете
if($FORM{'parol'} eq 'vash parol') # вместо "vash parol" напишите свой пароль
{
open (FILE, ">>$logfile");
#ниже используете при желании свой html код, используя date, FORM{'text'} и FORM{'name'} с символом $ перед ними
#но можете оставить тот, что уже написан
print FILE "| $date | ";
print FILE "| $FORM{'text'} | ";
print FILE "Добавил: $FORM{'name'}";
print FILE " |
|