latexize_invoice

   1 #!/usr/bin/perl
   2
   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
   5
   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
  10 #           \end{itemize*}
  11 #         }{50.00}{0.94}
  12
  13
  14 my $time = undef;
  15 my @events;
  16 while (<>){
  17      if (/^\s*\*.+\[([^\]]+)\]\s*\[[^\]]+\]/) {
  18           if (defined $time) {
  19                print format_events($time,@events);
  20           }
  21           @events = ();
  22           $time = $1;
  23      }
  24      if (/^\s+\-\s*(.+)/) {
  25           my $event = $1;
  26           chomp $event;
  27           push @events, $event;
  28      }
  29 }
  30 if (defined $time) {
  31      print format_events($time,@events);
  32 }
  33
  34 sub format_events{
  35      my ($time,@events) = @_;
  36      my $output = '        \Fee{\begin{itemize*}'."\n";
  37      $output .= join('',map {"          \\item $_\n"} @events);
  38      $output .= '        \end{itemize*}}{50.00}{'.$time.'}'."\n";
  39      return $output;
  40 }