Forum Webscript.Ru
Программирование => Perl => Тема начата: от 26 Апреля 2002, 17:14:30
-
кто-нибудь знает как ограничить размер загружаемого файла?
т.е. нажали кнопочку аплоад, и мой скрипт должен проверить, если файл Ю 50 кб - то не аплоадить его?
-
perldoc CGI
$CGI::POST_MAX
If set to a non-negative integer, this variable puts a ceiling on
the size of POSTings, in bytes. If CGI.pm detects a POST that is
greater than the ceiling, it will immediately exit with an error
message. This value will affect both ordinary POSTs and multipart
POSTs, meaning that it limits the maximum size of file uploads as
well. You should set this to a reasonably high value, such as 1
megabyte.
-
1) В апачах директива на ограничение размера присылаемых данных есть.
2) Если только для вашего скрипта, то
$ENV{\'CONTENT_LENGTH\'} - размер всех данных присылаемых методом post.
-
спасибо, я нашел более аккуратный способ
$fh=upload(\'file_up\');
print -s $fh;
-
спасибо, я нашел более аккуратный способ
Не аккуратный в том то и дело, установка переменной CGI будет рубить большой файл "на подлете", а в этом способе определяется размер файла уже закачанного на сервер. Выводы понятны? :)
-
Как сказал Chs:
$CGI::POST_MAX=50*1024;
чего может быть проще?