X-Git-Url: https://feistymeow.org/gitweb/?a=blobdiff_plain;f=scripts%2Fschedule%2Fgenerate_reminders.pl;h=0769ddf80f03b416e862e3454966803e618d37bd;hb=fcd166fbb628f3cb4915da3ef8155096196687f4;hp=026aaba6a2cbc20b6263c1e2cdec86c0956d7916;hpb=8aec25f6496659248d997e474195ee4acdcdb976;p=feisty_meow.git diff --git a/scripts/schedule/generate_reminders.pl b/scripts/schedule/generate_reminders.pl index 026aaba6..0769ddf8 100644 --- a/scripts/schedule/generate_reminders.pl +++ b/scripts/schedule/generate_reminders.pl @@ -34,16 +34,16 @@ 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 "the CAL_FILE variable is not set.\n"; # print "defaulting it to a value that probably does not suit you.\n"; - $CAL_FILE = "$CLOUD_BASE/infobase/lists/calendar.dat"; + $CAL_FILE = "$CLOUD_BASE/magic_cabinet/lists/calendar.dat"; } #print "calfile is $CAL_FILE\n"; @@ -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;