add latexize invoice and invoice_calc

[bin.git] / latexize_invoice

diff --git a/latexize_invoice b/latexize_invoice
new file mode 100755 (executable)
index 0000000..1418b46
--- /dev/null
+++ b/latexize_invoice
@@ -0,0 +1,40 @@
+#!/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;
+}