#!/usr/local/bin/perl
$log_file = "/var/local/www/logs/access_log";
$n = ($ENV{'QUERY_STRING'}) ? $ENV{'QUERY_STRING'}:2500;

open (INPUT, "/usr/local/bin/gtail -$n $log_file|") || die "Could not open $log_file\n";
print("Content-type: text/html\n\n");

$pi = 1 if $ENV{'PATH_INFO'};
$pire = substr($ENV{'PATH_INFO'},1) if $pi;
print("Pire: $pire");
while(<INPUT>)
{
	split;
	$uri = $_[6];
	$referer = $_[10];
	next if $referer eq "-";
	next if $referer =~m,http://www.mit.edu,;
	if($pi){
		next unless $uri =~ /$pire/;
	}
	$refs{"$referer -> $uri"}++;
}

@top = sort {$refs{$b} <=> $refs{$a}; } keys %refs;

print("<h1>Top Referers on www.mit.edu</h1>");
print("<ul>\n");
for $x (@top){
	print("<li>$x [$refs{$x}]\n");
}
print("</ul>\n");