#!/usr/bin/perl

use CGI;

$q = new CGI;

print $q->header, $q->start_html; 

open(AB, "/u/dgerman/apache/logs/access_log");
%access = {};
while ($line = <AB>) { 
  if ($line =~ /\/(\w\w\w)\//) {
    $month = $1; 
    $access{$month} += 1; 
  } 
}
close(AB); 

print "<table border cellpadding=2>"; 

foreach $k ("Aug", "Sep", "Oct", "Nov", "Dec", "Jan", "Feb", "Mar") {
  print "<tr><td>", $k, " <td align=right> ", $access{$k}; 
}

print "</table>";