http://qs321.pair.com?node_id=151663


in reply to Have CGI call script, display status in browser

Sounds like you've got a misunderstanding.

Point the form you are submitting to the cgi script you want to run. E.g. <form action='foobar.cgi' method='post'>

Then make the script parse the form inputs and print out an HTML page. E.g. 

#!/usr/bin/perl -w
# this is foobar.cgi

use strict;
# untested

use CGI;
my $cgi = new CGI;
print $cgi->header, $cgi->start_html;

print "You entered " . $cgi->param('form_input_name') . "<br>";

print $cgi->end_html;
exit;

[download]

No need to use system. dave hj~

Replies are listed 'Best First'.
Re: Re: Gez
by Anonymous Monk on Mar 14, 2002 at 14:15 UTC
    Sorry, I should have been more specific The perl script I am trying to start from a submit button, creates text files based on data read from a database, then saves these files to disk. Its output just prints 'RUNNING', and 'COMPLETE' to STDOUT, which in this case needs to be an HTML form so that I know the status of the perl script
[reply]

      which in this case needs to be an HTML form so that I know the status of the perl script

      First, output 512 bytes to make browsers render. Some browsers will never render until the page is loaded completely (like Konqueror), but this works with at least Mozilla and MSIE.
      Then, start outputting.

      It's a very good idea to set $| to 1, to avoid all buffering. You could use javascript to make it look good. 

      #!/usr/bin/perl -w
use strict;

$|++;

sub set_status {
    my ($status) = @_;
    print '<script> document.getElementById("status").innerHTML = "' .
          $status . '"; </script>"';
}

print qq{Content-Type: text/html\n
    <html><body><div style="font-size:288pt;">
    Current status:
    <div id=status>Initialising</div>
    <!-- }, "Z" x 512, q{ -->
    </div></body></html>
};

sleep 2;
set_status 'RUNNING';
sleep 5;
set_status 'COMPLETE';

      [download]

      U28geW91IGNhbiBhbGwgcm90MTMgY
W5kIHBhY2soKS4gQnV0IGRvIHlvdS
ByZWNvZ25pc2UgQmFzZTY0IHdoZW4
geW91IHNlZSBpdD8gIC0tIEp1ZXJk

[reply]
[d/l]

In Section Seekers of Perl Wisdom