proc putOpt {typ} {
global type
if {[string compare $type $typ] == 0} {set par " selected"} else {set par ""}
puts ""
}
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 "
$res