#!/afs/athena/contrib/perl/perl

while (<>) {
    ($host,$date) = m@^([^ ]+) - - \[(\d+/\w+/\d+)@;

    $bogus++ unless $date;

    if ($date ne $cdate) {
	printf "%6d accesses (%5d from mit) on %s\n", $day, $mit, $cdate
	    if $cdate;
	$day=0;
	$mit=0;
	$cdate=$date;
    }

    $day++;
    $mit++ if ($host =~ /\.mit\.edu$/i);
}

printf "%6d accesses (%5d from mit) on %s\n", $day, $mit, $cdate;
print "$bogus bogus";
