#!/bin/sh -

#url="http://www.ns.umich.edu/htdocs/r_events/events.php?all=1"
#urls=`perl -e '$t = time;
#   foreach (reverse 0 .. 3) { &pr($t + 86400 * $_) }
#   sub pr { ($d, $m, $y) = (localtime($_[0]))[3,4,5]; $m++; $y += 1900;
#	    printf "%s&d=%d&m=%d&y=%d\n", "'"$url"'", $d, $m, $y }'`

#rl='http://events.umich.edu/day/start/'
url='http://events.umich.edu/day/'
urls=`perl -e '$t = time;
   foreach (reverse 0 .. 3) { &pr($t + 86400 * $_) }
   sub pr { ($d, $m, $y) = (localtime($_[0]))[3,4,5]; $m++; $y += 1900;
	    $D = sprintf("%d-%02d-%02d", $y, $m, $d);
	    printf "%s%s\n", "'"$url"'", $D, $D }'`
#	    printf "%s%s/end/%s\n", "'"$url"'", $D, $D }'`

# clipumich - personalized URL generator for umich event announcements
# Steve Kinzler, steve@kinzler.com, Oct 08/Jun 11
# https://kinzler.com/me/home.html#palm

case "$#" in
0)	echo "$urls";;
*)	echo "usage: $0" 1>&2; exit 1;;
esac