Change to support telnet to a given port on a node.

John P. Rouillard (rouilj@dstar.iddis.com)
Fri, 25 Aug 1995 10:22:28 -0400

The following patch to scotty-2.0.0 tkined/ip_trouble.tcl will add the
ability to define node parameter telnet_port, which will then be used
as the port argument to the telnet command. My use for this is to
connect into my terminal server at a given port, which will then send
me out the serial line on the terminal server to the console of the
machine I want.

I use the terminal icons for the connection points.

Index: ip_trouble.tcl
===================================================================
RCS file: /sources/cvsrepos/scotty_tkined/scotty-2/tkined/ip_trouble.tcl,v
retrieving revision 1.1.1.1
diff -c -r1.1.1.1 ip_trouble.tcl
*** ip_trouble.tcl 1995/08/24 17:04:58 1.1.1.1
--- ip_trouble.tcl 1995/08/25 13:49:03
***************
*** 244,250 ****
}

ForeachIpNode id ip host $list {
! catch {exec $xterm -title $host -e telnet $ip &}
}
}

--- 244,255 ----
}

ForeachIpNode id ip host $list {
! set port [ined attribute $id telnet_port]
! if { $port=="" } {
! catch {exec $xterm -title $host -e telnet $ip &}
! } else {
! catch {exec $xterm -title $host -e telnet $ip $port &}
! }
}
}