On Sun, 12 Dec 2004, Stas Bekman wrote:
# Get the content-length:
my( $command ) = "/bin/tar -c -h -f /dev/null --totals the_directory 2>&1"=~/^(.+)$/;
`$command` =~ /Total bytes written: (\d+)/gsm;You probably better off not using an external process, but http://search.cpan.org/dist/Archive-Tar/ instead.
Cpan was my first port of call. Archive::Tar doesn't seem to be able to do what I want though.
The problem is, when someone hits stop in their web browser and ends the transfer prematurely, the tar command doesn't die like I'd hoped it would. I'm assuming here that I'm missing something basic in my knowledge of how modperl works...This is normal, please read: http://perl.apache.org/docs/1.0/guide/debug.html#Handling_the__User_pressed_Stop_button__case
Yeah. I fixed it with Apache::SIG a couple of hours after mailing the list, and several hours before the mail actually got onto the list. ;)
-- Digital photo printing: http://www.fotoserve.com/?affiliate_id=1093871459
-- Report problems: http://perl.apache.org/bugs/ Mail list info: http://perl.apache.org/maillist/modperl.html List etiquette: http://perl.apache.org/maillist/email-etiquette.html
