proc getline {} { global b global c global d global e global f global g global h proc getword {} { global b set b [string trim $b] set p [string first " " $b] if {$p < 0} { set p $b set b "" return $p } set c [string range $b 0 [expr $p - 1]] set b [string range $b $p [string length $b]] set b [string trim $b] return $c } set c [getword] set d [getword] set e [getword] set f [getword] set g [getword] set h [getword] } set b [exec "show tracker"] set b [split $b "\r"] set b [split $b "\n"] set c "" set d "" set e "" set f "" set g "" set h "" getline puts "network map" puts "" set a "trackMap.class?home.png" for {} {[string length $b] > 0} {} { getline set a "$a&$c-$g" } puts "map
" set a [exec "term tab html" "show tracker"] puts "$a
" puts ""