#!/usr/bin/expect --
#
# Logs in to VE7RXD BBS via ve7tsi.ampr.org

proc login {} {
    expect {
	timeout {send_user "Login to ve7tsi.ampr.org failed"; exit}
	-re "\r\nlogin: " {
	    send "sm5sxl\r"
	    exp_continue
	}
	-re "\r\nPassword: " {
	    send "mats\r"
	    exp_continue
	}
	-re ">\r\n" {
	    send "bbs\r"
	}
    }

    expect {
	timeout {send_user "Login to VE7RXD failed"; exit}
	-re ">\r\n"
    }
}

spawn -nottyinit telnet ve7tsi.ampr.org
login
interact
.