senddate.ep

一个通讯程序源码

#  CHK=0x067D
#+----------------------------------------------
# senddate.ep
#-----------------------------------------------
#+:EDITS:*/
#:09-10-1992-13:59-wht@n4hgf-ECU release 3.20
#:08-22-1992-15:39-wht@n4hgf-ECU release 3.20 BETA
#:07-11-1989-16:55-wht-get cmd became lgets
#:06-28-1989-19:36-wht-use named variables
#:06-27-1989-17:02-wht-working

	mkvar icsave;$icsave = %colors
	color blue
	echo -n 'remote root password? '
	color black
	$s0 = %cgets
	icolor $icsave
	do 'su' 'root' $s0
	$s0 = ''		# forget password
	lookfor '% ' 50 # swallow prompt
	send 'date'
	lookfor -e '% ' 50
	system -l 'senddate'
	lookfor -e quiet 20
	send -n %chr(0x04)