Господа помоги резрешить проблему...
имеется веб форма
вида
<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 определены
после закачки у меня получается файл вроде правильного размера но при открытии его любым граф. вьювером пишется что открыть не могу.
Спасибо за любую помощь.
Вариант для распечатки
Программирование под UNIX (Public)
on
23-Апр-01, 18:25 (MSK)
