#!/bin/rc
rfork e

fn getlist{
	ethers = ()
	for(i in `{seq 0 15}){
		s = '#'l$i/ether$i
		if(test -d $s > /dev/null >[2=1])
			ethers = ($ethers $s)
	}
}

echo pci
pci | grep net
echo

echo interfaces
getlist;
for(i in $ethers)
	echo '	'^$i
echo

for(i in $ethers){
	echo $i ^ :
	echo stats:
	cat $i/stats | sed 's/^/	/g' 
	echo
	echo ifstats:
	cat $i/ifstats | sed 's/^/	/g' 
}

echo
echo kmesg:
cat /dev/kmesg