#!/afs/athena/contrib/perl/perl
# NOTE: this takes the output of
#    gsort +7.8n +7.4M +7n
# on the log digest and unifies it...

%mnum = ("Jan",1, "Feb",2, "Mar",3, "Apr",4, "May",5, "Jun",6,
	 "Jul",7, "Aug",8, "Sep",9, "Oct",10, "Nov",11, "Dec",12);

while (<>) {
    ($req,$foo,$mit,$foo,$dom,$foo,$month,$foo,$year)
	= unpack("a6a11a5a14a2aa3aa4", $_);
    print "$dom/$month/$year $req $mit\n";
}