Posted to tcl by patthoyts at Wed Jul 16 19:40:58 GMT 2008view pretty
package require dns ;# from tcllib proc Response {tok} { if {[dns::status $tok] eq "error"} { puts "not blocked: [dns::error $tok]" } else { puts "blocked: [dns::name $tok]" } dns::cleanup $tok } dns::resolve 2.0.0.127.tor.ahbl.org -type A -command Response