1$! 2$! Command procedure to initialize the uucp environment. 3$! It is to be invoked from systartup.com. 4$! 5$! The uucico and uuxqt batch jobs are submitted as the uucp user. 6$! 7$ assign/system e$disk:[eunice.usr.lib.uucp]uucpmail nyu$uucpmail 8$ define/system UUCP_NAME UUCP 9$! 10$ set_user_cld = F$PARSE("NYU$PRINTER:SETUSER.CLD") 11$ if set_user_cld .nes. "" then $ set_user_cld = F$SEARCH(set_user_cld) 12$ if set_user_cld .eqs. "" then $ goto err_no_cld 13$ set_user = F$PARSE("NYU$PRINTER:SETUSER.EXE") 14$ if set_user .nes. "" then $ set_user = F$SEARCH(set_user) 15$ if set_user .eqs. "" then $ goto err_no_exe 16$ on error then $ goto bad_set_user 17$! 18$ uucico_file = "E$DISK:[EUNICE.USR.LIB.UUCP]UUCICO.COM;" 19$ uucico = F$PARSE( uucico_file ) 20$ if uucico .nes. "" then $ uucico = F$SEARCH(uucico) 21$ if uucico .eqs. "" then $ goto no_uucico 22$! 23$ uuxqt_file = "E$DISK:[EUNICE.USR.LIB.UUCP]UUXQT.COM;" 24$ uuxqt = F$PARSE( uuxqt_file ) 25$ if uuxqt .nes. "" then $ uuxqt = F$SEARCH(uuxqt) 26$ if uuxqt .eqs. "" then $ goto no_uuxqt 27$! 28$ resubmit = F$PARSE("NYU$BACKUP:RESUBMIT.COM") 29$ if resubmit .eqs. "" then $ resubmit = F$SEARCH(resubmit) 30$! 31$ set command 'set_user_cld' 32$ uucp_user = "UUCP" 33$ uucp_user = F$LOGICAL("UUCP_NAME") 34$ if uucp_user .eqs. "" then $ uucp_user = "UUCP" 35$! 36$ cur_username = F$GETJPI("","USERNAME") 37$ setuser 'uucp_user' 38$ ! Submit them 39$ on error then $ goto bad_submit 40$ if resubmit .nes. "" then $ goto resubmit_it 41$! 42$ submit/queue=SYS$SPECIAL/keep 'UUCICO' /after="+0:15:0" 43$ submit/queue=SYS$SPECIAL/keep 'UUXQT' /after="+0:15:0" 44$ goto set_back 45$! 46$resubmit_it: 47$ @'resubmit' UUCICO SYS$SPECIAL 'UUCICO' "/after=""""+0:15:0""""" 48$ @'resubmit' UUXQT SYS$SPECIAL 'UUXQT' "/after=""""+0:15:0""""" 49$! 50$set_back: 51$ setuser 'cur_username' 52$ exit 53$! 54$err_no_cld: 55$ write sys$output "%STARTUUCP-E-NOCLD, no NYU$PRINTER:SETUSER.CLD file" 56$ exit %X0 57$! 58$err_no_exe: 59$ write sys$output "%STARTUUCP-E-NOEXE, no NYU$PRINTER:SETUSER.EXE file" 60$ exit %X0 61$! 62$no_uuxqt: 63$ write sys$output "%STARTUUCP-E-NOUUXQT, no ",uuxqt_file," file" 64$ exit %X0 65$! 66$no_UUCICO: 67$ write sys$output "%STARTUUCP-E-NOUUCICO, no ",UUCICO_file," file" 68$ exit %X0 69$! 70$bad_set_user: 71$ write sys$output "%STARTUUCP-E-BADSETUSER, SETUSER ",UUCP_USER," failed" 72$ exit %X0 73$! 74$bad_submit: 75$ write sys$output "%STARTUUCP-E-SUBMITFAIL, submit failed" 76$ exit %X0 77