#!/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 @events;
while (<>){
     if (/^\s*\*.+\[([^\]]+)\]\s*\[[^\]]+\]/) {
	  if (defined $time) {
	       print format_events($time,@events);
	  }
	  @events = ();
	  $time = $1;
     }
     if (/^\s+\-\s*(.+)/) {
	  my $event = $1;
	  chomp $event;
	  push @events, $event;
     }
}
if (defined $time) {
     print format_events($time,@events);
}

sub format_events{
     my ($time,@events) = @_;
     my $output = '        \Fee{\begin{itemize*}'."\n";
     $output .= join('',map {"          \\item $_\n"} @events);
     $output .= '        \end{itemize*}}{50.00}{'.$time.'}'."\n";
     return $output;
}