#!/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'}"
\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";
close (MAINLOG);
exit;