| Revision: | 1.1 |
| Committed: | Thu Jun 30 14:27:10 2005 UTC (21 years, 4 months ago) by root |
| Branch: | MAIN |
| CVS Tags: | PERL-5-8-7, HEAD |
| Branch point for: | PERL |
| Log Message: | *** empty log message *** |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | root | 1.1 | #!/usr/local/bin/perl -w |
| 2 | |||
| 3 | use CGI::Push qw(:standard :html3); | ||
| 4 | |||
| 5 | do_push(-next_page=>\&draw_time,-delay=>1); | ||
| 6 | |||
| 7 | sub draw_time { | ||
| 8 | my $time = `/bin/date`; | ||
| 9 | return start_html('Tick Tock'), | ||
| 10 | div({-align=>CENTER}, | ||
| 11 | h1('Virtual Clock'), | ||
| 12 | h2($time) | ||
| 13 | ), | ||
| 14 | hr, | ||
| 15 | a({-href=>'index.html'},'More examples'), | ||
| 16 | end_html(); | ||
| 17 | } | ||
| 18 |