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>


Reply via email to