X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=getmail;h=d8cf11920a02d5bcc69b1a0ae4f33519e7947d9c;hb=1886c7247cb16ed68a78cd5550b152689a465999;hp=62a1ce05793c09d9af64ba3516bd649238689205;hpb=d7795dea173c63df4cad98b824a5de3a8e5e0d2f;p=bin.git

diff --git a/getmail b/getmail
index 62a1ce0..d8cf119 100755
--- a/getmail
+++ b/getmail
@@ -1,30 +1,62 @@
 #!/bin/sh
 
 # Configure the two things below for your MUA and the host being run.
-IMAPHOST=rzlab.ucr.edu
+IMAPHOST=linnode.donarmstrong.com
 MUA=mutt
 
 #set -x
 
 # Don't check mail if ~/.nocheck exists and we're not running
 # interactively.
-if [[ -z "$CRON" && -e ~/.nocheck ]]; then
+if [ -z "$CRON" ] && [ -e ~/.nocheck ]; then
     exit 0;
 fi;
 
-# See if the server exists
+if [ -z "$HOSTNAME" ]; then
+    HOSTNAME="$(hostname)"
+fi;
+
+IONICE=""
+if which ionice >/dev/null 2>&1; then
+    IONICE="ionice -c 3"
+fi;
+
+# if we're not running under cron or there is a mailserver running
 if [ -z "$CRON" ] || kill -0 `pgrep -U $(id -u) -x $MUA` 2>/dev/null; then
+    # and we can ping the imap host
     if ping -q -c 3 $IMAPHOST >/dev/null 2>&1; then
-	if nice -n 19 offlineimap -o -u Noninteractive.Basic 2>&1 |grep validity| \
-	    perl -ne 'my ($account,$list) = /UID validity problem for folder ([\w-]+)\.([\w-]+)/;
+	# source the ssh info if it exists
+	if [ -e ~/.ssh/"ssh_agent_info_$HOSTNAME" ]; then
+	    . ~/.ssh/"ssh_agent_info_$HOSTNAME" > /dev/null;
+	fi;
+	PID="$(pgrep -U $(id -u) offlineimap)";
+	if [ -n "$PID" ]; then
+	    # if offlineimap has been running for more than 20 minutes
+	    if [ $(( $(date +'%s') - $(stat -c '%Y' /proc/$PID/cmdline) )) -gt 1200 ]; then
+		kill "$PID" >/dev/null 2>&1 || true;
+		sleep 5
+		kill -0 "$PID" >/dev/null 2>&1 && kill -9 "$PID" >/dev/null 2>&1;
+		PID="$(pgrep -U $(id -u) offlineimap)";
+	    fi;
+	fi;
+	if [ -z "$PID" ]; then
+	    if nice -n 19 ${IONICE} offlineimap -o -u Noninteractive.Basic 2>&1 |grep validity| \
+		perl -ne 'my ($account,$list) = /UID validity problem for folder ([\w-]+)\.([\w-]+)/;
                       next unless defined $account and length $account;
                       qx(/home/don/bin/deletemailbox -a $account $list > /dev/null);'; then
 	    # Clean the lists up too
-	    for account in bugs lists; do
-		find /home/don/Mail/$account -maxdepth 1 -mindepth 1 -type d \
-		    -exec sh -c 'test $(find {} -type f |wc -l) -eq 0' ';' \
-		    -printf '%f\000'|xargs -0 -n 1 ~/bin/deletemailbox -a $account >/dev/null
-	    done;
+		for account in bugs lists; do
+		    find /home/don/Mail/$account -maxdepth 1 -mindepth 1 -type d \
+			-exec sh -c 'test $(find "{}" -type f |wc -l) -eq 0' ';' \
+			-printf '%f\000'|xargs -0 -rn 1 ~/bin/deletemailbox -a $account >/dev/null 2>&1;
+		    find /home/don/Mail/$account -maxdepth 2 -mindepth 2 -iname 'new' \
+			-type d -ctime +60 -printf '%h\n'|xargs -rn 1 basename|xargs \
+			-rn 1 /home/don/bin/deletemailbox -a $account >/dev/null 2>&1;
+		done;
+	    fi;
+            if which notmuch >/dev/null 2>&1; then
+                nice -n 19 ${IONICE} notmuch new >/dev/null 2>&1;
+            fi;
 	fi;
     fi;
 fi;