Не работает Upload (загрузка файлов на сервер)

worm2 — Wed, 15 May 2002 02:47:00 GMT

На локальной машине все ОК. А на сервере не работает Upload (загрузка файлов на сервер):

В первой строке "вырубается"! Файл не создается:

if (not open(FILE, ">$files_folder/$file")) {
## ERROR

print "Content-type: text/html

";

print <<HTML;
ERROR!
HTML
exit();
} ## ERROR
else{ ## FILESOURCE OK

my $data;

binmode (FILE);
binmode ($p_filesource);

while (read($p_filesource,$data,1024)) {
print FILE $data;
}

close FILE;

} ## FILESOURCE OK

Пожалуйста, помогите! Что это может быть?

Сервер не может создать файл, что-то со строкой
if (not open(FILE, ">$files_folder/$file")) {

Пути правильные и имя файла тоже, например:
$files_folder='/home/XXX/public_html';
$file='my_file.gif'

HTML-форма тоже правильная.

Релиб / Веб-программирование / Perl / Не работает Upload (загрузка файлов на сервер) / Latest Posts

Не работает Upload (загрузка файлов на сервер)