This is occasionally useful and we're not as starved for screen
space now now that sender+timestamps are on a separate line.
my $pfx = (' ' x $level);
my $ts = $mime->header('X-PI-Date');
- my $fmt = '%H:%M UTC';
+ my $time = '%H:%M UTC';
+ my $fmt = $time;
if ($now > ($ts + (365 * 24 * 60 * 60))) {
# doesn't have to be exactly 1 year
- $fmt = '%Y/%m/%d';
+ $fmt = '%Y/%m/%d ' . $time;
} elsif ($now > ($ts + (24 * 60 * 60))) {
- $fmt = '%m/%d';
+ $fmt = '%m/%d ' . $time;
}
$ts = POSIX::strftime($fmt, gmtime($ts));