#!/usr/bin/expect -f

# DNS Expect module for sawdog
# You need nslookup for this.

set env(TERM) vt100

set timeout 10
match_max 100000

spawn nslookup
send -- "server $argv\r"
send -- "internic.net\r"
expect "answer" {
  send -- "exit\r"
  exit 0
} "No response from server" {
  send -- "exit\r"
  exit 2
}
close
exit 1
  
