Во время upload файла (картинки), файл записывается туда куда нужно, но в папке где расположен скрипт появляется файл "CGItempxxxxx" где xxxxx - какое-то число? при этом ошибок не выдает в логах, и картинка записывается не битая, а кам файл "CGItempxxxxx" является копией этой картинки...
Скрипт upload:
use CGI;
$query = new CGI;
$image = $query -> param(\'image\');
$tv[0] = $image; # определяем полное имя файла
$tv[0] =~s /.*((png)|(gif)|(jpg))$/$1/i; # определяем тип файла
$file = "h:/home/test/html/gallery".$tv[1].".".$tv[0]; # $tv[1] - имя файла определяемое отдельной функцией
open (IMG, ">$file"); binmode IMG; flock ($file, 2); print IMG while (<$image>); close (IMG); chmod 0744, $file;
Система - Win2K Pro SP3
Сервер - Apache 1.3.28
Интерпритатор - Perl 5.6.1.
Модули Perl - CGI 3.0
Не могу понять откуда этот глюк, но я проверял этот скрипт на другой машине с тем же программным обеспечением, но temp файлов не появлялось, может где-то настройки какие-то неправильны?