Redhat 7.2
Apache
mod_perl
Скрипт обработки данных из формы:
use CGI qw(:standard);
$_ = $file_query = upload('file');
s/\w://;
s/([^\/\\]+)$//;
$_ = $1;
s/\.\.+//g;
s/\s+//g;
$file_name = $_;
open(FILE,">/path/$file_name") || die("Error opening file $file_name for writing, error $!", 1);
binmode FILE;
while ($bytes_count = read($file_query,$buff,1024)) {
$size += $bytes_count;
print FILE $buff;
}
close(FILE);
ПРОБЛЕМА: Файл создается, но ничего не содержит.
Может кто сталкивался? Окажите помощь, заранее спасибо!
|
Вариант для распечатки
WEB технологии (Public)
on
31-Май-02, 22:11 (MSK)
