code: plan9front

ref: 64ae775d6f91c929f4938be111fcc101b845a811
dir: /rc/bin/aanuke/

View raw version 
#!/bin/rc
rfork e
for(i in `{psu | awk '/[ ]+aan$/ {print $2}'}){
	if(! grep -s -e '[ ]+\/net(\.alt)?\/tcp\/[0-9]+\/data$' /proc/$i/fd)
		echo '@{echo kill>/proc/'$i'/note} # aan (idle)'
}