Return to Dial.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/Dial.Hayes, revision 1.1.1.1

1.1       root        1: #!xchat
                      2: # @(#) dial.hayes V1.1 Tue Sep  1 13:59:58 1992 (Bob Denny)
                      3: #
                      4: # xchat script for dialing a vanilla Hayes modem
                      5: #
                      6: # Usage:
                      7: #      xchat dial.hayes telno
                      8: #
                      9: # where telno is the telephone number, subject to pause and wait
                     10: # character modification. 
                     11: #
                     12: # Uncomment the first two lines after "start:" to get debugging
                     13: # in file "Dial.Log"
                     14: #
                     15: # Flush input, zero counter, set telephone number if supplied,
                     16: # else fail if no telephone number given.
                     17: #
                     18: start:
                     19: ###    dbgfile                 Dial.Log
                     20: ###    dbgset                  15 
                     21:        zero
                     22:        flush
                     23:        ifnstr  notelno         0
                     24:        telno                   0
                     25:        goto    initmodem
                     26: #
                     27: # Missing telephone number.
                     28: #
                     29: notelno:
                     30:        logerr  No telephone number given
                     31:        failed
                     32: #
                     33: # Reset the modem to nonvolatile profile. 
                     34: # Allow 3 sec. for response, as some modems are slow to reset.
                     35: #
                     36: initmodem:
                     37:        count
                     38:        ifgtr   cantinit        4
                     39:        send    ATZ\r
                     40:        timeout initmodem       3000
                     41:        expect  setupmodem      OK
                     42: #
                     43: # No response from modem
                     44: #
                     45: cantinit:
                     46:        logerr  Can't wake modem
                     47:        failed
                     48: #
                     49: # Send the stuff needed to initialize the modem to the modes
                     50: # needed for the particular modem flavor. The string below
                     51: # is provided as a vanilla example. Allow 2 sec. for the
                     52: # modem to respond to this command.
                     53: #
                     54: setupmodem:
                     55:        sleep   1000
                     56:        send    ATM0S7=90S11=120\r
                     57:        timeout setupfail       2000
                     58:        expect  setupfail       ERROR
                     59:        expect  dialnumber      OK
                     60: #
                     61: # Modem barfed or died on setup command.
                     62: #
                     63: setupfail:
                     64:        logerr  Error in modem setup string
                     65:        failed
                     66: #
                     67: # Dial the supplied number. Handle the various errors that
                     68: # can come back from the modem by logging the error.
                     69: #
                     70: dialnumber:
                     71:        sleep   1000
                     72:        send    ATDT
                     73:        dial
                     74:        send    \r
                     75:        flush
                     76:        timeout timeout         90000
                     77:        expect  connected       CONNECT
                     78:        expect  busy            BUSY
                     79:        expect  nocarrier       NO CARRIER
                     80:        expect  noanswer        NO ANSWER
                     81:        expect  nodialtone      NO DIALTONE
                     82: #
                     83: # Success!
                     84: #
                     85: connected:
                     86:        success
                     87: #
                     88: # Handle modem dial failures
                     89: #
                     90: timeout:
                     91:        logerr  Modem or carrier timeout.
                     92:        failed
                     93: busy:
                     94:        logerr  BUSY
                     95:        failed
                     96: nocarrier:
                     97:        logerr  NO CARRIER
                     98:        failed
                     99: noanswer:
                    100:        logerr  NO ANSWER
                    101:        failed
                    102: nodialtone:
                    103:        logerr  NO DIALTONE
                    104:        failed
                    105: #
                    106: # end
                    107: #
                    108: 

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