#! /usr/bin/expect -f

# for UY0LL's DX-Cluster Voice System

set CINTR \003	;# ^C
set CSUSP \032	;# ^Z

set timeout -1
spawn telnet www.uy0ll.ampr.org 41112

expect_after eof exit	;# 

expect {
	callsign:		{send ub5lmj\r}
	"unknown"	{exit 1}
	"unreachable"	{exit 1}
}
expect {
        Password:       {send yyy\r}
        "login"         {exit 1}
}

send_user "type ^C to exit, ^Z to suspend\n"
interact {
	-reset	$CSUSP  {exec kill -STOP [pid]}
		$CINTR  {exit 0}
}
