use warnings;
use DBI;
+use Date::Parse;
use Getopt::Long;
use Term::ReadLine;
use Term::ANSIColor;
my $int = quarter(hdiff($t[0], $t[1], $d_hour, $d_min));
$int += 24 * 60 unless $today;
- printf "%-15s %s %s (%s) %s\n", $row->{customer}, $day, $time, min2hour($int), $row->{task};
+ my $timediff = (str2time($row->{start}) - ( time() - ($int*60) )) / 60;
+ printf "%-15s %s %s%s (%s) %s\n", $row->{customer}, $day, $time,
+ $timediff > 1 ? color('green').sprintf("[+%d]", $timediff).color('reset') : '',
+ min2hour($int), $row->{task};
}
}
exit 0 if $exit;
}
my $day = (split(/ /, $row->{start}))[0];
my $time = min2hour $row->{time};
- print color($colors[$color]);
+ print color($colors[$color]) if -t STDOUT;
printf "%-15s %s %s %s", $row->{customer}, $day, $time, $row->{task};
- print color('reset'), "\n";
+ print color('reset') if -t STDOUT;
+ print "\n";
}
}
}