blob: 0a8891476eeca8d889913e5f3964b09fc3c27aaf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
#!/usr/bin/env perl
use strict;
use warnings;
use Env qw(HOME);
use constant MC_FILE_PATH => '/tmp/mc_';
sub get_all_accounts
{
my @accs;
opendir(my $dh, $ENV{'MAIL'}) or die $!;
@accs = readdir($dh);
closedir($dh);
return @accs;
}
sub count_new_mails
{
my ($acc, $maildir) = @_;
my $count;
my $dir;
my $path = $maildir . $acc . '/INBOX/new';
$count = 0;
opendir(my $dh, $path) or die $!;
$count = grep { -f "$path/$_"} readdir($dh);
closedir($dh);
return $count;
}
sub fetch_mail
{
$ENV{'MAIL'} = $HOME . '/.local/share/mail';
$ENV{'GNUPGHOME'} = $HOME . '/.local/share/gnupg';
$ENV{'PASSWORD_STORE_DIR'} = $HOME . '/.local/share/pass';
my $maildir = $ENV{'MAIL'} . '/';
my @accs = get_all_accounts();
print @accs;
# my $mc_file = MC_FILE_PATH . $accs[0];
# my $pre_count = count_new_mails($accs[0], $maildir);
# print $pre_count . "\n";
return;
}
fetch_mail();
__END__
|
