use POSIX qw/strftime/;
our $OUTPUT_FILEHANDLE = \*STDOUT;
-our $VERSION = '0.001';
+our $VERSION = '0.001002';
-our @DEFAULT_INBOX = (
- "/var/mail/$ENV{USER}",
- "$ENV{HOME}/Maildir/",
-);
+our @DEFAULT_INBOX;
+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;
for my $folder (@{$config->{inbox}}) {
next unless -e $folder;
- say "Scanning $folder (inbox)" if $ENV{LASTMSG_DEBUG};
+ say STDERR "Scanning $folder (inbox)" if $ENV{LASTMSG_DEBUG};
my $folder = Email::Folder->new($folder);
while (my $msg = $folder->next_message) {
my ($from) = grep { /^from$/i } $msg->header_names;
$from = $msg->header_raw($from);
if ($ENV{LASTMSG_DEBUG}) {
my $mid = grep { /^message-id$/i } $msg->header_names;
- say 'Processing ', $msg->header_raw('Message-ID'),
+ say STDERR 'Processing ', $msg->header_raw('Message-ID'),
" from $from" if $ENV{LASTMSG_DEBUG};
}
$process_message->($msg, $from);
for my $folder (@{$config->{sent}}) {
next unless -e $folder;
- say "Scanning $folder (sent)" if $ENV{LASTMSG_DEBUG};
+ say STDERR "Scanning $folder (sent)" if $ENV{LASTMSG_DEBUG};
my $folder = Email::Folder->new($folder);
while (my $msg = $folder->next_message) {
my @hdrs = grep { /^(?:to|cc|bcc)$/i } $msg->header_names;
}
if ($ENV{LASTMSG_DEBUG}) {
my $mid = grep { /^message-id$/i } $msg->header_names;
- say 'Processing ', $msg->header_raw($mid),
+ say STDERR 'Processing ', $msg->header_raw($mid),
' sent to ', join ',', @people if $ENV{LASTMSG_DEBUG};
}
$process_message->($msg, @people);
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;
}