#!/bin/ksh
export interface=$1

integer oldrbytes 
integer oldwbytes 
integer oldrpackets 
integer oldwpackets 
integer newrbytes 
integer newwbytes 
integer newrpackets 
integer newwpackets 
integer deltarbytes 
integer deltawbytes 
integer deltarpackets 
integer deltawpackets 

if [ "$interface" == "" ]
then
	echo No adapter name given
	echo Usage: seastat en-adapter-name
	echo Example: seastat en8 
	echo To determine this, at the VIO Server command line : lsdev -virtual
	echo and look for the SEA device
	exit
fi

entstat $interface 2>/dev/null | grep ^Bytes:   | sed 's/Bytes://g'   | read oldrbytes oldwbytes
entstat $interface 2>/dev/null | grep ^Packets: | sed 's/Packets://g' | read oldrpackets oldwpackets

printf "SEA Adapter %s Statistics\n" $interface
printf "%12s %12s %12s %12s\n" ReadBytes WriteBytes ReadPackets WritePackets 
while true 
do
    entstat $interface 2>/dev/null | grep ^Bytes:   | sed 's/Bytes://g'   | read newrbytes   newwbytes
    entstat $interface 2>/dev/null | grep ^Packets: | sed 's/Packets://g' | read newrpackets newwpackets
    #printf "old %19d %19d %19d %19d\n"  $oldrbytes $oldwbytes $oldrpackets $oldwpackets 
    #printf "new %19d %19d %19d %19d\n"  $newrbytes $newwbytes $newrpackets $newwpackets 
let deltarbytes=$newrbytes-$oldrbytes
let deltawbytes=$newwbytes-$oldwbytes
let deltarpackets=$newrpackets-$oldrpackets
let deltawpackets=$newwpackets-$oldwpackets
    printf "%12d %12d %12d %12d\n"  $deltarbytes $deltawbytes $deltarpackets $deltawpackets 
    oldrbytes=newrbytes
    oldwbytes=newwbytes
    oldrpackets=newrpackets
    oldwpackets=newwpackets
sleep 1
done