but if I try a bigger file no progress bar and error after some seconds
This is the link:
http://venergetic.org/demos/cgi-bin/upload_form.html
Can you help me please?

Thanks in advance
Code: Select all
my $ftime = (lstat($flength_file))[9]; # Upload start time
Code: Select all
my $ftime = time;
Code: Select all
sub getTotalSize
{
my $flength_file = shift;
open FILE,$flength_file || die"File open error!";
my $total = <FILE>;
close FILE;
chomp $total;
&DisplayMessage($total) if $total =~ /ERROR/;
my $ftime = time;
return ($total,$ftime);
}