if ($ENV{'REQUEST_METHOD'} eq "POST")
{
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
else
{
$buffer=$ENV{'QUERY_STRING'};
}
@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/<!--(.|\n)*-->//g;
$value =~ s/<([^>]|\n)*>//g;
$FORM{$name} = $value;
}
***********
$buffer и надо проверить, наверно?
Как поставить мах длину сообщения, а лишнее обрезать?
Спасибо! [img]beer.gif[/img]

Прости, не уясняю суть твоей проблемы. Тебе нужно ограничить длину конкретного аргумента или предотвратить обработку слишкоми длинных запросов?

скорее всего ты дал рабочий код.… который обрабатывает отправленные данные из другого файла, если это так, то просто поставь <input type=text maxlength="70" name="user"….

Дас ист очень плохо -- вешать защиту только на стороне клиента. [img]images/smiles/icon_smile.gif[/img]

Да, на стороне клиента хорошо когда ето человек не ставящий себе цель узнать что будет если передать скрипту слишком большой объём данных... :smirk [img]images/smiles/icon_smile.gif[/img]
4Crazy Да, я хочу предотвратить обработку слишком больших запросов...

[ 17 Июня 2002: Исправлено timig ]

Вместо $ENV{'CONTENT_LENGTH'} используй выражение "минимум из XXX и $ENV{'CONTENT_LENGTH'}", где XXX есть максимальный размер, который ты еще готов обработать.