X-Git-Url: https://feistymeow.org/gitweb/?a=blobdiff_plain;f=scripts%2Fschedule%2Fgenerate_reminders.pl;h=0769ddf80f03b416e862e3454966803e618d37bd;hb=fcd166fbb628f3cb4915da3ef8155096196687f4;hp=aed6b9d498f69c0504992171cb0676c7dcf653f9;hpb=03b04bb986f93f7dee2d7049b5516277df3aa3dc;p=feisty_meow.git diff --git a/scripts/schedule/generate_reminders.pl b/scripts/schedule/generate_reminders.pl index aed6b9d4..0769ddf8 100644 --- a/scripts/schedule/generate_reminders.pl +++ b/scripts/schedule/generate_reminders.pl @@ -34,10 +34,10 @@ 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) { @@ -133,8 +133,8 @@ while () { # 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;