ecu/models/bsd_uname.ep

#  CHK=0xFD46
#--------------------------------------------------------------
# bsd_uname.ep - get remote username from bsd system
# return: $s0 = username
#         $i0 = 1 if success, else 0
#--------------------------------------------------------------
#+:EDITS:
#:01-24-1997-02:37-wht@yuriatin-SOURCE RELEASE 4.00
#:09-11-1996-20:00-wht@yuriatin-3.48-major telnet,curses,structural overhaul
#:11-23-1995-11:20-wht@kepler-source control 3.37 for tsx-11
#:11-14-1995-10:23-wht@kepler-3.37.80-source control point: SOCKETS
#:05-04-1994-04:39-wht@n4hgf-ECU release 3.30
#: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
	}