#!/bin/sh -
PATH=$PATH:/usr/local/lib:/usr/local/etc:/usr/lib:/etc; export PATH
case "`date '+%a'`" in
Thu|Fri) todays='https://www.gocomics.com/tomthedancingbug';;
esac
todays="$todays https://xkcd.com/" #https://bizarro.com/daily-comic/
#todays="$todays http://www.dilbert.com/" #`clipumich | sed 1q`"
#urls="`clipumich | sed 1d`"
first='xkcd' #via url too to get title text over comic image
fails= #'zippythecolorpinhead'
umedia= #dilbert franknernest frazz buckets arlonjanis ripleys'
#ucomicw='mytomthedancingbug' #foxtrot
#ucomicd='doonesbury cornered nonsequitur poochcafe'
#mycreat='myrubes mytheothercoast myagnes myspeedbump'
#indep='userfriendly'
list="$first $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
#est="mailto:${USER-$LOGNAME}"
dest="${COMICS_DEST:-file:$HOME/l/me/comics.html}"
send=sendmail
prfx=_
xtra="
`date +'%a %d %b %Y'`
[ Mon |
Tue |
Wed |
Thu |
Fri |
Sat |
Sun ]
"
base='https://kinzler.com/me/'
destdayfile="$HOME/l/me/comics-DAY.html"
# comics - generate daily personal comic strip web page
# Steve Kinzler, steve@kinzler.com, Jul 02/Jun 04/Oct 05/Oct 14
# https://kinzler.com/me/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"
echo ""
cat <<'EOF'
EOF
echo "$xtra"
for url in $todays
do
echo '"
done
for url in $urls
do
echo ""
done
echo ''
case "$date" in
?*) dailystrips --defs "$defs" $args $list;;
*) dailystrips --defs "$defs" $args --date "$dd $mm $yy" $list;;
esac | sed 's/') |
case "$dest" in
mailto:*) dest="`echo "$dest" | sed 's/mailto://'`"
(cat < "$dest"
case "$destdayfile" in
?*) DAY="`date +'%a'`"
cp "$dest" `echo "$destdayfile" |
sed "s/DAY/$DAY/"`;;
esac;;
*) cat > "$dest/$prfx"comics_"$dd$mm$yy".html;;
esac