gnu/libexec/uucp/contrib/Login.LAT

#!xchat
# @(#) login.LAT V1.2 Tue Sep  1 13:25:28 1992
#
# xchat script for logging into a VMS system through a LAT
# terminal server port. If no VMS password parameter supplied,
# skips password phase of VMS login. If LAT-password supplied,
# will log into LAT server using that password. NOTE: does not
# handle the situation where a LAT password is needed but no
# VMS password is needed.
#
# Usage:
#       xchat login.LAT sysname username [ password [ LAT-password ] ]
#
# History:
#  rbd Fri Aug 14 13:37:06 1992
#    Changes for Lantronix ETS-16. It says "type help at the Local>
#    prompt..." then it gives the prompt for real! Prompt may need
#    to be something other than "Local>". We match the real Local>
#    prompt by matching the leading newline!
#
#  rbd Tue Sep  1 13:04:32 1992
#    Remove absolute path name from log file. Now defaults per config.
#
start:
        dbgfile Login.Log
        dbgset  15
        sleep   2000                    # Wait 2 seconds
        flush                           # Flush typeahead
        ifnstr  svrstart        3       # Skip server password if not given
#
# Starting point if server password supplied. Handle situation
# where the server line may have been left waiting for username
# or at local> prompt.
#
getsvrpwp:
        zero
l0:
        count                           # Get server's password prompt
        ifgtr   deadmux         5       # die if 5 cr's don't do it
        send    \r
        timeout l0              1000    # Wait and try again
        expect  dosvrpw         ssword>
        expect  svrlogin        ername>
        expect  connect         \nLocal>
#
# Send server's password. Fail if don't get Username
# or Local> prompt.
#
dosvrpw:
        zero
l2:
        sendstr 3
        send \r
        timeout badsvrpw        5000    # Die if invalid
        expect  svrlogin        ername>
        expect  connect         \nLocal>
#
# Starting point if NO server password supplied. Handle situation
# where the server line may have been left at local> prompt.
#
svrstart:
        zero
l1:
        count                           # Get username> or local> prompt
        ifgtr   deadmux         5       # Die if 5 cr's don't do it
        send    \r
        timeout l1              1000    # Wait and try again
        expect  svrlogin        ername>
        expect  connect         \nLocal>
#
# Server asked for a username. Just give 'uucp'.
#
svrlogin:
        send    uucp\r
        timeout deadmux         2000
        expect  connect         \nLocal>
#
# At this point, we have the Local> prompt. Send the connect
# command for the specified LAT host service name, and wait for
# VMS "Username:" prompt. Die after 10 seconds.
#
connect:
        send    c\s
        sendstr 0
        send    \r
        timeout nologin         10000
        expect  gotlogin        ername:
#
# Got VMS "Username:" prompt. Send the username. If a password
# was given, wait for the "Password:" prompt. Die after 10 seconds.
# if no password was given, we're done!
#
gotlogin:
        sendstr 1
        send    \r
        ifnstr  done            2
        timeout nopasswd        10000
        expect  gotpasswd       ssword:
#
# Got VMS "Password:" prompt. Send the password and we're done!
#
gotpasswd:
        sendstr 2
        send    \r
#
# Success!
#
done:
        success
#
# ERROR HANDLERS
#
#
# LAT server appears dead. Fail.
#
deadmux:
        logerr  No response from LAT server
        failed
#
# The server password was bad. Fail.
#
badsvrpw:
        logerr  Invalid LAT server password
        failed
#
# VMS system appears to be dead. Fail.
#
nologin:
        logerr  No VMS Username: prompt
        failed
#
# Failed to get "Password:" prompt. Fail.
#
nopasswd:
        logerr  No VMS Password: prompt. Invalid password?
        failed