#!/usr/local/bin/perl
##############################################################################
# TextClock                     Version 1.0.2                                #
# Copyright 1996 Matt Wright    mattw@worldwidemart.com                      #
# Created 7/15/96               Last Modified 7/15/96                        #
# Scripts Archive at:           http://www.worldwidemart.com/scripts/        #
##############################################################################
# COPYRIGHT NOTICE                                                           #
# Copyright 1996 Matthew M. Wright  All Rights Reserved.                     #
#                                                                            #
# TextClock may be used and modified free of charge by anyone so long as     #
# this copyright notice and the comments above remain intact.  By using this #
# code you agree to indemnify Matthew M. Wright from any liability that      #  
# might arise from it's use.                                                 #  
#                                                                            #
# Selling the code for this program without prior written consent is         #
# expressly forbidden.  In other words, please ask first before you try and  #
# make money off of my program.                                              #
#                                                                            #
# Obtain permission before redistributing this software over the Internet or #
# in any other medium.  In all cases copyright and header must remain intact #
##############################################################################
# Define Variables							     #



# Done									     #
##############################################################################

@Week_Days = ('Sunday','Monday','Tuesday','Wednesday',
	      'Thursday','Friday','Saturday');

@Months = ('January','February','March','April','May','June','July',
	   'August','September','October','November','December');


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



($Second,$Minute,$Hour,$Month_Day,
$Month,$Year,$Week_Day,$IsDST) = (localtime)[0,1,2,3,4,5,6,8]; 


if ($Second < 10) {
    $Second = "0$Second"; 
}
if ($Minute < 10) {
    $Minute = "0$Minute"; 
}
if ($Hour < 10) {
    $Hour = "0$Hour"; 
}
if ($Month_Day < 10) {
    $Month_Day = "0$Month_Day"; 
}
$Year += 1900;

print "clock=";
    print "$Week_Day$Hour$Minute$Second";



exit;