#!/usr/bin/perl

#####################################
# TPA DATE
# The Perl Archive
# http://www.perlarchive.com/
#
# This program is 100% freeware - do 
# with it what you wish.
#

$font 	= '<FONT FACE="Verdana,sans serif" SIZE=1>';

&date;

print "Content-type: text/html\n\n";
print qq~
$font
Thank you for visiting, $ENV{'REMOTE_ADDR'}<BR>
It is $fulldate at $time.
~;

if ($ENV{'HTTP_REFERER'}){
    print qq~<P><A HREF="$ENV{'HTTP_REFERER'}">Back</A>~;
}

print "</FONT>";

exit;


sub date {
	@days   = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
	@monthsword = ('January','February','March','April','May','June','July','August','September','October','November','December');
	($sec,$min,$hour,$day,$mon,$year,$wday) = localtime(time);
	$time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
	$year += 1900;

	$monthword	= $monthsword[$mon];
	$dayword	= $days[$wday];

	$fulldate	= "<I>$dayword, $monthword  $day, $year</I>";
}