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