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.