president Гость
|
Добавлено: Чт Авг 19 2004 15:09 Заголовок сообщения: обработчик формы |
|
|
на сайте разместил форму с полем для ввода мыла
..
<form action=/cgi-bin/sendform.cgi method=POST>
<INPUT input type="text" value="" name=T_1_1 size=40 maxLength=40>
</form>
..
а обработчик следующий:
....
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
my $test;
%form = ($buffer =~ /\&?(\w_\d_\d+)=([\w\d\.\+\-_%]+)/g);
foreach $key (keys %form){
$form{$key} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$form{$key} =~ tr/+/ /;
$test .= "$key -> $form{$key}\n";
}
$buffer =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$pattern .="<html><body><ul><li><font face=arial size=-2>Введите email<b>".$form{"T_1_1"}."
</b></font>";
.......
все отсылает, все отлично, но один косяк, если передавать просто текст, то поступает на мыло, если указать мыло erwer@asdfasdf.rr, форма передает текст только до знака "собака" то есть erwer - далее текст пропадает!?
Куда!? Почему!?
(обработчик писал не я - я в этом не особо але!)
ПАСИБО ЗА ДЕЙНЫЙ СОВЕТ ЗАРАНЕЕ! |
|