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

open(MH, "/mit/mkgray/Mail/mail-audit");

while(<MH>){
    next if /^<<inc>>/;

    s/-//g;
    split;
    ($mon, $day) = split(/\//, $_[1]);
    print $_ if($mon <0 || $day < 0);
    $msgs[$mon*31+$day]++;
    $date[$mon*31+$day]=$_[1];

    $nm = $msgs[($mon*31+$day)-5];
    $msgs[($mon*31+$day)-5] = 0;
    
    if($nm >0){
	$nticks = $nm / 4;
	$ticks = "-" x $nticks;

	print $date[($mon*31+$day)], " $ticks ($nm)\n";
    }
}
