There is no good way to do this. It really is the responsibility of the browser to show such a progress bar, but none of them do.

The common way to hack around this is to put some Javascript on the submit button that opens a popup before submitting the form. This popup then periodically refreshes from some script on the server which monitors the progress of the upload. It's a really fugly kludge but about the only way to do something about this.

Makeshifts last the longest.

PHP File Upload progress without modifying the PHP interpreter or recurring to Perl or ASP just as described in the previous comment... Not so ugly. ;-) http://tinyurl.com/66fkq

I did this in a mod_perl2 handler using Apache::Request, but you should be able to accomplish the same with cgi scripts. Upon the user clicking 'Upload', I used javascript to open a small status window which refreshed waiting for the presense of upload status data. Meanwhile the main window begins the upload process. An UPLOAD_HOOK (see a::r docs) subroutine measured the amount of bytes received from the client and wrote it to a status file which the monitor read.

Now, this worked very well for displaying the amount of bytes received from the user. As for determining the percentage of file uploaded, a::r provides the following useful method:

my $size = $upload->size;

However I did not find the size returned to be reliable when referenced from within the UPLOAD_HOOK subroutine. I suspect is determined once the file is fully uploaded. So I wasn't able to give the user a realistic estimation of when the file would be done uploading.

But I was able to parse the contents real-time, display the results to the user, and terminate the upload if the errors in the file exceeded a certain threshold, which got good feedback from the users. I got some flak from reviewers of the technique, but it worked very well. I was able to pass back to the user accurate information about where in the file errors were, which saved them a great deal of time.

HTH

Hey Red, Thanks a lot, thatīs exactly what I was looking for. Iīve visited CPAN and in fact I think it will do. But, tell me, I can run this module even without mod_perl? My host's server is Apache.

The one thing that still remains a mystery to me is how to manage, and by how many scripts, the signals and the processing of the file. I still donīt know if I can have the same script that processes the file upload and processing, to check $upload->size, tell the status bar (in wich page?) the new status or to get lost as the upload ends.

Other thing is the javascript. Iīm not very skilled in javascript. Can you send me your code, or some sample of it? I donīt have a clue of how to do it...

Thank you very much!

André

For information on javascript check here.

I had the upload handler write the byte count to a session file, and the monitor process which was opened through the javascript on the "Upload" button read from the same session.

CGI.pm also has an upload_hook subroutine which you can use to do this - you don't explicitly need a::r. You might also want to take a look at Apache::UploadMeter , I was using mod_perl2 so I had to roll my own.

http://www.home-school.com/cgi-local/update.pl

Oddly enough, the same page worked just the way I intended in Netscape 3.x, updating the bar by 1% every 3 seconds. Can anyone explain why IE isn't doing that? IE runs the update code, but most of the images are replaced with nothing until the page finishes loading, instead of the new image.

#!/usr/bin/perl

use Tk;
use Tk::ProgressBar;

my $mw = MainWindow->new(-title => 'Processing');

$Progress = $mw->ProgressBar(
        -width => 30,
        -from => 0,
        -to => 100,
        -blocks => 50,
        -colors => [0, 'green', 50, 'yellow' ,80, 'red'],
        -variable => \$percent_done
   )->pack(-fill => 'x');

 $mw->Button(-text => 'Go!', -command=> sub {
    for ($i =0; $i < 1000; $i++) {
     $percent_done = $i/10;
     print "$i\n";
     $mw->update; 
   }
})->pack(-side => 'bottom');

Mainloop;
[download]

Hey everybody!

Thanks for the effort in helping me out on this! I have found many javascripts that output the progress bar, but the main problem remains: itīs not an actual progress bar. And the upload speed depends on too many elements for me to set up the speed of the blind journey to the 100%.

The solution, as you already pointed, might be to use a upload hook, from CGI.pm or from Apache::Request. But the thing is that I just canīt understand the syntax:
$q = CGI->new(\&hook);
sub hook {
my ($filename, $buffer, $bytes_read, $data) = @_;
print "Read $bytes_read bytes of
$filename\n";
}
(CGI.pm's upload hook.) Can anyone help me out on this? Wich variables should I replace here? Shall I put this on the same script where I do the upload routine?
my $fh = $q->upload( "tabela" );
Thanks! André

its sourceforge project in java/perl/php. I just tried the demo and it looks pretty nice. here is the link.

http://www.raditha.com/megaupload/perl.php