\n\n";
print "",$mytitle,"\n";
print "",$version,"\n";
print "
\nline number - IP address - date/time - method - file - protocol - result code - bytes served \n";
print " Result codes\n";
print " - 200 - file found and served
\n";
print " - 302 - file moved
\n";
print " - 304 - file has not changed
\n";
print " - 404 - file not found
\n";
print " - 500 - file access error, somebody tried to access a file outside the web server folder.
\n";
print " \n";
print "
\n\n\n";
# Open up the log file
open(LOGFILE, $mylogfilename) or $error = 1;
if ($error == 1) {
print $errormessage; }
else {
# get the data
@data = ;
foreach $line(@data) {
# get rid of the overload logs that Apache cannot filter out
if (($line =~ m/^.*\"SEARCH.*\"/) or ($line =~ m/^.*\"CONNECT.*\"/)) {
}
else {
# filter out the local net addresses (10.0.1.x and 192.168.1.x)
if (($line =~ m/^10\D0\D1\D*/) or ($line =~ m/^192\D168\D1\D*/)) {
}
else {
# convert the numbers into 3 digits each for easier readability
# match first number in ip address
if ($line =~ m/^\d\D/) {
$first = join("","00",substr($line,0,1));
$line =~ s/^\d\D//;
}
elsif ($line =~ m/^\d\d\D/) {
$first = join("","0",substr($line,0,2));
$line =~ s/^\d\d\D//;
}
else {
$first = substr ($line,0,3);
$line =~ s/^\d\d\d\D//;
};
# match second number in ip address
if ($line =~ m/^\d\D/) {
$second = join("","00",substr($line,0,1));
$line =~ s/^\d\D//;
}
elsif ($line =~ m/^\d\d\D/) {
$second = join("","0",substr($line,0,2));
$line =~ s/^\d\d\D//;
}
else {
$second = substr ($line,0,3);
$line =~ s/^\d\d\d\D//;
};
# match third number in ip address
if ($line =~ m/^\d\D/) {
$third = join("","00",substr($line,0,1));
$line =~ s/^\d\D//;
}
elsif ($line =~ m/^\d\d\D/) {
$third = join("","0",substr($line,0,2));
$line =~ s/^\d\d\D//;
}
else {
$third = substr ($line,0,3);
$line =~ s/^\d\d\d\D//;
};
# match fourth number in ip address
if ($line =~ m/^\d\D/) {
$fourth = join("","00",substr($line,0,1));
$line =~ s/^\d\D//;
}
elsif ($line =~ m/^\d\d\D/) {
$fourth = join("","0",substr($line,0,2));
$line =~ s/^\d\d\D//;
}
else {
$fourth = substr ($line,0,3);
$line =~ s/^\d\d\d\D//;
};
# convert the IP back into 4 digits
$ip = join(".", $first, $second, $third, $fourth);
# The URL of the whois server query
$whois = join("", "http://ws.arin.net/cgi-bin/whois.pl?queryinput=", $ip);
$linenumber++;
$line =~ s/\n//;
print "",$linenumber,": ",$ip," ",$line," \n";
};
};
};
close(LOGFILE);
if ($linenumber == 0) {
print "No log entries at this time. The log has just been freshly cleaned. \n";
};
};
# print the HTML footer
print "\n\n
\n";
print "The End\n
\n";
print " | \n
\n