Forum Webscript.Ru

Программирование => Perl => Тема начата: evgeny_s от 07 Августа 2002, 10:57:34

Название: Как можно закачать на сервер *.jpg файл?
Отправлено: evgeny_s от 07 Августа 2002, 10:57:34

Мой скрипт что-то делает нехорошее с файлом и его потом нельзя нигде открыть. Как закачать изображение правильно?
В форме у меня такие параметры:

Название: Как можно закачать на сервер *.jpg файл?
Отправлено: OBOLTUS от 07 Августа 2002, 11:05:14

в .htaccess:

CharsetRecodeMultipartForms Off

Название: Как можно закачать на сервер *.jpg файл?
Отправлено: Chs от 07 Августа 2002, 11:07:52

Фак читаем, да?

Название: Как можно закачать на сервер *.jpg файл?
Отправлено: Chs от 07 Августа 2002, 11:15:18

Фак читаем, да?

Название: Как можно закачать на сервер *.jpg файл?
Отправлено: evgeny_s от 07 Августа 2002, 13:22:14

Почитываем:-)

Название: Как можно закачать на сервер *.jpg файл?
Отправлено: evgeny_s от 07 Августа 2002, 13:44:51

Аааа! Не работает. Пишет, что невозможно открыть файл - и ИЕ тоже не отображает. Код скрипта такой:


use CGI       qw (:standard);                
use CGI::Carp qw (fatalsToBrowser);    
$CGI::POST_MAX = 131072;                    

my $filename = param(\'upload-jpg\');

$data_file="./../../books/1.jpg";
$action = param(\'action\');

if ($action eq \'add_record\') {
    if ($filename eq "") {
        print "Content-type: text/html\\n\\n";
        print "ОШИБКА: Необходимо ввести имя файла для загрузки.
\\n";
        exit;
    }else {
&process_file;
    }

       sub process_file {
       print "Content-type: text/html\\n\\n";
       print "Загружается $filename
\\n";
       if ($foto !~ /([\\w-]+ \\. (?: gif | jpe?g ))$/ix) {
          open (FILE, ">$data_file") or die "cant open: $_";
          binmode FILE;
          print FILE while (<$filename>);          
          close FILE;
      }
   }
} else { &html_add_form;}

Название: Как можно закачать на сервер *.jpg файл?
Отправлено: Chs от 07 Августа 2002, 17:07:59

Для начала убираем из  attach= и проверяем наличие тэга ....

Название: Как можно закачать на сервер *.jpg файл?
Отправлено: evgeny_s от 08 Августа 2002, 10:23:56

у меня так:

А зачем убирать attach? Попробую, может получится.