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
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
