Subversion Repositories or1k

#!/depot/path/expect -f


# separate address into user and host
regexp (.*)@(.*) $argv ignore user host

log_user 0
set timeout -1

# host might be an mx record, convert to a real host via nslookup
spawn nslookup
expect "> "
send "set query=mx\r"
expect "> "
send "$host\r"
expect {
        "No mail exchanger" {}
        -re "mail exchanger = (\[^\r]*)" {
                set host $expect_out(1,string)
        }
}

spawn telnet $host smtp
expect "220*\r\n"
send "vrfy $user\r"
expect  "250" {send_user "GOOD\n"} \
        "550" {send_user "BAD\n"}