#!/usr/bin/perl

#* Saturday, July 22, 2006 19:41:14 PDT - Saturday, July 22, 2006 20:13:23 PDT [0.54] [0.54]
#  - Set up dns slave/master between alpha and beta

#         \Fee{\begin{itemize*}
#           \item setting up rsyncd.conf to sync home directories
#           \item running a test rsync
#           \item add back missing accounts
#           \end{itemize*}
#         }{50.00}{0.94}


my $time = undef;
my $date = undef;
my @events;
while (<>){
     if (/^\s*\*\s*([^-]+)\s+-.+\[([^\]]+)\]\s*\[[^\]]+\]/) {
	  if (defined $time) {
	       print format_events($date,$time,@events);
	  }
	  @events = ();
	  $date = $1;
	  $time = $2;
     }
     if (/^\s+\-\s*(.+)/) {
	  my $event = $1;
	  chomp $event;
	  push @events, $event;
     }
}
if (defined $time) {
     print format_events($date,$time,@events);
}

sub format_events{
     my ($date,$time,@events) = @_;
     $date =~ s/\s+\d+\:\d+\:\d+\s+[A-Z]{0,3}\s*//;
     my $output = '        \Fee{'.$date."\n".
	  '         \begin{itemize*}'."\n";
     $output .= join('',map {"           \\item $_\n"} @events);
     $output .= '         \end{itemize*}}{50.00}{'.$time.'}'."\n";
     return $output;
}