#!/bin/sh -
TCLLIBPATH=/usr/local/lib; export TCLLIBPATH

remr="${DOTREMINDERS-$HOME/.reminders}"
remw="$HOME/work/reminders"

# reminder - personal front-end for remind and tkremind commands
# Steve Kinzler, kinzler@cs.indiana.edu, Jan 10
# http://www.cs.indiana.edu/~kinzler/home.html#unix

case "$1" in
-T)	touched=
	test ! -e "$remw" && { touch "$remw"; touched=t; }
	tkremind "$remr" "$remw"
	test -n "$touched" -a ! -s "$remw" && rm "$remw"
	exit;;
esac

last=`perl -ne 'print, exit if s/^#\s*Last-Run:\s*//' "$remr"`
now=`date +'%d %b %Y'`
case "$last" in
'')	last="$now"
	perl -pi -e 'print "# Last-Run: '"$last"'\n\n" if $. == 1' "$remr";;
esac

start=`perl -e "# for ckperl
	use Time::ParseDate;
	use Time::CTime;
	print strftime('%d %b %Y', localtime(parsedate('$last') + 90000))"`

n=`perl -e "use Time::ParseDate;
	    print int((parsedate('$now')  -
		       parsedate('$last') + 10000) / 86400)"`
case "$n" in
-*|0)	;;
*)	remind ${1+"$@"} "$remr" $start "*$n";;
esac

exec perl -pi -e 's/^(#\s*Last-Run:\s*).*/${1}'"$now"'/' "$remr"