code: plan9front

ref: 6e8b8c8f1a34f5229075fa06eff5f22ab25eb901
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)'
}