add latexize invoice and invoice_calc

[bin.git] / invoice_calc

diff --git a/invoice_calc b/invoice_calc
new file mode 100755 (executable)
index 0000000..21e1a18
--- /dev/null
+++ b/invoice_calc
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+
+use Date::Manip;
+
+$totaldelta=undef;
+
+while (<>) {
+     chomp;
+     if (/^\* /) {
+         my $string = $_; 
+         my ($d1,$d2) = map {s/^\*\s*//;
+                             ParseDate($_)
+                        } split /\s*-\s*/; 
+         my $delta = DateCalc($d1,$d2);
+         $totaldelta = defined($totaldelta)?DateCalc($delta,$totaldelta):$delta;
+         print qq($string [).Delta_Format($delta,2,q(%ht)).qq(] [).Delta_Format($totaldelta,2,q(%ht)).qq(]\n);
+     }
+     else {
+         print $_,qq(\n);
+     }
+}
+
+print "\nTotal: ".Delta_Format($totaldelta,2,q(%ht)).qq(\n);