Telnet客户端

开发平台：

Unix_Linux

.xta：源码内容

							# .xta - xt script to visit CIS automagically; mail,sco,uni
# assumes goto-MAIL-if-any-mail, command mode in MAIL and Fora,
#	non-stop read, and Prompt Char set to '^H' in all Fora.
tty "on"
#set dir "/u/jpr/comm"
#debug "on"
call ".xtcis"
waitfor  " ID:"
if seen "? ILGLNK"
then
	beep
	echo ""
	quit
fi
assign SERVICE eq "mail"
call ".pass"
set cfile "email"
#debug "on"
if waitfor "CompuServe Mail  ^M" 8
tty "on"
then	if ! waitfor "No messages pending" 5
	then	capture "on"
		file echo `date`
		transmit "rec all^M"
		while ! waitfor "Mail!"
			do; done
		transmit "del all^M"
		capture "off"
	fi
else
	beep
endif
set cfile "uni"
transmit "g unixforum^M"
waitfor "moment please..."
capture "on"
if waitfor "forum !^h" 75
then
	assign Upload eq `ls uniR 2>/dev/null`
	if Upload eq "uniR"
	then	capture "off"
		type "uniR"
		transmit "^M"
		while ! waitfor "^J% choice required"
			do; done
		shell "mv uniR /pub/rescue/uniR$$"
		capture "on"
	fi
	transmit "rea new^M^M"
	while ! waitfor "^J% choice required"
		do; done
	capture "off"
else
	beep
fi
set cfile "sco"
transmit "g scoforum^M"
waitfor "moment please..."
capture "on"
if waitfor "forum !^H" 30
then
	transmit "quote scoc^M^M"
	assign Upload eq `ls scoR 2>/dev/null`
	if Upload eq "scoR"
	then	capture "off"
		type "scoR"
		transmit "^M"
		while ! waitfor "^J% choice required"
			do; done
		shell "mv scoR /pub/rescue/scoR$$"
		capture "on"
	fi
	transmit "rea new^M^M"
	while ! waitfor "^J% choice required"
		do; done
	capture "off"
else
	beep
fi
transmit "off^M"
pause 2
quit

						