tips/shells/expect_sample

Last-modified: 2007-02-20 (火) 23:38:19
#!/usr/bin/expect
#set fid [open "mail.log"]
#set date [read $fid]
set host 172.16.10.100
set port 25
spawn telnet $host $port
expect "220"
send "HELO mx01.hoge.co.jp\r"
expect "250"
send "MAIL FROM: alert@test.co.jp\r"
expect "250"
send "RCPT TO: hoge@example.co.jp\r"
expect "250"
send "RCPT TO: foo@example.co.jp\r"
expect "250"
send "RCPT TO: boo@example.co.jp\r"
expect "250"
send "DATA\r"
send "Subject: [Emergency] Alert!\r"
send "FROM:alert@test.co.jp\r"
send "TO:hoge@example.co.jp,foo@example.co.jp,boo@example.co.jp\r"
send "\r"
send "Honbun wo Kaitene!!\r"
send ".\r"
expect "250"
send "quit\r"
exit