blob: 0d35cf516e22fa6f6b0de4ed64c5ecf3f4594fb2 (
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
|
#!/usr/bin/env perl
use strict;
use warnings;
use Env qw(HOME);
use constant MC_FILE_PATH => '/tmp/mc_';
sub get_all_accs
{
opendir(my $dh, $ENV{'MAIL'});
return;
}
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 = (ACCOUNTS);
get_all_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__
|
