Архив форумов ЦИТФорума

[gadyuka]

subj

[Dae]

#!/usr/bin/perl
use CGI qw/:standard/;
$in_file = param('file');
..............
if ( $in_file )
{
# Если нужно определить Mime тип закачиваемого обьекта.
# $mimetype = uploadInfo($in_file)->{'Content-Type'} || '';

open (JPEG,">${http_dir}${pics_base}/${in_num}_${time}.jpg");
binmode(JPE.. 2);
while ($bytesread=read($in_file,$buffer,1024))
{
print JPEG $buffer;
}
close(JPEG);
close $in_file;

# Если нужно сохранить закачиваемый объект во временный файл кусок кода будет
# выглядеть:
$tmp_file=tmpFileName($in_file);
open (JPEG,">$realimg_dir/$g_user_name/$file_name");
binmode(JPEG);
bin.. 2);
$counter=0;
while (read ($t_file, $buff, 1024))
{
print JPEG $buff;
}
close(JPEG);
close $t_file;
unlink($t_file);
}

# Форма для закачки файла должна выглядеть следующим образом:


# Внимание !!! В случае использования русского апача с активизированной
# автоматической перекодировкой, для соблюдения целостности закачиваемого
# бинарного объекта необходимо в директории со скриптом создать файл .htaccess
# содержащий директиву CharsetRecodeMultipartForms Off.

[Dae]

Блин, он html вырезал, вобщем тут надо скобки угловые поставить:
FORM METHOD="POST" ACTION="/cgi-bin/script.cgi" enctype="multipart/form-data"

input type="file" name="file"

[maximul]

Создал .htaccess в каталоге скрипта (содержание:CharsetRecodeMultipartForms Off), а файлы все равно перекодируются.
Что я сделал не так?