1
0
mirror of https://github.com/PDP-10/its.git synced 2026-02-15 20:36:13 +00:00

Added INQUIR, the user account management program.

This commit is contained in:
Eric Swenson
2016-11-30 15:30:19 -08:00
parent e1a465ec25
commit af866af9c7
19 changed files with 4051 additions and 8 deletions

View File

@@ -48,7 +48,7 @@
;; UPDATE-INQUIR@AI UPDATE-INQUIR@MC
;; UPDATE-INQUIR@ML
;;UPDATE-INQUIR@MD
UPDATE-INQUIR@ES
UPDATE-INQUIR@DB
))
(UPDATE-INQUIR (EQV-LIST ([INQUIRE;INQUPD RECORD] (R-OPTION APPEND))
[INQUIR;.UPD1. >]
@@ -70,7 +70,7 @@
;; The entry for "*" is the only one which varies in the NAMES file for
;; each site.
(* (R-OPTION NOTDIST) (EQV-LIST *ES))
(* (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)
@@ -79,7 +79,7 @@
; (EQV-LIST *ITS *HX *LCS-UVAX *MLSITE *REAGAN *THEORY *WH))
(*TENS (R-OPTION NOTDIST) (EQV-LIST *ITS))
(*ITS (R-OPTION NOTDIST) (EQV-LIST
ES
DB
;;*NX
;; *AI *MC
;; *MD *ML
@@ -104,7 +104,7 @@
;; (*MC (EQV-LIST *MSGS-TO-ITSES))
;; (*ML (EQV-LIST *MSGS-TO-ITSES))
;;(*MD (EQV-LIST *MSGS-TO-ITSES))
(*ES (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))
@@ -112,7 +112,7 @@
;; (*MSG-SINK@MC (R-OPTION NOTDIST))
;; (*MSG-SINK@ML (R-OPTION NOTDIST))
;; (*MSG-SINK@MD (R-OPTION NOTDIST))
(*MSG-SINK@ES (R-OPTION NOTDIST))
(*MSG-SINK@DB (R-OPTION NOTDIST))
))
; This is final "sink". Mailer converts to filename specially.
(*MSG-SINK (R-OPTION NOTDIST))