From 1278337795fffbdd9d6bb0a4e903d0e070377020 Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Fri, 3 Feb 2017 09:42:04 +0100 Subject: [PATCH] Clean up .MAIL.; NAMES > --- src/_mail_/{names.2006 => names.2007} | 88 +++++++-------------------- 1 file changed, 22 insertions(+), 66 deletions(-) rename src/_mail_/{names.2006 => names.2007} (58%) diff --git a/src/_mail_/names.2006 b/src/_mail_/names.2007 similarity index 58% rename from src/_mail_/names.2006 rename to src/_mail_/names.2007 index 6e36414c..e085295f 100644 --- a/src/_mail_/names.2006 +++ b/src/_mail_/names.2007 @@ -1,12 +1,12 @@ ;;; -*- Fundamental -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; -;;; This file belongs on MD. DO NOT COPY TO OTHER MACHINES!! +;;; This file belongs on DB. DO NOT COPY TO OTHER MACHINES!! ;;; ;;; The format of this file is documented in .MAIL.;NAMES INFO. ;;; You should read that before modifying it. Also, there are ;;; restrictions on tourists creating mailing lists; see -;;; AI:ACOUNT;TURIST POLICY. +;;; ACOUNT;TURIST POLICY. ;;; ;;; If you DO mung this file, after writing it out look for a file ;;; called "NNAMED ERRnnn" or "NAMED ERRnnn" to appear, where nnn is @@ -22,17 +22,16 @@ ;;; Various special sacred lists - don't mung these! -(SYS-OPERATING-TROUBLE (EQV-LIST EJS)) -(MAGIC-DRAGON-KEEPER (EQV-LIST EJS)) +(SYS-OPERATING-TROUBLE (EQV-LIST DB-ADMIN)) +(MAGIC-DRAGON-KEEPER (EQV-LIST DB-ADMIN)) ; Mail maintenance stuff. Do not fuck with this. (BUG-MAIL (EQV-LIST BUG-QMAIL)) (BUG-MAILER (EQV-LIST BUG-QMAIL)) -(BUG-QMAIL (EQV-LIST BUG-MAIL-AND-POSTMASTER EJS - [KSC;MAIL BUGS])) -(BUG-MAIL-AND-POSTMASTER (EQV-LIST EJS)) +(BUG-QMAIL (EQV-LIST [.MAIL.;MAIL BUGS])) +(BUG-MAIL-AND-POSTMASTER (EQV-LIST DB-ADMIN)) (POSTMASTER (EQV-LIST BUG-MAIL-AND-POSTMASTER)) -(MAIL-DIR-MAINT (EQV-LIST EJS)) +(MAIL-DIR-MAINT (EQV-LIST DB-ADMIN)) (MAIL-MAINTAINERS (EQV-LIST ([.MAIL.;FAILED STUFF] (R-OPTION FAST-APPEND)))) (COMSAT (EQV-LIST MAIL-MAINTAINERS)) (DEAD-MAIL-RECEIPTS (EQV-LIST [NUL:])) ; out for dead msgs @@ -43,13 +42,7 @@ ; Inquire database daemon. These are needed in order to update ; the database! -(UPDATE-ITS-INQUIR (EQV-LIST - ;;UPDATE-INQUIR@NX - ;; UPDATE-INQUIR@AI UPDATE-INQUIR@MC - ;; UPDATE-INQUIR@ML - ;;UPDATE-INQUIR@MD - UPDATE-INQUIR@DB - )) +(UPDATE-ITS-INQUIR (EQV-LIST UPDATE-INQUIR@DB)) (UPDATE-INQUIR (EQV-LIST ([INQUIRE;INQUPD RECORD] (R-OPTION APPEND)) [INQUIR;.UPD1. >] (PGM [INQUIR;INQUPD BIN] @@ -73,47 +66,15 @@ (* (R-OPTION NOTDIST) (EQV-LIST *DB)) ;; *msg mailing lists -- see .MAIL.;BBOARD INFO for accepted policy on ;; which list to use for what purpose. -;(*MIT (R-OPTION NOTDIST) -; (EQV-LIST *MAC *CIPG *DSPG *INFOODS *LIDS *PFC *XV *AMT *RANDOMS)) -;(*MAC (R-OPTION NOTDIST) -; (EQV-LIST *ITS *HX *LCS-UVAX *MLSITE *REAGAN *THEORY *WH)) -(*TENS (R-OPTION NOTDIST) (EQV-LIST *ITS)) -(*ITS (R-OPTION NOTDIST) (EQV-LIST - DB - ;;*NX - ;; *AI *MC - ;; *MD *ML - )) +(*ITS (R-OPTION NOTDIST) (EQV-LIST *DB)) ;; BBOARD goes most everywhere but is not shown by :MSGS by default -;(BBOARD (EQV-LIST (*BBOARD))) -;(*BBOARD (EQV-LIST *MSGS-TO-ITSES -; (*REAGAN (R-OPTION NOTDIST)) (*WH-BBOARD (R-OPTION NOTDIST)) -; (*HX (R-OPTION NOTDIST)) (*LCS-UVAX (R-OPTION NOTDIST)) -; (*MLSITE (R-OPTION NOTDIST)) -; (*THEORY-BBOARD (R-OPTION NOTDIST)) -; (*AMT (R-OPTION NOTDIST)) -; (*EDDIE (R-OPTION NOTDIST)) -; (*INFOODS (R-OPTION NOTDIST)) -; (*LIDS (R-OPTION NOTDIST)) -; (*PFC (R-OPTION NOTDIST)) -; (*RANDOMS (R-OPTION NOTDIST)))) +(BBOARD (EQV-LIST (*BBOARD))) +(*BBOARD (EQV-LIST *MSGS-TO-ITSES)) ;; Hosts that can receive *msgs -;;(*NX (EQV-LIST *MSGS-TO-ITSES)) -;; (*AI (EQV-LIST *MSGS-TO-ITSES)) -;; (*MC (EQV-LIST *MSGS-TO-ITSES)) -;; (*ML (EQV-LIST *MSGS-TO-ITSES)) -;;(*MD (EQV-LIST *MSGS-TO-ITSES)) (*DB (EQV-LIST *MSGS-TO-ITSES)) -(*MSGS-TO-ITSES (R-OPTION NOTDIST) ; This just makes above 4 simpler. - (EQV-LIST - ;;(*MSG-SINK@NX (R-OPTION NOTDIST)) - ;; (*MSG-SINK@AI (R-OPTION NOTDIST)) - ;; (*MSG-SINK@MC (R-OPTION NOTDIST)) - ;; (*MSG-SINK@ML (R-OPTION NOTDIST)) - ;; (*MSG-SINK@MD (R-OPTION NOTDIST)) - (*MSG-SINK@DB (R-OPTION NOTDIST)) - )) +(*MSGS-TO-ITSES (R-OPTION NOTDIST) + (EQV-LIST (*MSG-SINK@DB (R-OPTION NOTDIST)))) ; This is final "sink". Mailer converts to filename specially. (*MSG-SINK (R-OPTION NOTDIST)) @@ -121,30 +82,25 @@ ; vectored to (BUG RANDOM-PROGRAM) instead, at a host address patched ; into COMSAT at location BUGHST. -(BUG-RANDOM-PROGRAM (EQV-LIST EJS)) +(BUG-RANDOM-PROGRAM (EQV-LIST DB-ADMIN)) ;; The remaining names are not necessary to the operation of ITS but ;; are generally useful, I suppose. ; Plausible generic contact names. -(NETWORK-LIAISON (EQV-LIST EJS)) +(NETWORK-LIAISON (EQV-LIST DB-ADMIN)) (LIASON (EQV-LIST NETWORK-LIAISON)) (LIAISON (EQV-LIST NETWORK-LIAISON)) (ACTION (EQV-LIST NETWORK-LIAISON)) ; Personal lists and stuff. -(EJS (EQV-LIST [EJS;EJS MAIL])) ; Avoid clash with INQUIR mail address +(DB-ADMIN (EQV-LIST [.MAIL.;ADMIN MAIL])) -(INFO-EJS10 (EQV-LIST - ([EJS;EJS10 ARCHIV] (R-OPTION FAST-APPEND)) ; Msg log - (@FILE [EJS;EJS10 PEOPLE]) ; Distrib list - )) - -(ACCOUNTS-NOTIFICATION (EQV-LIST EJS)) -(USER-ACCOUNTS (EQV-LIST EJS)) -(ACCOUNTS-HELD-REFUSED (EQV-LIST EJS)) -(USER-ACCOUNTS-ARCHIVE (EQV-LIST EJS)) -(PASSWORD-SYSTEM (EQV-LIST EJS)) -(BUGGY-PWORD (EQV-LIST EJS)) +(ACCOUNTS-NOTIFICATION (EQV-LIST DB-ADMIN)) +(USER-ACCOUNTS (EQV-LIST DB-ADMIN)) +(ACCOUNTS-HELD-REFUSED (EQV-LIST DB-ADMIN)) +(USER-ACCOUNTS-ARCHIVE (EQV-LIST DB-ADMIN)) +(PASSWORD-SYSTEM (EQV-LIST DB-ADMIN)) +(BUGGY-PWORD (EQV-LIST DB-ADMIN))