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

@wid = (0,0,0,0,0);

%wd =("Mon","Monday","Tue","Tuesday","Wed","Wednesday",
      "Thu","Thursday","Fri","Friday","Sat","Saturday","Sun","Sunday");
%mn = ("Aug","August","Sept","September","Oct","October","Nov","November",
       "Dec","December","December","December");

while (<>) {
    chop;
    if (/^\s*-+\s*$/) {print "\n"; next;}
    if (! /\t/) {next;}
    if (/\((.*)\)\s*\((.*)\)/) {
	($date,$proj,$where,$who) = ($1,$2,"------","------");
    } else {
	($date,$proj,@foo) = split(/\t+/);
	warn "Hrmph. Remainder is (@foo) at line $.\n" if (@foo);
	$where = $who = "???";
    }
    ($dow,$mo,$day,@rest) = split(/ +/,$date);
    chop($dow) if ($dow =~ /\.$/);
    chop($mo)  if ($mo =~ /\.$/);
    $dstr = "$mn{$mo} $day";
    $wstr = $wd{$dow};

    while (@rest && ($rest[0] eq "to")) {
	shift(@rest);
	($dow,$mo,$day) = splice(@rest,0,3);
	chop($dow) if ($dow =~ /\.$/);
	chop($mo)  if ($mo =~ /\.$/);
	$dstr .= "-$mn{$mo} $day";
	$wstr .= "-$wd{$dow}";
    }
    warn "Date messed up at line $.\n" if (@rest);

    print "$dstr & $wstr & $proj & $where & $who\n";
}