#!/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);