X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FApp%2FLastmsg.pm;h=07f71db434c4789cceab6035c054527780f5f4ed;hb=45e63402a29d03e13babf2d8937b98047df14bfc;hp=827cd364fef6365540cf428c09770b20ff1b4bd8;hpb=82af6c123c3cc37d8c4174dbb7e5180e067fd7dd;p=app-lastmsg.git

diff --git a/lib/App/Lastmsg.pm b/lib/App/Lastmsg.pm
index 827cd36..07f71db 100644
--- a/lib/App/Lastmsg.pm
+++ b/lib/App/Lastmsg.pm
@@ -12,12 +12,13 @@ use List::Util qw/max/;
 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;
@@ -58,14 +59,14 @@ sub run {
 
 	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);
@@ -74,7 +75,7 @@ sub run {
 
 	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;
@@ -84,7 +85,7 @@ sub run {
 			}
 			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);
@@ -95,7 +96,7 @@ sub run {
 	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;
 	}