p.ep

一个通讯程序源码

#  CHK=0x8848
#+---------------------------------------------------------
# p.eq - colorful, selective ps -aux on remote BSD system
#----------------------------------------------------------
#+: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-30-1989-18:53-wht-creation

	mkvar $icolor; $icolor = %colors
	mkvar $itimeout; $itimeout = 50
	send 'ps -aux'
	lookfor '\n' 40
	$s0 = ''
	whilei 1==1
	{
		lgets $s00 $itimeout 5 '\n'
		ifi $i0 == 0 continue
		$itimeout = 20
		ifi %instr($s0,'% ') >= 0 break	# prompt ends it
		color cyan
		ifi %instr($s0,'getty') >= 0 continue
		ifi %instr($s0,'/etc') >= 0 continue
		ifi %instr($s0,'rlogin') >= 0 continue
		ifi %instr($s0,'biod') >= 0 continue
		ifi %instr($s0,'csh') >= 0 continue
		ifi %instr($s0,'/usr/lib') >= 0 continue
		ifi %instr($s0,' i29 ') > 0 color green
		ifi %instr($s0,' i13 ') > 0 color red
		ifi %instr($s0,'cma') == 0 color yellow
		ifi %instr($s0,'gfp') == 0 color lt_blue
		ifi %instr($s0,'jts') == 0 color lt_blue
		ifi %instr($s0,'UUCP') >= 0 color red
		ifi %instr($s0,'uu') >= 0 color red
		echo $s0
	}
	icolor $icolor
	send ''