push @DEFAULT_INBOX, "/var/mail/$ENV{USER}" if exists $ENV{USER};
push @DEFAULT_INBOX, "$ENV{HOME}/Maildir" if exists $ENV{HOME};
+sub format_time { strftime '%c', localtime shift }
+
sub run {
my $config = Config::Auto->new(format => 'yaml')->parse;
die "No configuration file found\n" unless $config;
my $addrlen = max map { length } values %lastaddr;
for (sort { $lastmsg{$b} <=> $lastmsg{$a} } keys %lastmsg) {
- my $time = strftime '%c', localtime $lastmsg{$_};
+ my $time = format_time $lastmsg{$_};
printf $OUTPUT_FILEHANDLE "%-${idlen}s %-${addrlen}s %s\n", $_, $lastaddr{$_}, $time;
}