#! /bin/bash
readlink() {
  target=`ls -l $1 | sed -e 's,^.*-> *,,'`
  echo $target
}
# ---- set up dmt environment
prefix=/usr
exec_prefix=${prefix}
[ -f ${exec_prefix}/bin/dmt-scriplets ] || exit 1
. ${exec_prefix}/bin/dmt-scriplets 
#
# ---- parse optional arguments
displayenv=0
while [ $# != 0 -a `echo $1 | grep -c '^--'` != 0 ]
do
   if [ $1 = "--environment" ]; then
      displayenv=1
   else
      echo "dmt-mon_info: invalid optional argument: $1"
   fi
   shift 1
done
#
for p in `find $procroot/Process_List_* -name "$1" -type d` ; do
   proc="`echo $p | sed -e 's,^.*/,,g'`"
   node="`echo $p | sed -e 's,^.*/Process_List_,,g' -e 's,/.*$,,g'`"
   dsbl=
   pid="`readlink $p/pid`"
   echo "Process: $proc, node: $node"
   echo "exe:      `readlink $p/exe`"
   echo "args:     `cat $p/args`"
   echo "cwd:      `readlink $p/cwd`"
   echo "start:    `ls -l $p/pid  | sed -e 's,  *, ,g' | cut -d ' ' -f 6-8`"
   echo "disabled: `[ -e $p/disable ] && echo true || echo false`"
   echo "restarts: `readlink $p/restarts`"
   echo "pid:      $pid"
#
#  put the environment if requiested
   if [ $displayenv = 1 -a "$pid" != "NA" ]; then
      echo "Process $proc ($node/$pid) Environment"
      cat /proc/$pid/environ | tr '\0' '\n'
   fi
done
