RT/Invoicing/report_time - diff

Return to report_time CVS log

Up to [local] / RT / Invoicing

version 1.1, 2020/08/04 02:14:42

version 1.3, 2020/08/04 02:23:48

Line 1

#!/usr/bin/perl

# $AFresh1$

# $AFresh1: report_time,v 1.2 2020/08/04 01:22:44 afresh1 Exp $

use v5.16;

use warnings;

Line 51

close $fh;

}

my %total;

foreach my $key (sort keys %entries) {

my %total;

my $start;

foreach my $entry (@{ $entries{$key} }) {

Line 60

$entry->{datetime} = Time::Piece->new->strptime(

$entry->{dt}, "%a %b %e %H:%M:%S %Z %Y");

$total{ $entry->{datetime}->date }

$total{ $entry->{datetime}->date }{$key}

+= $entry->{datetime} - $start->{datetime}

if $start;

Line 70

# If we have a timer running, pretend it stops now.

if ($start) {

my $now = localtime;

$total{ $now->date } += $now - $start->{datetime}

$total{ $now->date }{$key} += $now - $start->{datetime}

}

foreach my $date ( sort keys %total ) {

foreach my $key ( sort keys %{ $total{$date} } ) {

my $hours = $total{$date}{$key}->hours;

# round to the quarter hour

my $hours = sprintf "%.2f",

$hours = sprintf "%.2f",

25 * sprintf "%.2f", $total{$date}->hours / 25;

25 * sprintf "%.2f", $hours / 25;

say "$date $hours $key" if $hours != 0;

say "$date $hours $key";# if $hours != 0;

}