#!/afs/cmf/@sys/bin/perl
#
# This perl script will close any current WWW sockets and make them time
# out pretty quickly.
#
# run frobwww | adb -k -w /vmunix /dev/mem
#
foreach (grep(/www/,split("\n",`netstat -A`))) {
	next if (/ESTABLISHED/ || /LISTEN/);
	($tcpcb)=/^(........)/;
	print "$tcpcb+8/w0\n";		# state -> CLOSED
	print "$tcpcb+e/w10\n";		# timer -> real soon
}