Return to Hangup.Hayes CVS log

Up to [MW Coherent from dump] / coherent / g / usr / lib / uucp / tay104 / contrib

Annotation of coherent/g/usr/lib/uucp/tay104/contrib/Hangup.Hayes, revision 1.1.1.1

1.1       root        1: #!xchat
                      2: # @(#) Hangup.Hayes V1.1 Tue Sep  1 14:04:25 1992 (Bob Denny)
                      3: #
                      4: # xchat script for hanging up a Hayes-type modem. When used with Taylor
                      5: # UUCP, this script should be run as the dialer-complete and dialer-abort
                      6: # script with xchat.
                      7: #
                      8: # Usage:
                      9: #      xchat Hangup.Hayes [ x ]
                     10: #
                     11: # where 'x' is any string. If it is present, this script will log the
                     12: # modem reset as an ABORT reset, otherwise it will not log anything.
                     13: #
                     14: # Uncomment the lines starting with '###' to get debugging log.
                     15: #
                     16: start:
                     17: ###    dbgfile                 Hangup.Log
                     18: ###    dbgset                  15
                     19:        zero
                     20:        sleep   2000                    # Wait for trailing garbage
                     21:        flush                           # Toss it out
                     22:        ifnstr  wakemodem       0       # No abort indicator
                     23:        log     Hangup on abort
                     24: #
                     25: # Get modem's attention via Hayes 'escape' protocol.
                     26: #
                     27: wakemodem:
                     28:        sleep   4000
                     29:        send    +++
                     30:        sleep   4000
                     31:        send    \r
                     32:        timeout reset           2000
                     33:        expect  reset           OK
                     34: #
                     35: # We're (probably) in command mode. Use ATZ (reset) to hang up
                     36: # as some modems don't behave well with ATH0 command.
                     37: #
                     38: reset:
                     39:        send    ATZ\r
                     40:        timeout silent          5000
                     41:        expect  done            OK
                     42: #
                     43: # Finished, modem is back in initial state.
                     44: #
                     45: done:
                     46:        success
                     47: #
                     48: # No response to escape protocol. Log the error and force DTR low
                     49: # in an attempt to get control of the modem. Then send ATZ just to
                     50: # make sure.
                     51: #
                     52: silent:
                     53:        logerr  Hangup: no response from modem
                     54:        hangup                          # Force DTR low as last gasp
                     55:        send    ATZ\r
                     56:        sleep   5000
                     57:        failed

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