Posted to tcl by patthoyts at Wed Jul 16 19:40:58 GMT 2008view raw
- 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