mailcheck

#!/bin/ksh

# simple mailcheck command to leave running in a tmux pane
# configurable via ~/.mblaze/profile
# by default runs fdm to check mail and mairix to index it
# ymmv

MBLAZE=${MBLAZE-$HOME/.mblaze}
profile="$MBLAZE/profile"

cfglook () {
	mhdr -h $* | envsubst
}

sleep=$1
[ -z "$sleep" ] && sleep=$(cfglook MailCheckSleep $profile)
[ -z "$sleep" ] && sleep=30
check_cmd=$(cfglook MailCheckCommand $profile)
[ -z "$check_cmd" ] && check_cmd="fdm -q fetch"
check_lockf=$(cfglook MailCheckLockFile $profile)
[ -z "$check_lockf" ] && check_lockf=$HOME/.fdm.lock
index_cmd=$(cfglook MailCheckIndexCommand $profile)
[ -z "$index_cmd" ] && index_cmd="mairix -p"
[ "$index_cmd" = "-" ] && index_cmd=""
date_fmt=$(cfglook MailCheckDateFmt $profile)
[ -z "$date_fmt" ] && date_fmt="%Y-%m-%d %H:%M"

sleeper_pid=0
siginfo=""

# bsd polyfill
case $(uname) in
	*BSD)	netstat="netstat -na -f inet"
		[ -z "$siginfo" ] && siginfo="INFO"
		stty_size_field () {
			stty -a | perl -lne '/(\d+)\s+'$1'/ && print $1'
		}
		;;
	*)	netstat="netstat -na4"
		stty_size_field () {
			stty -a | perl -lne '/'$1'\s+(\d+);/ && print $1'
		}
		;;
esac

ts () {
	date +"$date_fmt"
}

shleep () {
	sleep $1 >/dev/null 2>&1 & sleeper_pid=$!
	echo $(ts) sleeping ...
	wait $sleeper_pid 2>/dev/null
	[ $? -ne 0 ] && echo $(ts) wakeup
	sleeper_pid=0
}

wakeup () {
	[ $sleeper_pid -ne 0 ] && \
		kill $sleeper_pid >/dev/null 2>&1 && \
		wait $sleeper_pid
}

mailcheck () {
	echo $(ts) checking ...
	${check_cmd}
	if [ -n "${index_cmd}" ]; then
		echo $(ts) indexing ...
		${index_cmd}
	fi
}

clear_lockfile () {
	[ -n "${check_lockf}" ] && rm -f ${check_lockf}
}

interrupted () {
	wakeup
	clear_lockfile
	exit 1
}

trap 'interrupted' INT TERM
if [ -n "$siginfo" ]; then
	trap 'wakeup' QUIT
else
	trap 'wakeup' ${siginfo}
fi

clear_lockfile
[ -z "${index_cmd}" ] && echo "[automatic indexing is OFF]"
while true; do
	mailcheck
	shleep ${sleep}
done