#!/bin/sh

IBPATH=${IBPATH:-@IBSCRIPTPATH@}

usage() {

	echo Usage: `basename $0` "[-h] [-b] [-v] [-G] [-N | -nocolor]" \

	    "[-C ca_name] [-P ca_port] [-t(imeout) timeout_ms] <lid|guid>" \

	    "[<port>]"

	exit -1

}

green() {

	if [ "$bw" = "yes" ]; then

		if [ "$verbose" = "yes" ]; then

			echo $1

		fi

		return

	fi

	if [ "$verbose" = "yes" ]; then

		echo -e "\\033[1;032m" $1 "\\033[0;39m"

	fi

}

red() {

	if [ "$bw" = "yes" ]; then

		echo $1

		return

	fi

	echo -e "\\033[1;031m" $1 "\\033[0;39m"

}

guid_addr=""

bw=""

verbose=""

brief=""

ca_info=""

suppress_deprecated="no"

while [ "$1" ]; do

	case $1 in

	-G)

		guid_addr=yes

		;;

	-nocolor|-N)

		bw=yes

		;;

	-v)

		verbose=yes

		brief=""

		;;

	-b)

		brief=yes

		verbose=""

		;;

	-P | -C | -t | -timeout)

		case $2 in

		-*)

			usage

			;;

		esac

		if [ x$2 = x ] ; then

			usage

		fi

		ca_info="$ca_info $1 $2"

		shift

		;;

	-S)

		suppress_deprecated="yes"

		;;

	-*)

		usage

		;;

	*)

		break

		;;

	esac

	shift

done

#default is all ports

portnum=255

if [ $# -lt 1 ]; then

	usage

fi

if [ "$2" ]; then

	portnum=$2

fi

if [ "$portnum" = "255" ]; then

	portname="all"

else

	portname=$2

fi

if [ "$guid_addr" ]; then

	if ! lid=`$IBPATH/ibaddr $ca_info -G -L $1 | awk '/failed/{exit -1} {print $3}'`; then

		echo -n "guid $1 address resolution: "

		red "FAILED"

		exit -1

	fi

	guid=$1

else

	lid=$1

	if ! temp=`$IBPATH/ibaddr $ca_info -L $1 | awk '/failed/{exit -1} {print $1}'`; then

		echo -n "lid $1 address resolution: "

		red "FAILED"

		exit -1

	fi

fi

nodename=`$IBPATH/smpquery $ca_info nodedesc $lid | sed -e "s/^Node Description:\.*\(.*\)/\1/"`

if [ "$suppress_deprecated" = "no" ]; then

echo "*** WARNING ***: this command is deprecated; Please use \"ibqueryerrors --counters\"\n\n" 1>&2

fi

text="`eval $IBPATH/perfquery $ca_info $lid $portnum`"

rv=$?

if echo "$text" | awk -v mono=$bw -v brief=$brief -F '[.:]*' '

function blue(s)

{

	if (brief == "yes") {

		return

	}

	if (mono)

		printf s

	else if (!quiet) {

		printf "\033[1;034m" s

		printf "\033[0;39m"

	}

}

# Only display Xmit/Rcv Pkts/Data

/^# Port counters/ {print}

/^CounterSelect/ {next}

/AllPortSelect/ {next}

/^ib/	{print $0; next}

/ibpanic:/	{print $0}

/ibwarn:/	{print $0}

/iberror:/	{print $0}

/^PortSelect/	{ if ($2 != '$portnum') {err = err "error: lid '$lid' port " $2 " does not match query ('$portnum')\n"; exit -1}}

$1 ~ "(Xmt|Rcv)(Pkts|Data)" { print $1 ":........................." $2 }

END {

	if (err != "") {

		blue(err)

		exit -1

	}

	if (warn != "") {

		blue(warn)

		exit -1

	}

	exit 0

}' 2>&1 && test $rv -eq 0 ; then

	if [ "$verbose" = "yes" ]; then

		echo -n "Error on lid $lid ($nodename) port $portname: "

		green OK

	fi

	exit 0

else

	echo -n "Error on lid $lid ($nodename) port $portname: "

	red FAILED

	exit -1

fi