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