wip: rewrite checkmail in perl

1 files changed, 13 insertions, 0 deletions

diff --git a/bin/.local/bin/scripts/perl/checkmail b/bin/.local/bin/scripts/perl/checkmail
new file mode 100755
index 0000000..4530334
--- /dev/null
+++ b/bin/.local/bin/scripts/perl/checkmail
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my $log_file="$HOME/.cache/checkmail"
+
+sub update_mail {
+    system("mbsync -a");
+    system("notmuch new");
+    # read log file in append mode '>>' and log date synced
+    open(log_file, ">>")
+}