# This is an example program used by sendprog. It will kill any talkclient
# program started up (as long as kill_any init option is YES)

&stdalias.inc

proc main
var pid name status

while TRUE
	foreach pid name in $pcs
		if [trap [set status [elements [pcsinfo pid] 8]]]=OK
			if name="talkclient" and status!="IMAGE"
				kill pid
			endif
		endif
	nexteach
wend
endproc