#!/usr/bin/perl

###########################################################################
#                                                                         #
# COPYRIGHT NOTICE                                                        #
# Copyright 2001 Hanna Camille Werner - HC Scripts (c)2001                #
# Not for re-sell or re-distribution.                                     #
#                                                                         #
###########################################################################
#                                                                         #
#                 DO NOT CHANGE ANYTHING BELOW THIS LINE                  #
#                                                                         #
###########################################################################

require 'clock.cfg';

($hcsec,$hcmin,$hchour,$hcday,$hcmon,$hcyear,$isdst) = localtime(time + (3600*$time_miss));
($hcisec,$hcimin,$hcihour,$hciday,$hcimon,$hciyear,$isdsti) = localtime(time + (3600*$time_miss));
@months = qw(January February March April May June July August September October November December);
$hcmon++;
$hcyear = $hcyear + 1900;
$hciyear = $hciyear + 1900;
if ($hcmon<10) {$hcmon="0$hcmon";}
if ($hcday<10) {$hcday="0$hcday";}
if ($hchour<10){$hchour="0$hchour";}
if ($hcmin<10) {$hcmin="0$hcmin";}
if ($hcsec<10) {$hcsec="0$hcsec";}

$th ="th";

print "Content-type: text/html\n\n";

if ($format == 1) {
print "document.write(\"$hcday/$hcmon/$hcyear ($hchour:$hcmin)\");";
} elsif ($format == 2) {
print "document.write(\"$hcday-$hcmon-$hcyear ($hchour:$hcmin)\");";
} elsif ($format == 3) {
print "document.write(\"$hcday.$hcmon.$hcyear ($hchour:$hcmin)\");";
} elsif ($format == 4) {
print "document.write(\"$hcyear/$hcmon/$hcday ($hchour:$hcmin)\");";
} elsif ($format == 5) {
print "document.write(\"$hcyear-$hcmon-$hcday ($hchour:$hcmin)\");";
} elsif ($format == 6) {
print "document.write(\"$hcyear.$hcmon.$hcday ($hchour:$hcmin)\");";
} elsif ($format == 7) {
print "document.write(\"$months[$hcimon] $hciday$th, $hciyear\");";
} elsif ($format == 8) {
print "document.write(\"$hciday$th $months[$hcimon], $hciyear ($hchour:$hcmin)\");";
}