scm.ep

一个通讯程序源码

#  CHK=0x01CA
#+------------------------------------------------------------
# scm.ep - goto scm and use wht .cshrc
#-------------------------------------------------------------
#+: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-26-1989-19:25-wht-working with su.ep - no longer secret

	mkvar icsave; $icsave = %colors
	do 'su' 'scm' 'secret'
	lookfor '% ' 70		# swallow prompt left by su.ep
	color gray
	send 'source ~wht/.cshrc'
	lookfor -e '\n' 70
	ifs %argv(1) != '.'
	{
		lookfor '% ' 70		# swallow prompt
		send 'cd'
		lookfor -e '\n' 50	# send 'cd', swallow echo
	}
	icolor $icsave