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

Re: Re: Re: Gez

by Juerd (Abbot)
on Mar 14, 2002 at 17:11 UTC ( #151740=note: print w/ replies, xml ) Need Help??


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

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

U28geW91IGNhbiBhbGwgcm90MTMgY
W5kIHBhY2soKS4gQnV0IGRvIHlvdS
ByZWNvZ25pc2UgQmFzZTY0IHdoZW4
geW91IHNlZSBpdD8gIC0tIEp1ZXJk


Comment on Re: Re: Re: Gez
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (6)
As of 2014-12-19 01:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (70 votes), past polls