Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: Re: Gez

by Anonymous Monk
on Mar 14, 2002 at 14:15 UTC ( #151675=note: print w/ replies, xml ) Need Help??

in reply to Re: Gez
in thread Have CGI call script, display status in browser

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

Comment on Re: Re: Gez
Replies are listed 'Best First'.
Re: Re: Re: Gez
by Juerd (Abbot) on Mar 14, 2002 at 17:11 UTC

    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';


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://151675]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (7)
As of 2015-11-30 06:22 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (759 votes), past polls