>> -----Original Message----- >> From: Octavian Rasnita [mailto:[EMAIL PROTECTED]] >> >> I want to check if a certain file is downloading in this >> moment by a page >> visitor. >> Is it possible with Perl?
Another option which is widely used is to have a cgi-script do the file "download", by printing the binary out. That way you can closely monitor the file downloads. I just printed to a log, but you could do anything you want. You could have a cgi program, which checks this log, and tail it. Then "if ($tail =~ /downloading/){print "downloading now\n"} Of course you will need to work out what happens if 2 or more users are downloading at the same time. ################################################### #!/usr/bin/perl $file = 'test.tgz'; open (LOG,">>test-tgz.log") or die "Couldn't open log: $!"; print LOG "downloading now, start: ",scalar localtime(),"\t", $ENV{REMOTE_ADDR},"\n"; print<<EOH; Content-type: application/octet-stream Content-Disposition: attachment\; filename=$file EOH binmode STDOUT; open (FH, "$file") or die "Can't open $file: $!"; binmode FH; while(<FH>){print} close (FH); print LOG "downloading finished, stop: ",scalar localtime(),"\t", $ENV{REMOTE_ADDR},"\n"; close LOG; exit 0; ################################################## -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]