Benjamin Scott writes:
> I just got another day-late-dollar-short message from Rob for SLUG
> again (hi Rob!). I decided to examine the headers and noticed that
> the message appears to have spent about 12 hours bouncing around
> inside <rogue.codemeta.com>. I just wanted to make sure that is
> expected.
In a related note, I reported that mail to gnhlug-announce wasn't
making it to me a year or so ago, despite the fact that I was
subscribed to gnhlug-discuss and I was told that -announce mail was
delivered to -discuss. I solved this problem for myself by
subscribing to -announce but it was obvious to me at the time that
other people were suffering from this problem too.
I still suspect that -announce mail isn't forwarded to -discuss.
Regards,
--kevin
PS Does somebody want to take it upon themselves to run this in a
daily cron script?
(this is a quick hack; if there are bugs please let me know)
perl -e 'use Date::Calc qw(:all);
$MONDAY = 1;
$NUM_DAYS_BTWN_MON_WED = 5;
($tyear,$tmonth,$tday) = Today();
# $mday et al. identify the 2nd Monday in the given month
die "Nth_Weekday_of_Month_Year problem!\n"
if (! (($myear,$mmonth,$mday)
= Nth_Weekday_of_Month_Year($tyear,$tmonth,$MONDAY,2)));
$dd = Delta_Days($tyear,$tmonth,$tday,
$myear,$mmonth,$mday);
if ($dd == $NUM_DAYS_BTWN_MON_WED) {
open(MAIL, "| /usr/lib/sendmail -oi -oem -t")
|| die "Couldn't open sendmail: $!\n";
$SIG{PIPE} = 'IGNORE'; # good idea
print MAIL <<EO_MESSAGE;
Hello,
You might be fascinated to learn that there is a SLUG meeting next Monday
evening at 7pm. As a reminder, SLUG meetings occur on the second Monday
of each month. Today is Wednesday; I just wanted to give you plenty of
advance notice.
Kind regards,
The SLUG Daemon
EO_MESSAGE
} # end of "if ($dd == $NUM_DAYS_BTWN_MON_WED) {"
'
__END__
--
GnuPG ID: B280F24E And the madness of the crowd
alumni.unh.edu!kdc Is an epileptic fit
-- Tom Waits
_______________________________________________
gnhlug-org mailing list
[email protected]
http://mail.gnhlug.org/mailman/listinfo/gnhlug-org
