#!/usr/local/bin/ingperl

# Determines the day of the month then redirects them
# to the report for today.  Example:  name this script
# PAGE4 and execute it on the 8th of the month; it
# will issue a redirect command for the file PAGE4.08

$today = (localtime)[3];
$0 =~ s#/([^/]*)$##;  # get the basename of this script
printf "Location: /cgi-progs/iodir?$1.%02d\n\n", $today;