###
### Modified to run this script for frost/snow/blue/white IBM systems
### By                    V. Krishna Kumar NCO/Date: December 27, 2004
###
# LOG:
# F.Achorn           06/02/2006    Simplified script to remove old machines
# J.Stoudt           10/18/2007    Added bufrsubtype fix file definition.

set -uas
envir=prod
DATA=/ptmp/$LOGNAME/edtlst
SAVDIR=/ptmp/$LOGNAME
mkdir -p $DATA
mkdir -p $SAVDIR
cd $DATA
user=`whoami`
This_SP=`hostname | cut -c 1`
#
#if [ $This_SP = "m" ]; then
#    Other_SP="dew"
#else
#    Other_SP="mist"
#fi
#
if [ $This_SP = "s" ]; then
   Other_SP="cirrus"
else
   Other_SP="stratus"
fi
#
EDTL=/nw${envir}/exec/sdm_edtlst2 # STOUDT 20071018 version
#
###

export DBNROOT=/gpfs/${This_SP}/nco/ops/dbnet
echo $DBNROOT
export DBNR=$DBNROOT/bin/move_sdmedit
export XLFRTEOPTS="unit_vars=yes"

REJX=/dcom/us007003/sdmedit
BUFRT=/nw${envir}/fix/bufrsubtype # STOUDT 20071018
REJE=$DATA/curlist
REJN=$DATA/newlist
cp $REJX $REJE    
today=`date -u +%y%m%d`
echo "COPY BACKUP SDMEDIT FILE TO $SAVDIR/sdmedit.$today"
cp $REJX $SAVDIR/sdmedit.$today  
cp $REJX $REJN    

export XLFUNIT_20=$REJE 
export XLFUNIT_21=$BUFRT  # STOUDT 20071018
export XLFUNIT_50=$REJN 
$EDTL 2>errfile.$$; RC=$?

diff $REJX $REJE; DF=$?
diff $REJX $REJN; DN=$?

if [ $RC -ne 0 ] 
then
   echo "Not updating the reject list."
elif [ $DF -ne 0 ] 
then
   echo "Not updating the reject list because someone else is."
elif [ $DN -eq 0 ] 
then
   echo "Not updating the reject list because nothing changed."
else
   chmod 664 $REJN
   $DBNR $REJN
   sh /nw${envir}/scripts/update.log.sh

   echo "REJECT LIST SUCCESSFULLY UPDATED ON ${This_SP}."
   echo "COPY UPDATED SDMEDIT FILE TO $SAVDIR/sdmedit.$today."
   cp $REJN $SAVDIR/sdmedit.$today
fi

echo "EDTLST WILL NOW ATTEMPT TO UPDATE REJECT LIST ON ${Other_SP}."
echo "If this process hangs "ctrl-c" will kill it."
echo " "
# Copy to backup CCS
echo "Copying ${REJX} ${user}@${Other_SP}:${REJX}"
scp ${REJX} ${user}@${Other_SP}:${REJX}