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
are you using CGI.pm ?
Greg
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
