I have a form that targets a reply to a "new" window. I would like to post
the progress of the reply then display an option to "display" or "save" the
file I generate. Here is what I have so far (which is not working)...:
<snip>
$|++;
print $q->header();
...
print "progress...";
...
print "progress...";
...
print $q->b('Request completed');
print $q->end_html(); # jwm 7/6/2004
my $this_report ="$target_directory$pdf";
my $this_report_size = -s "$target_directory$pdf";
print $q->header(-status=>'200 OK',
-type=>'application/octet-stream',
-expires=>'+1d',
-attachment=>'report.pdf',
-Content_length=> $this_report_size);
open REPORT,$this_report;
while (read REPORT, my $buff, 10000) {
print $buff
}
</snip>
Thanks in advance for any help or suggestions,
jwm
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>