Posted to tcl by patthoyts at Wed Jul 16 19:40:58 GMT 2008view raw

  1. package require dns ;# from tcllib
  2.  
  3. proc Response {tok} {
  4. if {[dns::status $tok] eq "error"} {
  5. puts "not blocked: [dns::error $tok]"
  6. } else {
  7. puts "blocked: [dns::name $tok]"
  8. }
  9. dns::cleanup $tok
  10. }
  11.  
  12. dns::resolve 2.0.0.127.tor.ahbl.org -type A -command Response