projects
/
OpenSPARC-T2-DV
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
55a2fbe545cc3513277d9e8145eb7679f3fb9c66
[OpenSPARC-T2-DV]
/
tools
/
perl-5.8.0
/
lib
/
5.8.0
/
CGI
/
eg
/
nph-clock.cgi
#!/usr/local/bin/perl -w
use
CGI
::
Push
qw(:standard :html3)
;
do_push
(-
next_page
=>
\
&
draw_time
,-
delay
=>
1
);
sub
draw_time
{
my
$time
=
`/bin/date`
;
return
start_html
(
'Tick Tock'
),
div
({-
align
=>
CENTER
},
h1
(
'Virtual Clock'
),
h2
(
$time
)
),
hr
,
a
({-
href
=>
'index.html'
},
'More examples'
),
end_html
();
}