Return to startuucp.com CVS log

Up to [CSRG BSD Unix] / 43BSD / usr.bin / uucp / vms / support

Annotation of 43BSD/usr.bin/uucp/vms/support/startuucp.com, revision 1.1.1.1

1.1       root        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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.