]>
iEval git - app-lastmsg.git/blob - App/Lastmsg.pm
8 $Config::Auto
::DisablePerl
= 1;
11 use List
::Util qw
/max/;
12 use POSIX qw
/strftime/;
14 our $OUTPUT_FILEHANDLE = \
*STDOUT
;
15 our $VERSION = '0.001001';
17 our @DEFAULT_INBOX = (
18 "/var/mail/$ENV{USER}",
19 "$ENV{HOME}/Maildir/",
23 my $config = Config
::Auto
->new(format
=> 'yaml')->parse;
24 die "No configuration file found\n" unless $config;
25 die "No addresses to track listed in config\n" unless $config->{track
};
27 $config->{inbox
} //= [];
28 $config->{sent
} //= [];
29 $config->{inbox
} = [$config->{inbox
}] unless ref $config->{inbox
};
30 $config->{sent
} = [$config->{sent
}] unless ref $config->{sent
};
31 $config->{inbox
} = \
@DEFAULT_INBOX unless @
{$config->{inbox
}};
33 my %track = %{$config->{track
}};
34 my %addr_to_id = map {
36 my $track = $track{$id};
37 $track = [$track] unless ref $track;
38 map { $_ => $id } @
$track
41 my (%lastmsg, %lastaddr);
43 my $process_message = sub {
44 my ($msg, @people) = @_;
45 for my $addr (@people) {
46 ($addr) = $addr =~ /<\s*(.+)\s*>/ if $addr =~ /</;
49 my $id = $addr_to_id{$addr};
51 my $date = str2time
$msg->header_raw('Date');
52 if (!exists $lastmsg{$id} || $lastmsg{$id} < $date) {
53 $lastmsg{$id} = $date;
54 $lastaddr{$id} = $addr;
59 for my $folder (@
{$config->{inbox
}}) {
60 next unless -e
$folder;
61 say "Scanning $folder (inbox)" if $ENV{LASTMSG_DEBUG
};
62 my $folder = Email
::Folder
->new($folder);
63 while (my $msg = $folder->next_message) {
64 my ($from) = grep { /^from$/i } $msg->header_names;
65 $from = $msg->header_raw($from);
66 if ($ENV{LASTMSG_DEBUG
}) {
67 my $mid = grep { /^message-id$/i } $msg->header_names;
68 say 'Processing ', $msg->header_raw('Message-ID'),
69 " from $from" if $ENV{LASTMSG_DEBUG
};
71 $process_message->($msg, $from);
75 for my $folder (@
{$config->{sent
}}) {
76 next unless -e
$folder;
77 say "Scanning $folder (sent)" if $ENV{LASTMSG_DEBUG
};
78 my $folder = Email
::Folder
->new($folder);
79 while (my $msg = $folder->next_message) {
80 my @hdrs = grep { /^(?:to|cc|bcc)$/i } $msg->header_names;
83 @people = (@people, split /,/, $msg->header_raw($hdr));
85 if ($ENV{LASTMSG_DEBUG
}) {
86 my $mid = grep { /^message-id$/i } $msg->header_names;
87 say 'Processing ', $msg->header_raw($mid),
88 ' sent to ', join ',', @people if $ENV{LASTMSG_DEBUG
};
90 $process_message->($msg, @people);
94 my $idlen = max
map { length } keys %track;
95 my $addrlen = max
map { length } values %lastaddr;
97 for (sort { $lastmsg{$b} <=> $lastmsg{$a} } keys %lastmsg) {
98 my $time = strftime
'%c', localtime $lastmsg{$_};
99 printf $OUTPUT_FILEHANDLE "%-${idlen}s %-${addrlen}s %s\n", $_, $lastaddr{$_}, $time;
102 for (grep { !exists $lastmsg{$_} } sort keys %track) {
103 printf $OUTPUT_FILEHANDLE "%-${idlen}s %-${addrlen}s NOT FOUND\n", $_, ''
114 App::Lastmsg - last(1) semblance for your inbox
123 This module contains the implementation of the L<lastmsg(1)> script.
124 See that script's documentation for information on what it does.
132 Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
134 =head1 COPYRIGHT AND LICENSE
136 Copyright (C) 2016 by Marius Gavrilescu
138 This library is free software; you can redistribute it and/or modify
139 it under the same terms as Perl itself, either Perl version 5.24.1 or,
140 at your option, any later version of Perl 5 you may have available.
This page took 0.054819 seconds and 4 git commands to generate.