#!/bin/sh -
PATH=$PATH:/usr/local/lib:/usr/local/etc:/usr/lib:/etc; export PATH

fails='dilbert zippythecolorpinhead'
#umedia='dilbert franknernest frazz buckets arlonjanis ripleys'
ucomicw='foxtrot mytomthedancingbug'
ucomicd='doonesbury cornered nonsequitur poochcafe'
mycreat='myrubes mytheothercoast myagnes myspeedbump'
indep='userfriendly xkcd'
list="$fails $umedia $ucomicw $ucomicd $mycreat $indep"

defs="$HOME/libp/dailystrips"
args='--quiet --lite'
#rgs='--verbose --lite'
#est="$HOME/work/me"; mkdir $dest 2> /dev/null
dest="mailto:${USER-$LOGNAME}"
send=sendmail
prfx=_

# comics - generate daily personal comic strip web page
# Steve Kinzler, kinzler@cs.indiana.edu, Jul 02/Jun 04/Oct 05
# http://www.cs.indiana.edu/~kinzler/home.html#web

#se Date::Parse;

case "$1" in
-h)	echo "usage: $0 [ date ]" 1>&2; exit 1;;
?*)	date=;		tsec=`getdate "$*"`;;
*)	date="`date`";	tsec=`getdate "$date"`;;
esac
set x `ctime $tsec`
dd="$4"; mm="$3"; yy=`echo $* | sed 's/.* //'`

title="dailystrips for $dd $mm $yy"
(echo "<title>$title</title>"
 case "$date" in
 ?*)	dailystrips --defs "$defs" $args		      $list;;
 *)	dailystrips --defs "$defs" $args --date "$dd $mm $yy" $list;;
 esac) |

case "$dest" in
mailto:*)	dest="`echo "$dest" | sed 's/mailto://'`"
		(cat <<EOF
To: $dest
Subject: $title
MIME-Version: 1.0
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
EOF
		echo ''; cat) | "$send" -t -oi;;
*)		cat > "$dest/$prfx"comics_$dd$mm$yy.html;;
esac