The original intent was to generate a save-as dialog box instead of displaying the PDF inline? I believe the problem with this is that it can cause blank browser windows to open, which some people don't like. This is a browser issue and I'm not aware of an alternative. Removing the content-disposition header will cause the PDF to display inline. The user would then have to manually save the PDF.
>>-----Original Message----- >>From: Moon, John [mailto:[EMAIL PROTECTED] >>Sent: Tuesday, May 01, 2007 9:56 AM >>To: beginners-cgi@perl.org >>Subject: Help downloading a file >> >>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 -----Message Disclaimer----- This e-mail message is intended only for the use of the individual or entity to which it is addressed, and may contain information that is privileged, confidential and exempt from disclosure under applicable law. If you are not the intended recipient, any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by reply email to [EMAIL PROTECTED] and delete or destroy all copies of the original message and attachments thereto. Email sent to or from the Principal Financial Group or any of its member companies may be retained as required by law or regulation. Nothing in this message is intended to constitute an Electronic signature for purposes of the Uniform Electronic Transactions Act (UETA) or the Electronic Signatures in Global and National Commerce Act ("E-Sign") unless a specific statement to the contrary is included in this message. While this communication may be used to promote or market a transaction or an idea that is discussed in the publication, it is intended to provide general information about the subject matter covered and is provided with the understanding that The Principal is not rendering legal, accounting, or tax advice. It is not a marketed opinion and may not be used to avoid penalties under the Internal Revenue Code. You should consult with appropriate counsel or other advisors on all matters pertaining to legal, tax, or accounting obligations and requirements. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
