Hourly fee, defaults to 50.00
+=item B<--tex-only>
+
+Only output the LaTeX file
+
+=item B<--log-only>
+
+Only output the log file
+
=item B<--debug, -d>
Debug verbosity. (Default 0)
help => 0,
man => 0,
log_only => 0,
+ tex_only => 0,
);
GetOptions(\%options,
'time_interval|min-time-interval|T=s',
'hourly_fee|hourly-fee|f=s',
'log_only|log-only',
+ 'tex_only|tex-only',
'debug|d+','help|h|?','man|m');
pod2usage() if $options{help};
$date = undef;
$time = undef;
}
- s/\s*\[[\.\d]+\]\s*\[[\.\d]+\]\s*$//;
- my $string = $_;
- my ($d1,$d2) = map {s/^\s*\*\s*//;
- UnixDate(ParseDate($_),'%s')
- } split /\s*-\s*/;
+ s/\s*\[[\.\d]+\]\s*\[[\.\d]+\]\s*$//;
+ my ($d1,$d2);
+ if (/\s*\*\s*CLOCK:\s+\[([^\]]+)\]--\[([^\]]+)\]/) {
+ $d1 = UnixDate(ParseDate($1),'%s');
+ $d2 = UnixDate(ParseDate($2),'%s');
+ } else {
+ ($d1,$d2) = map {s/^\s*\*\s*//;
+ UnixDate(ParseDate($_),'%s')
+ } split /\s*-\s*/;
+ }
+ my $string = '* '.strftime('%A, %B %e, %H:%M:%S',localtime($d1)).' - '.
+ strftime('%A, %B %e, %H:%M:%S',localtime($d2));
if (not defined $first_date) {
$first_date = $d1;
}
}
$time = $hours;
$totaldelta += $delta;
- $calc_log .= qq($string [).sprintf('%.2f',$hours).qq(] [).sprintf('%.2f',$totaldelta/(60*60)).qq(]\n);
+ $calc_log .= $string.q( [).sprintf('%.2f',$hours).qq(] [).sprintf('%.2f',$totaldelta/(60*60)).qq(]\n);
}
elsif (/^\s+-\s*(.+)/) {
my $event = $1;
exit 0;
}
+if ($options{tex_only}) {
+ print $tex_invoice;
+ exit 0;
+}
+
+
my $invoice_date = strftime('%Y_%m_%d',localtime($last_date));
my $invoice_dir = "invoice_$invoice_date";