This is login-digex.tcl in view mode; [Download] [Up]
#
# TCL script for use with tcldiald. Used to put unix host at access.digex.net into SLIP mode.
# Set default timeout for expect command
set timeout 5
log "Begin digex.net login"
#Set transmit to 8 bits, no parity
parity ZERO
# In case autobaud
xmit "\r"
xmit "\r"
# Wait a few seconds for login info to be sent
sleep 3
# Look for unix login prompt
expect timeout {error "waiting for login"} "*ogin:*"
# Send login name
xmit "INSERT LOGIN NAME SUPPLIED BY DIGEX HERE\r"
sleep 1
# Wait for password prompt and send password
expect timeout {error "waiting for password"} "*assword:*"
xmit "INSERT PASSWORD SUPPLIED BY DIGEX HERE\r"
sleep 1
# Wait for connection
expect timeout {error "waiting for SLIP startup"} "*beginning*"
log "Entering SLIP mode"
return "Connected"
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.