#
# Apr 24 Saint Shanty's Day
# Jul 8 Normality Day
+# Oct 24 1985 Saint Splivven's Day
#
# Month names must currently be three letters and must be capitalized.
-# The day must be a number, followed by a space. Anything after that
-# space is considered the description of the event.
+# The day must be a number, followed by a space. An optional 4 digit
+# year can be included. Anything after that is considered to be the
+# description of the event.
use Env qw(CLOUD_BASE TMP);
local($TEMPO_FILE) = `mktemp "$TMP/zz_reminder.XXXXXX"`;
chop($TEMPO_FILE);
-local($USERNAME) = "$REPLYTO";
-if (! $USERNAME) { $USERNAME="fred" }
+local($USER_NAME) = "$REPLYTO";
+if (! $USER_NAME) { $USER_NAME="fred" }
-#print "TEMPO is $TEMPO_FILE ; USER is $USERNAME ; \n";
+#print "TEMPO is $TEMPO_FILE ; USER is $USER_NAME ; \n";
local($CAL_FILE);
if (! $CAL_FILE) {
#print "got days wik @days\n";
#print "got next mon wik @next_month\n";
-local(@date_as_array) = split(' ', `date`);
+local(@date_as_array) = split(' ', `date '+%a %b %d %Y'`);
+#print( "date as array: @date_as_array\n");
##############
# send mail here if there's anything to say.
if (! -z $TEMPO_FILE) {
# there are some alerts in there.
-#print "will run: system(\"mail -s \"FredMinder: \$(head -1 $TEMPO_FILE)\" $USERNAME <$TEMPO_FILE\");\n";
- system("mail -s \"FredMinder: \$(head -1 $TEMPO_FILE)\" $USERNAME <$TEMPO_FILE");
+#print "will run: system(\"mail -s \"FredMinder: \$(head -1 $TEMPO_FILE)\" $USER_NAME <$TEMPO_FILE\");\n";
+ system("mail -s \"FredMinder: \$(head -1 $TEMPO_FILE)\" $USER_NAME <$TEMPO_FILE");
}
unlink $TEMPO_FILE;