+# get matrix ip
+set ip ""
+set fid [open "/etc/hosts" r]
+while { [gets $fid line] >= 0 } {
+ regsub "#.*$" $line {} line
+ if {[string match "*matrix*" $line]} {
+ regsub -all "\\." $line " " line
+ foreach word $line {
+ if {![regexp "^\[0-9\]+$" $word]} break
+ set digit [format "%03d" $word]
+ set ip [concat $ip $digit]
+ }
+ break
+ }
+}
+close $fid
+set matrix [join $ip "."]
+