; MAIL.CMD
;
; COMMAND FILE TO CREATE AND INSTALL THE IAS MAIL UTILITY.
; REQUIRES FLECS TO BE INSTALLED WITH MARK LEWIS'S DCL INTERFACE.
;
; CREATE THE MAILBOX AND MAILING LIST ACCOUNTS, ALLOWING ANYONE TO CREATE
; A PUBLIC MAILING LIST.
;
;UFD lb:[10,0]/PRO=[rwed,rwed,rwed,RWE]
;UFD lb:[10,3]/PRO=[rwed,rwed,rwed,RWE]
;
; ASSEMBLE MACRO ROUTINES AND CREATE A LIBRARY
;
mac ckusr,ckusr/-sp=CKUSR
mac equal,equal/-sp=EQUAL
mac feof,feof/-sp=FEOF
mac getusr,getusr/-sp=GETUSR
mac index,index/-sp=INDEX
mac length,length/-sp=LENGTH
mac mvstr,mvstr/-sp=MVSTR
mac trunc,trunc/-sp=TRUNC
mac wfown,wfown/-sp=WFOWN
LBR MAILIB/cr=CKUSR,EQUAL,FEOF,GETUSR,INDEX,MVSTR,LENGTH,TRUNC,WFOWN
;
; BUILD THE ACCOUNTING TASK, WHODID
;
FLE WHODID,WHODID/-SP=WHODID
f4p whodid,whodid/-sp=whodid.ftn/co:20

mac s,s/-sp=S
TKB @WHODID
;
; RUN IT. IT PUTS THE LISTING IN [1,100]
;
set /uic=[1,1]
RUN [1,32]WHODID
set /uic=[1,32]
PRINT [1,100]WHODID.LST
;
; BUILD THE SYSTEM GLOBAL AREA, MAICOM, AND INSTALL IT
;
FLE MAICOM,MAICOM/-SP=MAICOM
f4p maicom,maicom/-sp=maicom.ftn/co:20
TKB @MAICOM
set /uic=[1,1]
PIP [1,1]MAICOM.TSK=[1,32]MAICOM.TSK
PIP [1,1]MAICOM.STB=[1,32]MAICOM.STB
INSTALL [1,1]MAICOM/CM/UIC:[1,1]/ACCESS:RW
set /uic=[1,32]
;
; BUILD AND INSTALL THE MAIL UTILITY
;
FLE MAIL,MAIL/-SP=MAIL
f4p mail,mail/-sp=mail.ftn/co:20
TKB @MAIL
INSTALL MAIL
;
; BUILD AND INSTALL THE POSTMAN
;
FLE POSTMAN,POSTMAN/-sp=POSTMAN
f4p postman,postman/-sp=postman.ftn/co:20
TKB @POSTMAN
INS POSTMAN
;
; SCHEDULE THE POSTMAN'S ROUTE
;
FIX POSTMN
RUN POSTMN/RSI=5 S