examples/dnstest.tcl

   1 lappend auto_path [pwd]
   2 package require dns
   3
   4 # Use google's DNS
   5 dns::configure -nameserver 8.8.8.8
   6
   7 puts "Resolve with udp"
   8 set tok [dns::resolve www.tcl.tk]
   9 puts status=[dns::status $tok]
  10 puts address=[dns::address $tok]
  11 puts names=[dns::name $tok]
  12 dns::cleanup $tok
  13
  14 # Now with tcp
  15 dns::configure -protocol tcp
  16
  17 puts "Resolve with tcp"
  18 set tok [dns::resolve www.google.com]
  19 puts status=[dns::status $tok]
  20 puts address=[dns::address $tok]
  21 puts names=[dns::name $tok]
  22 dns::cleanup $tok