Re: Help downloading a file

On Tuesday May 1 2007 6:56 am, Moon, John wrote:
> Below is code I presently use to download to clients and the generated
> html. One client objects to the generated html - the
> "Content-Disposition" ... Does any one have another method to download
> AND display the pdf with perl.
>
>
> sub Display_PDF {
>     my ($pdf, $pdf_size) = @_;
>     $|=0;
>     print $q->header(-type=>'application/pdf',
>         -attachment=>'Requested_Report.pdf',
>         -Content_length=>$pdf_size,
>         -expires=>'+1d',
>         -status=>'200 OK');
>     open REPORT, $pdf;
>     while (read REPORT, my $buff, 5000) {
>         print $buff
>         }
>     }
>
> Generates:
>
> Status: 200 OK
> Expires: Wed, 02 May 2007 14:53:53 GMT
> Date: Tue, 01 May 2007 14:53:53 GMT
> Content-Disposition: attachment; filename="Requested_Report.pdf"
> content-length: 92455
> Content-Type: application/pdf
>
> John W Moon


you must be i see $-q->header() method in there.

you could try :

print "Content-Type: application/pdf\n\n";

then just  dump the contents of your pdf file to STDOUT...

with out knowing the  full context of your situation , that is are you 
generating  the pdf file  dynamically with a Perl module or are you just 
serving it up to a browser connection via CGI ?

that make a  difference on how to  format the headers  and  push out the file.


Greg