#!/usr/athena/bin/perl

# 12/31/97: pgreene: no longer distributed to faq-maintainers;
#           consensus.com is sending out a shorter version monthly

$ENV{'NADIR'} || ($ENV{'NADIR'} = 
		  '/afs/sipb.mit.edu/project/periodic-postings/news.answers');

$stamp = "$ENV{'NADIR'}/../data/policy.mailing.timestamp";
$policy = "$ENV{'NADIR'}/mailing-lists-policy";

stat($stamp) || die "$0: Can't stat $stamp: $!.\n";

((-M _) > 90) || exit 0;

$rlog = `rlog -R -L $policy`;
die "$0: Error running rlog -R -L $policy.\n" if ($?);

die "$0: $policy is checked out.\n" if ($rlog ne "");

system("touch $stamp") &&
    die "$0: Can't touch $stamp: $!.\n";

open(MAIL, "|/usr/lib/sendmail -ffaq-maintainers-announce-request@mit.edu -oi -t") ||
    die "$0: Can't start /usr/lib/sendmail -ffaq-maintainers-announce-request@mit.edu -oi -t: $!.\n";

print MAIL <<EOF || die "$0: Can't write to sendmail: $!.\n";
From: news-answers-request@mit.edu
Reply-To: faq-maintainers-announce-request@mit.edu
To: faq-maintainers-announce@mit.edu
Bcc: fma-actual-distribution@mit.edu
Subject: Periodic faq-maintainers/faq-maintainers-announce policy file
Comment: This message was approved for distribution by Pamela Greene,
	one of the faq-maintainers-announce list maintainers.

EOF

open(POLICY, $policy) || die "$0: Can't open $policy: $!.\n";

while (<POLICY>) {
    print MAIL || die "$0: Can't write to sendmail: $!.\n";
}

close(POLICY) || die "$0: Error closing $policy: $!.\n";

close(MAIL) || die "$0: Error closing sendmail: $!.\n";

exit 0;