bsd_uname.ep

一个通讯程序源码

#  CHK=0xFD46
#--------------------------------------------------------------
# bsd_uname.ep - get remote username from bsd system
# return: $s0 = username
#         $i0 = 1 if success, else 0
#--------------------------------------------------------------
#+: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-25-1989-13:56-wht-new do command syntax
#:06-25-1989-12:33-wht-new if/while syntax
#:06-22-1989-13:30-wht-creation

	set $s0='whoami'	# send command
	do 'oneline'		# get $s0=username
	ifi $i0 == 0 		# we bombed?
	{
		set $i0=%colors; color red
		echo 'bsd_uname: get user name failed'
		icolor $i0
		$i0 = 0
	}