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
