root.ep

一个通讯程序源码

#  CHK=0x067D
#+----------------------------------------------
# su-root.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 lt_blue black
	echo -n 'remote root password? '
	color black black
	$s0 = %cgets
	icolor $icsave
	do 'su' 'root' $s0
	$s0 = ''		# forget password
	lookfor '% ' 100 # swallow prompt
	send 'source ~wht/.cshrc'