| Код |
<FORM method="post" ACTION="cgi-bin/save.pl">
<INPUT size=50 name=name type="text">
<INPUT size=50 name=adress type="text">
<INPUT size=50 name=email type="text">
<INPUT size=50 name=telefon type="text">
<INPUT class=input size=50 name=date type="text">
<INPUT type=submit value="Отправить заявку" >
<INPUT type="reset" value="Сбросить" ></td>
</form>
|
| Код |
#!/usr/bin/perl
sub read_get
{
if ($ENV{REQUEST_METHOD} eq 'POST'){
sysread(STDIN, $buffer, $ENV{CONTENT_LENGTH});
} else{
$buffer = "$ENV{'QUERY_STRING'}";
};
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$name =~ s/<!--(.|\n)*-->//g;
$name =~ s/<([^>]|\n)*>//g;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$value =~ s/\cM/ /g;
$value =~ s/\|/ /g;
$value =~ s/<([^>]|\n)*>//g;
$value =~ s/"/"/g;
$value =~ s/\x00/ /g;
$value =~ s/\.\./\./g;
$value=~ s/\n/<br>/g;
$FORM{$name} = $value;
}
}
read_get();
open($file, ">>log.txt");
print $file $FORM{name};
print $file "\n";
print $file $FORM{adress};
print $file "\n";
print $file $FORM{email};
print $file "\n";
print $file $FORM{telefon};
print $file "\n";
print $file $FORM{date};
print $file "\n";
close($file); print "Content-type:text/html\n\n";
|
Не работает. Проверял на двух хостингах. Может быть здесь ошибка? |
где ты это взял??? Я же тебе выслал на мыло. 