perm filename DO.DO[HST,NET]8 blob sn#823463 filedate 1986-08-21 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00006 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	|BATCH:?\\\PRINT.\Submit the nightly batch job.  Must be logged in as [HST,NET].\
C00003 00003	|MERGE:?\\\PRINT.\Merge HOSTS.TXT and PUPHST.TXT into HOSTS3.BIN.\
C00004 00004	|HOSTS:?\\\PRINT.\Copy new HOSTS.TXT version and compare with old.\
C00005 00005	|PUPHST:?\\\PRINT.\Copy new PUPHST.TXT version and compare with old.\
C00006 00006	|TTYINI:?\\\PRINT.\Copy new TTYINI.BIN file from Score.\
C00007 ENDMK
C⊗;
|BATCH:?\\\PRINT.\Submit the nightly batch job.  Must be logged in as [HST,NET].\

batch/do/time=0300*/tlimit=5/count=∞ @update.ctl[hst,net]↔
|
|MERGE:?\\\PRINT.\Merge HOSTS.TXT and PUPHST.TXT into HOSTS3.BIN.\
\NEWLINE.
\PRINT.\*** Did you fix the Stanford Arpanet host entries? ***\
run hosts3;insert merge.txt↔
|
|HOSTS:?\\\PRINT.\Copy new HOSTS.TXT version and compare with old.\
\NEWLINE.
\PRINT.\Old HOSTS.TXT version: \?h
\PRINT.\New HOSTS.TXT version: \?H
\FLUSH.

COPY HOSTS.?H←HOSTS.TXT↔
R SRCCOM↔
HOSTS.DIF/E/O←HOSTS.?h,HOSTS.?H↔
λMAIL/-O/SUBJ #HSTDIF.MSG[HST,NET] @HOSTS.DIF↔
DELETE/Q HOSTS.DIF↔
ET HSTDIF.MSG/E/L↔
|
|PUPHST:?\\\PRINT.\Copy new PUPHST.TXT version and compare with old.\
\NEWLINE.
\PRINT.\Old PUPHST.TXT version: \?p
\PRINT.\New PUPHST.TXT version: \?P
\FLUSH.

COPY PUPHST.?P←PUPHST.TXT↔
R SRCCOM↔
PUPHST.DIF/E/O←PUPHST.?p,PUPHST.?P↔
λMAIL/-O/SUBJ #PUPDIF.MSG[HST,NET] @PUPHST.DIF↔
DELETE/Q PUPHST.DIF↔
ET PUPDIF.MSG/E/L↔
|
|TTYINI:?\\\PRINT.\Copy new TTYINI.BIN file from Score.\
\NEWLINE.
ftp ttyini.bin[hst,net]←{score}<finger>ttyini.net-bin↔
|