Posted to tcl by mjanssen at Sun May 06 18:23:56 GMT 2007view raw

  1. package require dns
  2. ::dns::configure -nameserver 10.0.0.2
  3. time {
  4. set tok [::dns::resolve 154.193.245.88.tr.countries.nerd.dk]
  5. puts [::dns::wait $tok]
  6. puts [::dns::result $tok]
  7. ::dns::cleanup $tok
  8. } 100