Add a dns/binary example

This is take from the tcllib dns package and shows the
high level of compatibility with Tcl.

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 22 insertions, 0 deletions

diff --git a/examples/dnstest.tcl b/examples/dnstest.tcl
new file mode 100644
index 0000000..905ecb8
--- /dev/null
+++ b/examples/dnstest.tcl
@@ -0,0 +1,22 @@
+lappend auto_path [pwd]
+package require dns
+
+# Use google's DNS
+dns::configure -nameserver 8.8.8.8
+
+puts "Resolve with udp"
+set tok [dns::resolve www.tcl.tk]
+puts status=[dns::status $tok]
+puts address=[dns::address $tok]
+puts names=[dns::name $tok]
+dns::cleanup $tok
+
+# Now with tcp
+dns::configure -protocol tcp
+
+puts "Resolve with tcp"
+set tok [dns::resolve www.google.com]
+puts status=[dns::status $tok]
+puts address=[dns::address $tok]
+puts names=[dns::name $tok]
+dns::cleanup $tok