#!/bin/bash
#####################################################################
# Description: Finds black holes WN using accounting records        #
# Author: Alessandra Forti                                          #
# Institute: University of Manchester                               #
# Created: 26 November 2008                                         #
# License:  EGEE                                                    #
# $Id: black-holes-finder.sh,v 1.4 2004/01/04 03:05:32 aforti Exp $ #
#####################################################################
help(){
    
    echo
    echo "Usage: `basename $0` [ACCOUNTING_FILE] [help]"

cat <<EOF


    1) $0 20081126
    2) $0 

EOF

}

#--Main--
# Line separation (just cosmetics)
echo

if [ "$1" == "help" ]; then

    help
fi


if [ "$UID" != "0" ]; then 

    echo "Run as root"
    exit
fi

########
# Main #
########

cd /var/spool/pbs/server_priv/accounting

node=""; c=0;

day=`date +%Y%m%d`

if [ ! -z $1 ]; then

    day=$1

fi

if [ -r $day ] ; then 

    echo "Using accounting file $day"
else

    echo "Cannot find file $day. Perhaps it's zipped"
fi

for a in `awk '{print $10}' $day |sed 's/.*=\(bohr[0-9]*\).*/\1/'|sort`;
do
  if [ "$node" == "$a" ] ; then
      ((c++));
  else

      if [ $c -gt 20 ]; then

	  echo "$node: $c";
	  if [ $c -gt 100 ]; then

	      echo "You should run pbsnodes -o $node."`hostname -d`;
	  fi
      fi
      c=0 ;
      node=$a;
  fi;
done;
	
# Line separation (just cosmetics)
echo

#--END--