proc putOpt {typ} { global type if {[string compare $type $typ] == 0} {set par " selected"} else {set par ""} puts "$typ" } set sh "" set path "" set domain "" set server "" set type "" for {} {1<2} {} { set ln [gets -] if {[string equal $ln "."]} break set sh "$sh$ln
" if {[string first path $ln] >= 0} {set path [string range $ln 5 666]} if {[string first par.domain $ln] >= 0} {set domain [string range $ln 11 666]} if {[string first par.server $ln] >= 0} {set server [string range $ln 11 666]} if {[string first par.type $ln] >= 0} {set type [string range $ln 9 666]} } set cmd "lookup $type $domain $server" set res [exec $cmd] puts "lookup" puts "" puts "
" puts "domain:
" puts "server:
" puts "type:

" puts "
" puts "command: '$cmd'
" puts "results
$res

" puts "parameters
$sh
" puts ""