#!/usr/bin/perl -w

# Name     : Perl Clock
# Author   : Terrence Ma
# Email    : terrence@terrence.com
# Web      : http://www.terrence.com
# Date     : V1.1 10/03/2001, V1.0 09/20/2000
# License  : GNU GPL - http://www.gnu.org/copyleft/gpl.html
# Warranty : No Warranty

# use lib
use 5;
use strict;
use CGI::Pretty;

# init variables
my $cgi      = new CGI;
my $title    = "Perl Clock";
my $url      = "http://www.terrence.com/perl/clock/clock.cgi";
my $source   = "http://www.terrence.com/perl/clock/clock.txt";
my $delay    = 5;
my $timezone = ((localtime)[8] == 0) ? " CST" : " CDT";
my $timenow  = scalar(localtime()) . $timezone;

# main program
# set refresh variables $delay, $url
# print page

# print header
print $cgi->header(-refresh=>"$delay; URL=$url",
                   -type=>"text/html"),
      $cgi->start_html($title);

print $cgi->center($cgi->h1($title)),
      $cgi->hr(),
      $cgi->br();

# print body
print $cgi->center
      (
        $cgi->table
        (
          {-border=>"1"},
          $cgi->Tr
          (
            $cgi->td
            (
              {-align=>"center", -bgcolor=>"#0000ff"},
              $cgi->font({-color=>"#ffffff"}, $cgi->b("$title"))
            )
          ),
          $cgi->Tr
          (
            $cgi->td
            (
              {-align=>"center"},
              $timenow
            )
          )
        )
      );

# print footer
print $cgi->br(),
      $cgi->hr(),
      $cgi->a({-href=>$source},
              "Program Source"),
      $cgi->br(),
      $cgi->end_html();

exit(0);