#!/usr/bin/perl
### XUpload v2.6
### SibSoft.net (18 Jan 2007)
use strict;
use CGI::Carp qw(fatalsToBrowser);
use lib '.';
use XUploadConfig;
use HTML::Template;
use CGI;
$|=1;
my $cgi = CGI->new();
my $sid=$cgi->param('upload_id');
my $flength_file = "$c->{temp_dir}/$sid/flength";
my $temp_dir = "$c->{temp_dir}/$sid";
select(undef, undef, undef,0.7); #Make a pause till upload.cgi create flength file
print"Pragma: no-cache\n";
print"Content-type: text/html\n\n";
my $tmpl_file = 'default.html';
for(1..3){last if -e $flength_file; sleep 1;}
&DisplayMessage("Transfer complete!") unless (-e $flength_file); #No temp files => Upload already finished
my ($total,$ftime) = &getTotalSize($flength_file);
my $totalKB = int($total/1024); # Total file size in Kilobytes
my $t = HTML::Template->new( filename => "upload_status.html",
die_on_bad_params => 0, );
$t->param(( 'percent_completed' => '0%',
'files_uploaded' => '0',
'data_uploaded' => '0',
'data_total' => $totalKB,
'time_spent' => '0',
'speed' => '0',
'time_left' => '0',
));
print $t->output;
my ($size,$time,$time_left,$percent,$old_percent,$old_time,$modif_time,$old_size,$speed,$curr_time,$files_uploaded);
my $init_flenght_size = -s $flength_file;
$curr_time=$modif_time=time;
while( -e $flength_file && $init_flenght_size == -s $flength_file )
{
select(undef, undef, undef,0.05); # Make a little pause to descrease server load
$curr_time = time;
$size = &UpSize;
$percent = int(100*$size/$total);
if ($old_percent != $percent || $old_time != $curr_time) # Updating status every percent or every second
{
$old_percent = $percent;
$old_time=$curr_time;
$modif_time = $curr_time if ($old_size != $size);
last if $size < $old_size;
$old_size = $size;
$time = $curr_time-$ftime;
$size = int($size/1024);
$speed = $time ? int($size/$time) : 0;
$time_left = $speed ? int( ($totalKB-$size)/$speed ) : 0;
print"";
print"\n";
}
if($curr_time-$modif_time>15) # 15 seconds without filesize modification means upload failure
{
print"";
exit;
}
}
$time = time-$ftime;
$size = &UpSize;
print"";
my $fs;
my $ns=0;
while(-e $flength_file)
{
select(undef, undef, undef,0.01);
next if $fs == (-s $flength_file);
$fs = (-s $flength_file);
open(FILE,$flength_file);
my @arr = ;
close FILE;
print"";
}
print"";
print"