"; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "\n\n"; $states=split("\n",`/sbin/ifconfig {$if} list scan | grep -v "CHAN RATE"`); $counter=0; foreach($states as $state) { print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "\n"; print "\n"; } print "

SSID	BSSID	CHAN	RATE	RSSI	INT	CAPS
" . trim(substr($state, 0 , 16)) . "	" . trim(substr($state, 16, 19)) . "	" . trim(substr($state, 35, 5)) . "	" . trim(substr($state, 40, 5)) . "	" . trim(substr($state, 45, 9)) . "	" . trim(substr($state, 54, 4)) . "	" . trim(substr($state, 58)) . "

"; /* table header */ print "\n"; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "\n\n"; $states=split("\n",`/sbin/ifconfig {$if} list sta | grep -v "AID CHAN"`); $counter=0; foreach($states as $state) { $state_fixed = str_replace(" ", " ", $state); $state_fixed = str_replace(" ", " ", $state_fixed); $state_fixed = str_replace(" ", " ", $state_fixed); $state_split = split(" ", $state_fixed); print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "\n"; print "\n"; } /* XXX: what stats to we get for adhoc mode? */ ?>

ADDR	AID	CHAN	RATE	RSSI	IDLE	TXSEQ	RXSEQ	CAPS	ERP
{$state_split[0]}	{$state_split[1]}	{$state_split[2]}	{$state_split[3]}	{$state_split[4]}	{$state_split[5]}	{$state_split[6]}	{$state_split[7]}	{$state_split[8]}	{$state_split[9]}