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     ! 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.