* Add alarm

[bin.git] / latexize_invoice

diff --git a/latexize_invoice b/latexize_invoice
index 1418b46e9c2b1e9762c517dbf80856fe5e5d16e0..3ab22f03055957c8c8eb75dace6c75d484c4c3e7 100755 (executable)
--- a/latexize_invoice
+++ b/latexize_invoice
@@ -12,14 +12,16 @@
 
 
 my $time = undef;
+my $date = undef;
 my @events;
 while (<>){
-     if (/^\s*\*.+\[([^\]]+)\]\s*\[[^\]]+\]/) {
+     if (/^\s*\*\s*([^-]+)\s+-.+\[([^\]]+)\]\s*\[[^\]]+\]/) {
          if (defined $time) {
-              print format_events($time,@events);
+              print format_events($date,$time,@events);
          }
          @events = ();
-         $time = $1;
+         $date = $1;
+         $time = $2;
      }
      if (/^\s+\-\s*(.+)/) {
          my $event = $1;
@@ -28,13 +30,15 @@ while (<>){
      }
 }
 if (defined $time) {
-     print format_events($time,@events);
+     print format_events($date,$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";
+     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;
 }