Return to uucico.com CVS log

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

Annotation of 43BSD/usr.bin/uucp/vms/uucico.com, revision 1.1

1.1     ! root        1: $ !
        !             2: $ ! Deal with requests for UUCICO
        !             3: $ !
        !             4: $ set noon
        !             5: $ set proc/prio=4
        !             6: $ set prot=w:re/default
        !             7: $ assign nla0: sys$print       ! Keep those log file coming in 
        !             8: $ !
        !             9: $ ! Define Key Parameters & commands
        !            10: $ !
        !            11: $ UUCICO_DIR = "e$disk:[eunice.usr.lib.uucp]"
        !            12: $ UUCICO_RESUBMIT_PERIOD = "+3:00:00"
        !            13: $ UUCICO_QUEUE = "SYS$SPECIAL"
        !            14: $ uucico:==$'UUCICO_DIR'uucico uucico
        !            15: $ status = 1
        !            16: $ !drain:==$e$disk:[eunice.usr.lib.uucp]drain drain
        !            17: $ !
        !            18: $ on error then $ goto error_mail      ! If there is a problem go tell the Boss
        !            19: $ !
        !            20: $ ! Delete JOBID file (means JOB running)
        !            21: $ delete 'UUCICO_DIR'uucico.jid;*
        !            22: $ oncethrough = 0
        !            23: $ Old_UUCICO_Command := "NEVER LIKELY TO BE IDENTICAL"
        !            24: $!
        !            25: $! Main loop.  Get command file arguments and execute UUCICO.
        !            26: $!
        !            27: $ANOTHER_CMD_FILE:
        !            28: $ UUCICO_CMD_FILE = F$SEARCH(UUCICO_DIR + "uucico.dat;*")
        !            29: $ open/read/error=NO_COMMAND_FILE cmd_file 'UUCICO_DIR'uucico.dat
        !            30: $ read cmd_file UUCICO_Command /end=EMPTY_COMMAND_FILE
        !            31: $EMPTY_COMMAND_FILE:
        !            32: $ close cmd_file
        !            33: $ delete 'UUCICO_CMD_FILE'     ! Delete the UUCICO command file just read
        !            34: $ goto RUN_CICO
        !            35: $!
        !            36: $NO_COMMAND_FILE:
        !            37: $ if oncethrough .eq. 1 then $ goto RESUBMIT
        !            38: $ UUCICO_Command:="-r1"                ! Default command = "look for work" (Once only)
        !            39: $!
        !            40: $RUN_CICO:
        !            41: $ if Old_UUCICO_Command .eqs. UUCICO_Command then $ goto ANOTHER_CMD_FILE
        !            42: $ ! allocate dedicated lines
        !            43: $ !alloc ttd0:
        !            44: $ uucico 'UUCICO_Command'              !Run UUCICO
        !            45: $ status = $status
        !            46: $ ! Clear up terminal lines
        !            47: $ !drain ttd0:
        !            48: $ oncethrough = 1
        !            49: $ Old_UUCICO_Command = UUCICO_Command
        !            50: $ goto ANOTHER_CMD_FILE
        !            51: $!
        !            52: $error_mail:
        !            53: $ set noon     ! Push through regardless...
        !            54: $ count = 0
        !            55: $ status = $STATUS
        !            56: $ subject = ""
        !            57: $mail_error:
        !            58: $ subject = subject + F$LOG("SYS$NODE")
        !            59: $ subject = subject + "UUCICO error: " + F$STRING(STATUS)
        !            60: $ subject = subject + " = " 
        !            61: $ subject = subject + F$MESSAGE(STATUS)
        !            62: $ subject = subject + " " + UUCICO_COMMAND
        !            63: $ dis_list = UUCICO_DIR + "Disaster.DIS"
        !            64: $ dis_list = F$PARSE(dis_list)
        !            65: $ if dis_list .eqs. "" then $ dis_list = "SYSTEM"
        !            66: $ dis_list = F$SEARCH(dis_list)
        !            67: $ if dis_list .eqs. "" then $ dis_list = "SYSTEM"
        !            68: $ if F$LOCATE(".DIS",dis_list) .lt. F$Length(dis_list) then -
        !            69:        $ dis_list = "@" + dis_list
        !            70: $ MAIL NL: "''DIS_LIST'" /Subject="''subject'"
        !            71: $ if .not. $status then $ MAIL nl: SYSTEM -
        !            72:        /subject="UUCICO error mailing error ''STATUS' / ''$status'"
        !            73: $ !
        !            74: $RESUBMIT:
        !            75: $ if status then $ purge sys$login:uucico.log/keep=2
        !            76: $ ! Submit the job again later (Delta = defined above)
        !            77: $ assign 'UUCICO_DIR'uucico.jid sys$output
        !            78: $ submit 'UUCICO_DIR'uucico -
        !            79:        /after="''UUCICO_RESUBMIT_PERIOD'" -
        !            80:        /queue='UUCICO_QUEUE' /keep/noprint
        !            81: $ status = $status
        !            82: $ deassign sys$output
        !            83: $ !
        !            84: $ if status then $ exit
        !            85: $ if "''count'" .eqs. "" then $ count = 0
        !            86: $ if count .gt. 3 then $ exit
        !            87: $ count = count + 1
        !            88: $ subject = "Requeue Error:"
        !            89: $ goto mail_error
        !            90: $ exit

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