# 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)

proc main
var pid name status

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