From b2b684d7000418418d15cd83a84aa1d7278f672d Mon Sep 17 00:00:00 2001
From: Daniel <89086143+BardofSprites@users.noreply.github.com>
Date: Wed, 24 Jul 2024 18:03:14 -0400
Subject: wip: rewrite checkmail in perl

---
 bin/.local/bin/scripts/perl/checkmail | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100755 bin/.local/bin/scripts/perl/checkmail

(limited to 'bin/.local')

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, ">>")
+}
-- 
cgit v1.2.3