# # If Javascript is disabled in the browser, the effect # should be that no status line will appear, but # everything will still work. This is important! # # Call makestatusline near the start of execution, just # after outputting the HTTP header or soon after so that # the status line will appear ner the top of the page # sub makestatusline { print <<"EOT" ; EOT } # # Now call this function once in a while when you have # something to say to the user. Just make sure you don't # call it while you are in the middle of outputting an # HTML tag (finish the tag first, then call it) # # INPUT: a string, to display in the status line sub newstatus { my ($s) = @_; $| = 1; print <<"EOT" ; EOT }