URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID9
Нить номер: 23
[ Назад ]
Исходное сообщение
"perl image upload"
Отправлено Yuri A. Kabaenkov , 23-Апр-01 18:25 
Господа помоги резрешить проблему...

имеется веб форма
вида
<html>
<form action=/cgi-bin/1.pl method=post enctype="multipart/form-data">
<input type=file name=fotos>
<input type=hidden name=session value=session>
<input type=hidden name=login value=hellman>
<input type=submit>
</form>
</html>

данные отсылаются скрипту главные части которого выглядят так:
my $login = param("login");
my $session = param("session");
my $foto = param("fotos");

my($file_query, $file_name, $size, $buffer, $bytesread);
    $size = $bytes_count =0;
    $_ = $file_query = $foto;
    s/\w://;
    s/([^\/\\]+)$//;
    $_ = $1;
    s/\.\.+//g;
    s/\s+//g;
    $file_name = $_;
my $out = rand() . "-$file_name";

$login =~ s/\|//g;
$login =~ s/;//g;
$login =~ s/\`//g;
$login =~ s/\'//g;

open (UPLOAD,">$FOTODIR/$login/$out");
while ($bytesread=read($file_query,$buffer,1024))
{
$size += $bytesread;    
print UPLOAD $buffer;
}
close(UPLOAD);


параметры FOTODIR определены

после закачки у меня получается файл вроде правильного размера но при открытии его любым граф. вьювером пишется что открыть не могу.

Спасибо за любую помощь.

Содержание
Сообщения в этом обсуждении
"читайте документацию по russian-apache"
Отправлено Maxim Chirkov , 23-Апр-01 18:58 
http://www.opennet.me/base/dev/http_bin.txt.html
"RE: читайте документацию по russian-apache"
Отправлено Yuri A. Kabaenkov , 23-Апр-01 19:01 
Огромное спасибо, а то я весь день с этим занимаюсь и ничего не сделал...день потерян.Обидно.

Пошел читать.

"RE: читайте документацию по russian-apache"
Отправлено Yuri A. Kabaenkov , 23-Апр-01 19:07 
сделал, теперь работает.
Спасибо еще раз большое.