Octavian Rasnita wrote at Thu, 25 Jul 2002 11:21:42 +0200:
> The problem is that the file is not deleted if the visitor cancels the file download.
>
> If the download is interrupted, the script is also interrupted I think, and it can't
>delete the
> file.
> ...
> Here is the script:
>
> #!/perl/bin/perl
> #!/usr/bin/perl
>
> $| = 1;
>
> my $filename = $ENV{'QUERY_STRING'};
> my $docroot = $ENV{'DOCUMENT_ROOT'};
> my $file = "$docroot/shopping/$filename";
>
> print <<eof;
> Content-type: application/zip
> Content-Disposition: attachment; filename=$filename
>
> eof
>
> open (FH, $file);
> binmode(FH);
> binmode(STDOUT);
>
> until (eof FH) {
> read (FH, my $buf, 1024);
> print $buf;
> }
> close FH;
>
> unlink $file;
You could try to force the unlink,
even if the script is pleased to cancel.
END {
unlink $file;
}
Well, versus a kill -9 yourscript.pl it, doesn't help.
Good luck,
Janek
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
