Return to Login.VMS CVS log

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

Annotation of coherent/g/usr/lib/uucp/tay104/contrib/Login.VMS, revision 1.1.1.1

1.1       root        1: #!xchat
                      2: # @(#) Login.VMS V1.1 Tue Sep  1 13:24:54 1992 (Bob Denny)
                      3: #
                      4: #
                      5: # xchat script for logging into a VMS system.  If no VMS password
                      6: # parameter supplied, skips password phase of VMS login. If syspass
                      7: # parameter given, will go through steps needed to log into a VMS
                      8: # system where a "system password" was set on the port.
                      9: #
                     10: # Cannot handle situation where system password is required but
                     11: # no password needed.
                     12: #
                     13: #
                     14: # Usage:
                     15: #      xchat Login.VMS username [ password [ syspass ] ]
                     16: #
                     17: # Uncomment the lines starting with "###" to get debug logging.
                     18: #
                     19: start:
                     20: ###    dbgfile Login.Log
                     21: ###    dbgset  15
                     22:        sleep   2000                    # Wait 2 seconds
                     23:        zero
                     24:        flush                           # Flush typeahead
                     25:        ifnstr  login           2       # Skip sys passwd if not given
                     26: #
                     27: # Need system password. Send <CR> to get bell.
                     28: # Try 5 times at 2 sec. intervals. Skip to do
                     29: # username if we see "Username:".
                     30: #
                     31: syspass:
                     32:        count
                     33:        ifgtr   nobell          5       # Fail after 5 tries
                     34:        send    \r
                     35:        timeout syspass         2000    # Wait 2 sec. and try again
                     36:        expect gotbell          \007
                     37:        expect gotlogin         Username:
                     38: #
                     39: # Got the bell. Send the system password. Repeat 5 times
                     40: # at 2 sec. intervals. Fail if we don't get Username:
                     41: #
                     42: gotbell:
                     43:        zero
                     44:        sleep 2000
                     45: l1:
                     46:        count
                     47:        ifgtr   nologin         5       # Fail after 5 tries
                     48:        sendstr 2
                     49:        send    \r
                     50:        timeout l1              2000    # Wait 2 sec. and try again
                     51:        expect  gotlogin                Username:
                     52: #
                     53: # Start here if no system password supplied. 
                     54: # Send <CR> until we get Username: Try 5 times at 2 sec. intervals.
                     55: #
                     56: login:
                     57:        count
                     58:        ifgtr   nologin         5       # Fail after 5 tries
                     59:        send    \r
                     60:        timeout login           2000    # Wait 2 sec. and try again
                     61:        expect  gotlogin        Username:
                     62: #
                     63: # Got VMS "Username:" prompt. Send the username. If a password
                     64: # was given, wait for the "Password:" prompt. Die after 10 seconds.
                     65: # if no password was given, we're done!
                     66: #
                     67: gotlogin:
                     68:        sendstr 0
                     69:        send    \r
                     70:        ifnstr  done            1
                     71:        timeout nopasswd        10000
                     72:        expect  gotpasswd       Password:
                     73: #
                     74: # Got VMS "Password:" prompt. Send the password and we're done!
                     75: #
                     76: gotpasswd:
                     77:        sendstr 1
                     78:        send    \r
                     79: #
                     80: # Success!
                     81: #
                     82: done:
                     83:        success
                     84: #
                     85: # ERROR HANDLERS
                     86: #
                     87: nobell:
                     88:        logerr  No VMS system password prompt (bell)
                     89:        failed
                     90: nologin:
                     91:        logerr  No VMS Username: prompt
                     92:        failed
                     93: nopasswd:
                     94:        logerr  No VMS Password: prompt.
                     95:        failed
                     96: 

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