summaryrefslogtreecommitdiffstats
path: root/contrib/perl5/eg/cgi/nph-clock.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/perl5/eg/cgi/nph-clock.cgi')
-rw-r--r--contrib/perl5/eg/cgi/nph-clock.cgi18
1 files changed, 0 insertions, 18 deletions
diff --git a/contrib/perl5/eg/cgi/nph-clock.cgi b/contrib/perl5/eg/cgi/nph-clock.cgi
deleted file mode 100644
index 55a2fbe..0000000
--- a/contrib/perl5/eg/cgi/nph-clock.cgi
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/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();
-}
-
OpenPOWER on IntegriCloud