3 #* Saturday, July 22, 2006 19:41:14 PDT - Saturday, July 22, 2006 20:13:23 PDT [0.54] [0.54]
4 # - Set up dns slave/master between alpha and beta
6 # \Fee{\begin{itemize*}
7 # \item setting up rsyncd.conf to sync home directories
8 # \item running a test rsync
9 # \item add back missing accounts
18 if (/^\s*\*\s*([^-]+)\s+-.+\[([^\]]+)\]\s*\[[^\]]+\]/) {
20 print format_events($date,$time,@events);
26 if (/^\s+\-\s*(.+)/) {
33 print format_events($date,$time,@events);
37 my ($date,$time,@events) = @_;
38 $date =~ s/\s+\d+\:\d+\:\d+\s+[A-Z]{0,3}\s*//;
39 my $output = ' \Fee{'.$date."\n".
40 ' \begin{itemize*}'."\n";
41 $output .= join('',map {" \\item $_\n"} @events);
42 $output .= ' \end{itemize*}}{50.00}{'.$time.'}'."\n";