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 $date = undef;
  16 my @events;
  17 while (<>){
  18      if (/^\s*\*\s*([^-]+)\s+-.+\[([^\]]+)\]\s*\[[^\]]+\]/) {
  19           if (defined $time) {
  20                print format_events($date,$time,@events);
  21           }
  22           @events = ();
  23           $date = $1;
  24           $time = $2;
  25      }
  26      if (/^\s+\-\s*(.+)/) {
  27           my $event = $1;
  28           chomp $event;
  29           push @events, $event;
  30      }
  31 }
  32 if (defined $time) {
  33      print format_events($date,$time,@events);
  34 }
  35
  36 sub format_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";
  43      return $output;
  44 }