diff options
| -rw-r--r-- | .config/catgirl/libera | 2 | ||||
| -rwxr-xr-x | .local/bin/fetch_mail | 46 |
2 files changed, 47 insertions, 1 deletions
diff --git a/.config/catgirl/libera b/.config/catgirl/libera index 5823da9..34e3dca 100644 --- a/.config/catgirl/libera +++ b/.config/catgirl/libera @@ -2,6 +2,6 @@ host = irc.eu.libera.chat nick = jozan cert = libera.pem sasl-external -join = #linux,#freebsd,#archlinux,##chat,#c,#embedded,#neovim +join = #linux,#freebsd,#archlinux,##chat,#c,#embedded,#neovim,#perl timestamp = %H:%M quiet diff --git a/.local/bin/fetch_mail b/.local/bin/fetch_mail new file mode 100755 index 0000000..0d35cf5 --- /dev/null +++ b/.local/bin/fetch_mail @@ -0,0 +1,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__ |