On 06 Dec 2002 08:22:19 +0200, [EMAIL PROTECTED] (Stelian Iancu)
wrote:
>Hello!
>
>I try to download a file from a CGI script. Here is the code:
>
>$self->header_props(-type=>'application/x-octet-stream',
>-attachment=>$file);
>
> open(FILE, $file);
> binmode(FILE);
> $/ = undef;
> my($data) = <FILE>;
> close(FILE);
> binmode(STDOUT);
> print $data;
>
>I am using CGI::App, but the problem is not there. Anyway, the file is
>written directly in the browser, I don't get a "Save to disk" dialog.
I'm guessing that the CGI::App module isn't doing the headers right.
Try this.
######################################################3
#!/usr/bin/perl
$file = 'test.tgz';
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);
exit 0;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
