Здравствуйте,
Не подскажете почему ф-ия image_upload при аплоаде создаёт пустые файлы (0 кб) ?
my $path_image = "C:\\\\WebServers\\\\home\\\\localhost\\\\www\\\\images\\\\photo_tmp\\\\";
....
my $albumid = exists $form{\'id\'} ? $form{\'id\'} : \'\';
my $image = exists $form{\'image\'} ? $form{\'image\'} : \'\';
my $imgname = exists $form{\'imgname\'} ? $form{\'imgname\'} : \'\';
....
sub image_upload {
my @tv = ();
my $file = 0;
$tv[0] = $image;
$tv[0] =~ s/.*((png)|(gif)|(jpg))$/$1/gi;
$tv[0] = lc($tv[0]);
if ($tv[0] eq \'\') {error(0);}
my $dbh = DBI->connect("DBI:mysql:database=$database;host=$host",$user, $password) || die $DBI::errstr;
$dbh->do("INSERT INTO galleryimages (id, albumid, name, type_image) VALUES(\'\', \'$albumid\', \'$imgname\', \'$tv[0]\')");
$tv[1] = $dbh->{\'mysql_insertid\'};
$dbh->disconnect;
$file = $path_image.$tv[1].".".$tv[0];
open (IMG, ">$file") or die ("Cannot open file $file");
binmode IMG;
flock ($file, 2);
print IMG while (<$image>);
close (IMG);
chmod 0644, $file;
}