#! /bin/bash

# Copyright (C) GemTalk Systems 2020-2024.  All Rights Reserved.

# netldidebug <netldinameOrPort> <command>
#  command is one of   enabledebug extradebug disabledebug

usage(){
  echo "Usage: netldidebug [-h] <netldiNameOrPort> <enabledebug|extradebug|disabledebug>"
  echo "   netldiNameOrPort   or port of a running netldi"
  echo "   enabledebug  - enable debugging (equivalent to startnetldi -d)"
  echo "   extradebug  - enable extra debugging, for argument expansion"
  echo "   disabledebug  - turn off all debugging"
  echo "   -h - print usage information and exit"
}

if [ "x$GEMSTONE" = "x" ]; then
  echo "netldidebug: GEMSTONE environment variable must be defined"
  exit 1
fi

if [ "x$1" == "-h" ]; then
  usage
  exit 1
fi
if [ "x$2" != "xenabledebug" ]; then
if [ "x$2" != "xextradebug" ]; then
if [ "x$2" != "xdisabledebug" ]; then
  usage
  exit 1 
fi
fi
fi

$GEMSTONE/bin/waitstone $1 -1
if [ $? != 0 ]; then
  echo "netldidebug: netldi $1 not ready";
  exit 1
fi

# Use topaz -r login to send the command in an NRS to the netldi

$GEMSTONE/bin/topaz -r -q -i << EOF > /dev/null 
set gemstone x user x pass x
set gemnet !#netldi:$1!$2
login
EOF

echo "netldidebug: Sent $2 to $1"
