#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
#while (($key, $val) = each %ENV) {
# print "$key = $val
\n";
#}
#opendir (ROOT,"/") || die "no /?: $!";
#while ($name = readdir(ROOT)) { #scalar content, one per loop
# print "$name\n";
#}
#closedir(ROOT);
system("touch /usr/local/etc/httpd/htdocs/wittys/logs/access.my");
system("date >> /usr/local/etc/httpd/htdocs/wittys/logs/access.my");
$from = $ENV{"HTTP_REFERER"};
$browser = $ENV{"HTTP_USER_AGENT"};
$host = $ENV{"REMOTE_HOST"};
$what = $ENV{"SCRIPT_NAME"};
$doc = $ENV{"DOCUMENT_NAME"};
$whatelse = $ENV{"REQUEST_URI"};
open(A,">> /usr/local/etc/httpd/htdocs/wittys/logs/access.my");
print A "$host from $from using $browser looked at $whatelse\n";
close(A);
#print "Connection from $host using $browser has been logged
\n";
Slide 44 of 48
