Thanks Marcus, is there is a easy way to get the content length?

 

I tried

 

$length = calculate_body_len();

$r->err_headers_out->add('Content-Length' => $length);

 

Which gave me a corrupted content error, I also tried

 

my $body_len = calculate_body_len();

$r->set_content_length($body_len);

$r->rflush;

 

Which just did nothing.

 

Thx

-Chris

 

From: Marcus Don [mailto:m...@names.co.uk] 
Sent: Thursday, May 30, 2013 9:12 AM
To: Chris Faust
Cc: modperl@perl.apache.org
Subject: Re: Help on debugging print problem

 

At a guess, I'd say your new machine is using chunked output, so you might
need to add a size header.

 

Marcus

 

 

On 30 May 2013, at 12:11, "Chris Faust" <cfa...@doyougot.com> wrote:





Hi,

 

I have some code I use all the time I use to download a file:

 

if (-e '/report.pdf') {

                open(PDF, '/report.pdf') or die "could not open PDF $!";

                binmode PDF;

                my $output = do { local $/; <PDF> };

                close(PDF);

                $r->content_type('application/pdf');

                $r->err_headers_out->add('Content-Disposition' =>
'attachment; filename="report.pdf"');

                $r->print($output);

}

 

I've never had a problem before using the above until trying to do it on a
new machine. On that machine every time I still get prompted to download the
file but FF/IE says its only 20 bytes (even though the pdf is 200k on the
file system) and what is downloaded is not what is on the filesystem.

 

I tried different files, different paths etc with the same results so I
don't think it's a location or permissions issue.

 

The only thing that gets logged in the attempt is:

 

TIGHT LOOP!!!: Apache2::RequestRec=SCALAR(0x47e2f78) can't
Apache2::RequestRec::print!

 

Any ideas how I could further debug that error to find the cause?

 

TIA!

-Chris

 

 

 

Reply via email to