Below is a small patch for the discover script. This should fix a
problem that causes the script to abort with a tcl backtrace.
Juergen
*** /usr/local/tmp/scotty-0.7/tkined/discover.tcl Fri Oct 8 15:05:25 1993
--- discover.tcl Thu Nov 25 19:27:58 1993
***************
*** 916,923 ****
if {$ip == "0.0.0.0"} continue
! # Merge node given by ip with the given by id.
set rid $ids($ip)
catch {unset nodes($rid)}
catch {unset address($rid)}
--- 916,927 ----
if {$ip == "0.0.0.0"} continue
! # Merge node given by ip with the given by id. Ignore IP
! # addresses for which there is no id. We get such beasts
! # when checking the returned udp address.
+ if {![info exists ids($ip)]} continue
+
set rid $ids($ip)
catch {unset nodes($rid)}
catch {unset address($rid)}
***************
*** 1110,1116 ****
set tmp ""
foreach net [lindex $res 0] {
! regsub "(\.0+)+$" $net "" net
lappend tmp $net
}
set nets $tmp
--- 1114,1120 ----
set tmp ""
foreach net [lindex $res 0] {
! regsub {(\.0+)+$} $net "" net
lappend tmp $net
}
set nets $tmp