ftp.nice.ch/peanuts/GeneralData/Documents/communication/UofO_SLIP_configuration.tar.gz#/UofO_SLIP_configuration/config/DEFAULT-SAMPLES/login-jvnc.tcl

This is login-jvnc.tcl in view mode; [Download] [Up]

#
# TCL script to connect to JvNCnet
#

# $Id: login-jvnc.tcl,v 4.6 1992/09/05 01:59:59 louie Rel $

set login [lindex $args 1]
set password [lindex $args 2]
set address [lindex $args 3]

parity zero
set timeout 20

xmit "\r"
foreach i {once} {
	expect "*sername:*" break	timeout {}
	xmit "\r"
	expect "*sername:*" break	timeout {}
	xmit "\r"
	expect "*sername:*" break	timeout {}
	send_break
	expect "*sername:*" break	timeout {}
	send_break
	expect "*sername:*" break	timeout {}
	error "Unable to get Username prompt from JvNCnet"
}

set timeout 20

xmit "$login\r"

expect "*assword:*" {} \
	timeout {error "Didn't get password prompt."}
xmit "$password\r"

expect "*>" log "Connected." \
	timeout	{error "Unable to connect to JvNCnet"}
xmit "slip\r"

expect "{*Ip address:*}" {} \
	timeout {error "Not prompted for IP address."}
log "sending address"
xmit "$login\r"

expect "*assword:*" {} \
	timeout {error "Didn't get password prompt."}
xmit "$password\r"

expect "*MTU*bytes*"	{log "Connected."} \
	"{*Access denied*}" {log "Access denied at JvNCnet"} \
	timeout		{error "Failed to connect."}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.