Return to uuxqt.com CVS log

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

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

1.1       root        1: $ !
                      2: $ ! Deal with requests for UUXQT
                      3: $ !
                      4: $ set noon
                      5: $ set proc/prio=4
                      6: $ set prot=w:re/default
                      7: $ !
                      8: $ UUXQT_DIR = "e$disk:[eunice.usr.lib.uucp]"
                      9: $ UUXQT_EXECUTE_DIR = "e$disk:[eunice.usr.spool.uucp]"
                     10: $ UUXQT_QUEUE = "SYS$SPECIAL"
                     11: $ UUXQT_RESUBMIT_PERIOD = "TOMORROW"
                     12: $ uuxqt:==$'UUXQT_DIR'uuxqt uuxqt
                     13: $ !
                     14: $ ! If there is a problem go tell the Boss 
                     15: $ on error then $ goto error_mail      
                     16: $ !
                     17: $ ! Delete JOBID file (means JOB running)
                     18: $ delete 'UUXQT_DIR'uuxqt.jid;*
                     19: $ UUXQT_Command:=""
                     20: $ UUXQT_CMD_FILE = F$SEARCH(UUXQT_DIR + "uuxqt.dat;*")
                     21: $ open/read/error=NO_COMMAND_FILE cmd_file 'UUXQT_DIR'uuxqt.dat
                     22: $ read cmd_file UUXQT_Command /end=EMPTY_COMMAND_FILE
                     23: $EMPTY_COMMAND_FILE:
                     24: $ close cmd_file
                     25: $ !
                     26: $ ! Delete all UUXQT command files 
                     27: $ UUXQT_CMD_FILES = UUXQT_CMD_FILE - F$PARSE(UUXQT_CMD_FILE,,,"VERSION") + ";*"
                     28: $ delete 'UUXQT_CMD_FILES'
                     29: $ !
                     30: $ NO_COMMAND_FILE:
                     31: $ assign nla0: sys$print       ! Keep those log file coming in !!???!!
                     32: $ set default 'UUXQT_EXECUTE_DIR'
                     33: $ uuxqt 'UUXQT_Command'                !Run UUXQT
                     34: $ status = $status
                     35: $ goto resubmit
                     36: 
                     37: $error_mail:
                     38: $ set noon     ! Push through regardless...
                     39: $ count = 0
                     40: $ subject = ""
                     41: $mail_error:
                     42: $ on error then $ goto mail_error
                     43: $ set noon
                     44: $ if count .gt. 10 then $ exit %X114
                     45: $ status = $STATUS
                     46: $ subject = subject + F$LOG("SYS$NODE")
                     47: $ subject = subject + "UUXQT error: " + F$STRING(STATUS)
                     48: $ subject = subject + " = " 
                     49: $ subject = subject + F$MESSAGE(STATUS)
                     50: $ subject = subject + " " + UUXQT_COMMAND
                     51: $ dis_list = UUXQT_DIR + "Disaster.DIS"
                     52: $ dis_list = F$PARSE(dis_list)
                     53: $ if dis_list .eqs. "" then $ dis_list = "SYSTEM"
                     54: $ dis_list = F$SEARCH(dis_list)
                     55: $ if dis_list .eqs. "" then $ dis_list = "SYSTEM"
                     56: $ if F$LOCATE(".DIS",DIS_LIST) .lt. F$LENGTH(DIS_LIST) then -
                     57:        $ dis_list = "@" + dis_list
                     58: $ MAIL NL: "''DIS_LIST'" /Subject="''subject'"
                     59: $ if .not. $status then $ MAIL nl: SYSTEM -
                     60:        /subject="UUXQT error mailing error ''STATUS' / ''$status'"
                     61: $ !
                     62: $resubmit:
                     63: $ if status then $ purge sys$login:uuxqt.log/keep=2
                     64: $ uuxqt_command = "submit"
                     65: $ ! Submit the job again later (Delta = defined above)
                     66: $ assign 'UUXQT_DIR'uuxqt.jid sys$output
                     67: $ submit 'UUXQT_DIR'uuxqt -
                     68:        /after="''UUXQT_RESUBMIT_PERIOD'" -
                     69:        /queue='UUXQT_QUEUE' /keep/NOPRINT
                     70: $ status = $status
                     71: $ deassign sys$output
                     72: $ !
                     73: $ if status then $ exit
                     74: $ if count .gt. 3 then $ exit
                     75: $ count = count + 1
                     76: $ subject = "Requeue Error:"
                     77: $ goto mail_error
                     78: $ exit

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