upcoming SLUG meeting on 10/10/2005

[Kevin D. Clark]

The SLUG Daemon writes:

> 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.

Here is the code, in case other chapters find this to be useful.  I
guess I'll run this from a daily cron script.

Just another Perl hacker,

--kevin
-- 
GnuPG ID: B280F24E                     And the madness of the crowd
alumni.unh.edu!kdc                     Is an epileptic fit
                                       -- Tom Waits

-------------- next part --------------
#!/usr/bin/perl -w

use strict;
use Date::Calc qw(:all);

  my $MONDAY = 1;
  my $NUM_DAYS_BTWN_MON_WED = 5;

  my ($tyear,$tmonth,$tday) = Today();
  my ($myear,$mmonth,$mday);

  # $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)));

  my $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;
To: gnlug-discuss\@mail.gnlug.org
From: clark\@pannaway.com
Subject: upcoming SLUG meeting on $mmonth/$mday/$myear



[this is an automatically generated message from the SLUG daemon]


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__