mirror of
https://github.com/PDP-10/its.git
synced 2026-01-13 15:27:28 +00:00
23a27a5345
Now, KA, DB, and KL systems will set their IP address to the value of the IP make variable. They wiil correctly define a host table entry for their machine. They will correctly set up .mail.;names >. They will correctly configure COMSAT for networking. The resulting systems should allow COMSAT to come up, and with appropriate IMP configuration in the "run" scripts to perform inbound and output IP network requests.
112 lines
4.4 KiB
Plaintext
112 lines
4.4 KiB
Plaintext
;;; -*- Fundamental -*-
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;;;
|
||
;;; This file belongs on %MCHN%. 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
|
||
;;; 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
|
||
;;; the same version number you wrote. This file will tell you if you
|
||
;;; won or not, hopefully with explanations if it didn't. If this
|
||
;;; report file DOESN'T appear, either the mailer isn't around, or is
|
||
;;; busy, or is falling down in flames. (Congratulations!)
|
||
;;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; Try to use only domain-style host names.
|
||
; (Except for specially known ITS hosts.)
|
||
|
||
|
||
;;; Various special sacred lists - don't mung these!
|
||
|
||
(SYS-OPERATING-TROUBLE (EQV-LIST %MCHN%-ADMIN))
|
||
(MAGIC-DRAGON-KEEPER (EQV-LIST %MCHN%-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 [.MAIL.;MAIL BUGS]))
|
||
(BUG-MAIL-AND-POSTMASTER (EQV-LIST %MCHN%-ADMIN))
|
||
(POSTMASTER (EQV-LIST BUG-MAIL-AND-POSTMASTER))
|
||
(MAIL-DIR-MAINT (EQV-LIST %MCHN%-ADMIN))
|
||
(MAIL-MAINTAINERS (EQV-LIST ([.MAIL.;FAILED STUFF] (R-OPTION FAST-APPEND))
|
||
%MCHN%-ADMIN))
|
||
(H3MAKE-MAINTAINERS (EQV-LIST ([.MAIL.;FAILED STUFF] (R-OPTION FAST-APPEND))
|
||
%MCHN%-ADMIN))
|
||
(COMSAT (EQV-LIST MAIL-MAINTAINERS))
|
||
(H3MAKE (EQV-LIST H3MAKE-MAINTAINERS))
|
||
(DEAD-MAIL-RECEIPTS (EQV-LIST [NUL:])) ; out for dead msgs
|
||
;; See message about this in mc:.mail.;names:
|
||
(NET-ORIGIN (EQV-LIST ; ([.MAIL.;FAILED NETORG] (R-OPTION FAST-APPEND))
|
||
MAIL-MAINTAINERS))
|
||
|
||
|
||
; Inquire database daemon. These are needed in order to update
|
||
; the database!
|
||
(UPDATE-ITS-INQUIR (EQV-LIST UPDATE-INQUIR@%MCHN%))
|
||
(UPDATE-INQUIR (EQV-LIST ([INQUIR;INQUPD RECORD] (R-OPTION APPEND))
|
||
[INQUIR;.UPD1. >]
|
||
(PGM [INQUIR;INQUPD BIN]
|
||
(R-PGM-MNTNR BUG-INQUIR)
|
||
(R-PGM-DISOWN 6))))
|
||
(UPDATE-INQUIR-LOSSAGE (EQV-LIST [NUL:INQUIR;INQUPD BARFS]))
|
||
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;;; Here is the stuff for *MSG message hackery. Any name beginning with "*"
|
||
;;; is by default of type *MSG, and will be given a *MSG-style header unless
|
||
;;; otherwise forced.
|
||
;;; All *MSG-type recipients will appear in the DISTRIB field, unless
|
||
;;; they have the NOTDIST option. Any attempt to actually send the message
|
||
;;; to a *MSG-type rcpt will throw away the name itself and send instead
|
||
;;; to the file [DSK:.MSGS.;1 2] where 1 and 2 default to *MSG and > unless
|
||
;;; explicitly specified via MSG-FN1 and MSG-FN2.
|
||
|
||
;; The entry for "*" is the only one which varies in the NAMES file for
|
||
;; each site.
|
||
(* (R-OPTION NOTDIST) (EQV-LIST *%MCHN%))
|
||
;; *msg mailing lists -- see .MAIL.;BBOARD INFO for accepted policy on
|
||
;; which list to use for what purpose.
|
||
(*ITS (R-OPTION NOTDIST) (EQV-LIST *%MCHN%))
|
||
;; BBOARD goes most everywhere but is not shown by :MSGS by default
|
||
(BBOARD (EQV-LIST (*BBOARD)))
|
||
(*BBOARD (EQV-LIST *MSGS-TO-ITSES))
|
||
|
||
;; Hosts that can receive *msgs
|
||
(*%MCHN% (EQV-LIST *MSGS-TO-ITSES))
|
||
(*MSGS-TO-ITSES (R-OPTION NOTDIST)
|
||
(EQV-LIST (*MSG-SINK@%MCHN% (R-OPTION NOTDIST))))
|
||
; This is final "sink". Mailer converts to filename specially.
|
||
(*MSG-SINK (R-OPTION NOTDIST))
|
||
|
||
; Messages addressed to a BUG-type recipient that doesn't exist are
|
||
; vectored to (BUG RANDOM-PROGRAM) instead, at a host address patched
|
||
; into COMSAT at location BUGHST.
|
||
|
||
(BUG-RANDOM-PROGRAM (EQV-LIST %MCHN%-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 %MCHN%-ADMIN))
|
||
(LIASON (EQV-LIST NETWORK-LIAISON))
|
||
(LIAISON (EQV-LIST NETWORK-LIAISON))
|
||
(ACTION (EQV-LIST NETWORK-LIAISON))
|
||
|
||
; Personal lists and stuff.
|
||
|
||
(%MCHN%-ADMIN (EQV-LIST [.MAIL.;ADMIN MAIL]))
|
||
|
||
(ACCOUNTS-NOTIFICATION (EQV-LIST %MCHN%-ADMIN))
|
||
(USER-ACCOUNTS (EQV-LIST %MCHN%-ADMIN))
|
||
(ACCOUNTS-HELD-REFUSED (EQV-LIST %MCHN%-ADMIN))
|
||
(USER-ACCOUNTS-ARCHIVE (EQV-LIST %MCHN%-ADMIN))
|
||
(PASSWORD-SYSTEM (EQV-LIST %MCHN%-ADMIN))
|
||
(BUGGY-PWORD (EQV-LIST %MCHN%-ADMIN))
|
||
(HIPY-PAPY-BTHUTHDTH-THUTHDA-BTHUTHDY (EQV-LIST %MCHN%-ADMIN))
|