#!/usr/bin/perl
# We wish to point out that this is an adaption of a script available at http://scripts.grant-net.co.uk/
# Credit must go to the author above.


### FORM DATA #######################################

	if ($ENV{'REQUEST_METHOD'} eq 'GET') {
        	$buffer = $ENV{'QUERY_STRING'};
	}	
	else {
        	read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	}

	@pairs = split(/&/, $buffer);
	foreach $pair (@pairs) {
        	($name, $value) = split(/=/, $pair);
        	$value =~ tr/+/ /;
        	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        	$FORM{$name} = $value;
	}

### FORM DATA #######################################

$use = $FORM{'use'};

###################################################
($Second, $Minute, $Hour, $DayOfMonth, $Month, $Year, 
$WeekDay, $DayOfYear, $IsDST) = localtime(time);
$RealMonth = $Month + 1;
$ShortYear = ($Year % 100);
###################################################

@DayNames = ('Sunday', 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday');
@TimeArr = localtime(time);

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

$Date = "$DayNames[$TimeArr[6]] $DayOfMonth $DayEnd $MonthNames[$TimeArr[4]] 0$ShortYear";


if ($use eq "javascript") {
print "Content-type: text\n\n";
print "document.write(\'$Date\')\;\n";
exit;
}

exit;