repo.or.cz
/
msysgit
/
kusma.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Upgrade to Perl 5.8.8
[msysgit/kusma.git]
/
lib
/
perl5
/
5.8.8
/
CGI
/
eg
/
nph-clock.cgi
blob
55a2fbe545cc3513277d9e8145eb7679f3fb9c66
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