Господа помоги резрешить проблему...
имеется веб форма
вида
<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 определены
после закачки у меня получается файл вроде правильного размера но при открытии его любым граф. вьювером пишется что открыть не могу.
Спасибо за любую помощь.

Ответить | Сообщить модератору