github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-29 13:21:11 +00:00
Code Issues Releases Wiki Activity

Clean up .MAIL.; NAMES >

Browse Source
This commit is contained in:
Lars Brinkhoff
2017-02-03 09:42:04 +01:00
committed by Eric Swenson
parent dbc70534d3
commit 1278337795
1 changed files with 22 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

88
src/_mail_/names.2006 → src/_mail_/names.2007
View File

@@ -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))