#! /usr/local/bin/perl
################################################
#	Setcookie.cgi - for Referral Partner Program
#	Written by McWeb Software
#	June 1998
################################################

$logfile = "/u6/j/jedwards/public_html/accesslog.txt";  

&log;
exit (0);

sub log {

	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

if ($hour < 10) {
	$hour = "0$hour";
}
	$month = ($mon + 1);
	if ($month < 10) {
		$month = "0$month";
	}
	if ($mday < 10) {
		$mday = "0$mday";
	}
	$weekday = ($wday + 1);
	$day = (Sun,Mon,Tue,Wed,Thu,Fri,Sat) [(localtime) [6]];
	@months = ("January","February","March","April","May","June","July","August","September","October","November","December");
	$date = "$hour | $weekday | $month | $day, $month/$mday/$year";

	if (! open(LOG,">>$logfile")) {
		exit;
	}
	print LOG "$date | $ENV{'HTTP_USER_AGENT'} | $ENV{'REMOTE_HOST'}  \n";
	close (LOG);

}