#! /usr/local/bin/perl

# logger.cgi
# version 1.0
#
# Create a file called main.log. Must have write permissions
# set to main.log

$mainlog = "main.log";
$shortdate = `date +"%D %T %Z"`; 
chop ($shortdate);
print "Content-type: text/plain\n\n ";
open (MAINLOG, ">>$mainlog");
print MAINLOG "Time: $shortdate\n";
print MAINLOG "User: $ENV{'REMOTE_IDENT'}\n";
print MAINLOG "Host: $ENV{'REMOTE_HOST'}\n";
print MAINLOG "Addr: $ENV{'REMOTE_ADDR'}\n";
print MAINLOG "With: $ENV{'HTTP_USER_AGENT'}\n";
print MAINLOG "Page: $ENV{'DOCUMENT_URI'}\n";
print MAINLOG "From: $ENV{'HTTP_REFERER'}\n\n";
close (MAINLOG);
exit;