#!/usr/bin/perl

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

$mainlog = '/mnt/web_c/d31/s02/a000ras1/www/main.log';
$shortdate = `date +"%D %T %Z"`; 
chop ($shortdate);
open (MAINLOG, ">>$mainlog");
print MAINLOG "Time: $shortdate\n";
print MAINLOG "User: $ENV{'REMOTE_IDENT'}"<br />\n";
print MAINLOG "Host: $ENV{'REMOTE_HOST'}"<br />\n";
print MAINLOG "Addr: $ENV{'REMOTE_ADDR'}"<br />\n";
print MAINLOG "With: $ENV{'HTTP_USER_AGENT'}"<br />\n";
print MAINLOG "Page: $ENV{'DOCUMENT_URI'}"<br />\n";
print MAINLOG "From: $ENV{'HTTP_REFERER'}"<br />\n";
close (MAINLOG);
exit;