svn/view/checksmtp.exp

#!/usr/bin/expect -f

set mailserver [lrange $argv 0 0]
set ehlo pro5s2.nethence.com
set from starttls@nethence.com

send_error "$mailserver\t"

spawn telnet $mailserver 25
expect "Name or service not known" {
        send_error "connect-bad-dns\n"
        exit
} "Unknown host" {
        send_error "connect-bad-host\n"
        exit
} "Invalid argument" {
        send_error "connect-invalid-argument\n"
        exit
} "failed" {
        send_error "connect-failed\n"
        exit
} "2?? *" {
} "4?? *" {
        send_error "connect-4xx\n"
        exit
} "5?? *" {
        send_error "connect-5xx\n"
        exit
} "refused" {
        send_error "connect-refused\n"
        exit
} "closed" {
        send_error "connect-closed\n"
        exit
} timeout {
        send_error "connect-timeout\n"
        exit
} else {
        send_error "connect-unknown\n"
        exit
}

send "EHLO $ehlo\r"
expect "250-STARTTLS" {
} "2?? *" {
        send_error "ehlo-2xx-no-starttls\n"
        send "QUIT\r"
        expect eof
        exit
} "5?? *" {
        send_error "ehlo-5xx\n"
        send "QUIT\r"
        expect eof
        exit
} "4?? *" {
        send_error "ehlo-4xx\n"
        send "QUIT\r"
        expect eof
        exit
} timeout {
        send_error "ehlo-timeout\n"
        send "QUIT\r"
        expect eof
        exit
} else {
        send_error "ehlo-unknown\n"
        send "QUIT\r"
        expect eof
        exit
}

send "MAIL FROM: <$from>\r"
expect "2?? *" {
        send_error "sender-2xx\n"
        send "QUIT\r"
        expect eof
        exit
} "5?? *" {
        send_error "sender-5xx\n"
        send "QUIT\r"
        expect eof
        exit
} "4?? *" {
        send_error "sender-4xx\n"
        send "QUIT\r"
        expect eof
        exit
} else {
        send_error "sender-unknown\n"
        send "QUIT\r"
        expect eof
        exit
}

#send "QUIT\r"
#expect eof
send_error "THIS-IS-A-BUG - expect should have exited already\n"
exit
