SPUG: Showing progress in the browser

William Julien moonbeam at catmanor.com
Thu Jan 22 14:39:24 CST 2004


>
>List,
>
>I have a question I would like to show the progress on the CGI on the browser for example 10%, 20% 40% of complision. or something like that...Any one knows how I can do this??..

You can do this with an "nph" script. Here is a "hello world"

#!/usr/bin/perl 

#
# this is a demonstration of server push
#

# enable autoflush
$| = 1;   

# send the http header to establish the boundry
print "HTTP/1.0 200\n";
print "Content-type: multipart/x-mixed-replace; boundary=ThisRandomString\n\n"
;

# start the first boundry
print "--ThisRandomString\n";

# loop 10 times
$i = 0;
while ($i < 10) {
  $i++;
  print "Content-type: text/html\n\n";
  print "<html><body><title>This is run $i</title>\n";
  print "<h1>This is run $i</h1></body></html>\n";
  print "--ThisRandomString\n";
  sleep 2;
}

# send the last page
print "Content-type: text/html\n\n";
print "<html><body><title>Fin</title>\n";
print "<h1>Fin</h1></body></html>\n";
print "--ThisRandomString--\n";

exit 0;                        

>
>Thanks,
>Luis

No problem

William
> 
>_____________________________________________________________
>Seattle Perl Users Group Mailing List  
>POST TO: spug-list at mail.pm.org  http://spugwiki.perlocity.org
>ACCOUNT CONFIG: http://mail.pm.org/mailman/listinfo/spug-list
>MEETINGS: 3rd Tuesdays, U-District, Seattle WA
>WEB PAGE: http://www.seattleperl.org
>



More information about the spug-list mailing list