[2048] in Moira
Re: access service for outgoing mailers
daemon@ATHENA.MIT.EDU (Mark Silis)
Tue Oct 21 08:04:43 2003
Date: Tue, 21 Oct 2003 08:04:38 -0400
Content-Type: text/plain; delsp=yes; charset=US-ASCII; format=flowed
Mime-Version: 1.0 (Apple Message framework v552)
Cc: Mark Silis <mark@mit.edu>, moiradev@mit.edu
To: Garry Zacheiss <zacheiss@mit.edu>
From: Mark Silis <mark@MIT.EDU>
In-Reply-To: <200310210707.h9L77nO8022492@brad-majors.mit.edu>
Message-Id: <BEEBD7EE-03BE-11D8-931A-000A959D0696@mit.edu>
Content-Transfer-Encoding: 7bit
Hi Garry,
that is in fact the most recent revision of the patch. Thanks for the
quick responses.
Cheers,
-- Mark
On Tuesday, October 21, 2003, at 03:07 AM, Garry Zacheiss wrote:
> Since we went through an additional revision of the patch, please
> confirm that this is the most recent version of it. I've also added
> Makefile.in changes to install the new DCM.
>
> Assuming this is the most recent version you believe you've submitted,
> yay. I will deploy it on moira tomorrow, and let you know so you can
> create the DCM.
>
> Garry
>
> Index: Makefile.in
> ===================================================================
> RCS file:
> /afs/athena.mit.edu/astaff/project/moiradev/repository/moira/gen/
> Makefile.in,v
> retrieving revision 1.35
> diff -u -r1.35 Makefile.in
> --- Makefile.in 27 Aug 2003 20:04:27 -0000 1.35
> +++ Makefile.in 21 Oct 2003 07:05:19 -0000
> @@ -42,11 +42,11 @@
> mailhub.gen ndb.gen network.gen nfs.gen pobox.gen \
> postoffice.gen print.gen warehouse.gen winad.gen www.gen zephyr.gen
>
> -SCRIPTS=acl.sh aliases.sh boot.sh ca.gen calendar.gen dhcp.sh
> events.gen events.sh \
> - hesiod.sh ip-billing.gen ip-billing.sh longjobs.gen longjobs.sh \
> - mailhub.sh mailman.gen mailman.sh ndb.sh nfs.sh null.sh
> postoffice.sh \
> - print.sh sapprint.gen sapprint.sh spwatch.gen stellar.gen stellar.sh
> \
> - warehouse.sh www.sh zephyr.sh install_dirs install_quotas zero_quotas
> +SCRIPTS=access.gen access.sh acl.sh aliases.sh boot.sh ca.gen
> calendar.gen dhcp.sh \
> + events.gen events.sh hesiod.sh ip-billing.gen ip-billing.sh
> longjobs.gen \
> + longjobs.sh mailhub.sh mailman.gen mailman.sh ndb.sh nfs.sh null.sh \
> + postoffice.sh print.sh sapprint.gen sapprint.sh spwatch.gen
> stellar.gen \
> + stellar.sh warehouse.sh www.sh zephyr.sh install_dirs install_quotas
> zero_quotas
>
> .SUFFIXES: .pc .gen
>
> Index: access.gen
> ===================================================================
> RCS file: access.gen
> diff -N access.gen
> --- /dev/null 1 Jan 1970 00:00:00 -0000
> +++ access.gen 21 Oct 2003 07:04:01 -0000
> @@ -0,0 +1,50 @@
> +#!/moira/bin/perl -Tw
> +
> +# $Id$
> +
> +use DBI;
> +
> +# The following exit codes are defined and MUST BE CONSISTENT withh
> the
> +# error codes the library uses:
> +$MR_DBMS_ERR = 47836421;
> +$MR_OCONFIG = 47836460;
> +%users = ();
> +
> +$outfile = '/moira/dcm/access.out';
> +
> +$dbh = DBI->connect("dbi:Oracle:moira", "moira", "moira")
> + || exit $MR_DBMS_ERR;
> +
> +# Get the list of valid MIT.EDU user e-mail addresses
> +$sth = $dbh->prepare("SELECT login FROM users WHERE status != 3");
> +
> +$sth->execute;
> +
> +umask 022;
> +open(OUT, ">$outfile") || exit $MR_OCONFIG;
> +
> +while(($login) = $sth->fetchrow_array) {
> + $login =~ s/\0//g;
> + $users{$login} = $login;
> +
> + print OUT "From:$login\@MIT.EDU RELAY\n";
> +}
> +
> +# Get all the valid MIT.EDU mailing list addresses
> +$sth = $dbh->prepare("SELECT name FROM list WHERE active !=0 " .
> + "AND maillist = 1");
> +
> +$sth->execute;
> +
> +while(($name) = $sth->fetchrow_array) {
> + $name =~ s/\0//g;
> +
> + # Ensure we do not re-print an entry that may be a personal user
> group
> + # and was already handled by the user e-mail addresses
> + if(!$users{$name}) {
> + print OUT "From:$name\@MIT.EDU RELAY\n";
> + }
> +}
> +
> +close(OUT);
> +exit;
> Index: access.sh
> ===================================================================
> RCS file: access.sh
> diff -N access.sh
> --- /dev/null 1 Jan 1970 00:00:00 -0000
> +++ access.sh 21 Oct 2003 07:03:19 -0000
> @@ -0,0 +1,73 @@
> +#!/bin/sh
> +#
> +# $Header$
> +
> +PATH=/sbin:/bin:/usr/sbin:/usr/bin:/etc:/usr/etc:/usr/athena/bin:/
> usr/local/bin
> +export PATH
> +
> +if [ -d /var/athena ] && [ -w /var/athena ]; then
> + exec >/var/athena/moira_update.log 2>&1
> +else
> + exec >/tmp/moira_update.log 2>&1
> +fi
> +
> +# The following exit codes are defined and MUST BE CONSISTENT with
> +# error codes the library uses:
> +MR_MKCRED=47836474
> +MR_MISSINGFILE=47836473
> +MR_NOCRED=47836470
> +
> +root=/usr/local/sendmail
> +
> +if [ -s $root/etc/access.new ]; then
> + cp /dev/null $root/etc/access.tmp
> +
> + if [ -s $root/etc/efl-access ]; then
> + cat $root/etc/efl-access >> $root/etc/access.tmp
> + fi
> +
> + cat $root/etc/access.new >> $root/etc/access.tmp
> + mv $root/etc/access.tmp $root/etc/access.new
> + chmod 644 $root/etc/access.new
> +else
> + exit $MR_MISSINGFILE
> +fi
> +
> +if [ ! -s $root/etc/access ]; then
> + logger -p mail.error -t access.sh "No current access file,
> aborting."
> + exit $MR_NOCRED
> +fi
> +
> +# Play it safe and be sure we have reasonable data
> +olines=`wc -l $root/etc/access | awk '{print $1}'`
> +nlines=`wc -l $root/etc/access.new | awk '{print $1}'`
> +diff=`expr $nlines - $olines`
> +thresh=`expr $olines / 10`
> +
> +# Catch the zero case
> +if [ $nlines -eq 0 ]; then
> + logger -p mail.error -t access.sh "Recieved empty access file,
> aborting."
> + exit $MR_MISSINGFILE
> +fi
> +
> +# If its a greater than 10% shift bomb out to be safe
> +if [ $diff -gt $thresh ]; then
> + logger -p mail.error -t access.sh "Access changes threshold
> exceeded, aborting."
> + exit $MR_NOCRED
> +fi
> +
> +cp /dev/null $root/etc/access.new.db
> +
> +$root/sbin/makemap btree $root/etc/access.new < $root/etc/access.new
> +if [ $? != 0 ]; then
> + exit $MR_MKCRED
> +fi
> +
> +mv $root/etc/access $root/etc/access.old
> +mv $root/etc/access.new $root/etc/access
> +rm -f $root/etc/access.old.db
> +ln $root/etc/access.db $root/etc/access.old.db
> +mv $root/etc/access.new.db $root/etc/access.db
> +
> +rm -f $0
> +exit 0
