#!/usr/bin/sh
################################
# CA    launching Script       #
# Created  by : Syed Saifullah #
#          On : 02/04/99       #
################################

#################################
# Setting up the environment vars
#################################
host=`/usr/ucb/hostname`

CURRENT_TERM=$TERM
TERM=vt100; export TERM
LPDEST=P01015B; export LPDEST

if [ $host = ascella ]
then
 ORACLE_SID=dev2000;export ORACLE_SID
 LD_LIBRARY_PATH= ;export LD_LIBRARY_PATH
 LD_LIBRARY_PATH=${LD_LIBRARY_PATH}:/usr/X11R6/lib:/usr/local/lib:/usr/lib:/usr/openwin/lib:/usr/ucblib:/usr/dt/lib:/opt/SUNWspro/lib
 . /opt/bin/oraenv
 ORACLE_SID=db2dd; export ORACLE_SID
 # TWO_TASK=db2dd;export TWO_TASK
 ORACLE_HOME=`dbhome $ORACLE_SID`;export ORACLE_HOME
 TK2_PRINTER=P00033;export TK2_PRINTER
 export LD_LIBRARY_PATH
 # relca=/appl/test/ca_new;export relca
 # relfa=/appl/test/fa_new;export relfa
 # relcomn=/appl/test/ca_new;export relcomn
 # relspqr=/appl/test/ca_new;export relspqr
 relca=/home/ascella/v621617/test_lat/unit2/ca;export relca
 relfa=/home/ascella/v621617/test_lat/unit2/fa;export relfa
 relcomn=/appl/test/ca_new;export relcomn
 relspqr=/appl/test/ca_new;export relspqr
else
 ORACLE_SID=DEV2000;export ORACLE_SID
 # Added this LD_LIBRARY_PATH as some of the library files were not getting referred in Bierstadt
 LD_LIBRARY_PATH= ;export LD_LIBRARY_PATH
 LD_LIBRARY_PATH=${LD_LIBRARY_PATH}:/usr/X11R6/lib:/usr/local/lib:/usr/lib:/usr/openwin/lib:/usr/ucblib:/usr/dt/lib:/opt/SUNWspro/lib
 . /usr/local/oracle/bin/oraenv
 ORACLE_SID=db2pd; export ORACLE_SID
 ORACLE_HOME=`dbhome $ORACLE_SID`;export ORACLE_HOME
# TWO_TASK=db2pd;export TWO_TASK
 TK2_PRINTER=P00033;export TK2_PRINTER
 export LD_LIBRARY_PATH
 relca=/appl/prod/ca_new;export relca
 relfa=/appl/prod/fa_new;export relfa
 relcomn=/appl/prod/ca_new;export relcomn
 relspqr=/appl/prod/ca_new;export relspqr
fi

REPORTS25_PATH=$relca:$relfa;export REPORTS25_PATH
FORMS45_PATH=$relca:$relfa;export FORMS45_PATH
FORMS45_RESOURCE=$relca;export FORMS45_RESOURCE
NLS_DATE_FORMAT="DD-MON-YYYY";export NLS_DATE_FORMAT

#################################
# Setting up the DISPLAY variable
#################################
if [ -f $HOME/.display ]
  then
  DISPLAY=`cat $HOME/.display | cut -d\  -f3,3`
fi
useransweryn=''
if [ ! -z "$DISPLAY" -a "$DISPLAY" != '0:0.0' ]
  then
  node=`/usr/ucb/echo $DISPLAY | cut -d\: -f1,1`
  srvr=`/usr/ucb/echo $DISPLAY | cut -d\: -f2,2`
  if [ "$node" = "$srvr" ]
    then
    srvr='0.0'
  fi
  /usr/ucb/echo ''
  /usr/ucb/echo -n "Is the following IP Address ${node}:${srvr} appropriate? [Y/N]: "
  read useransweryn
fi
if [ -z "$DISPLAY" -o "$DISPLAY" = '0:0.0' -o "$useransweryn" = 'n' \
    -o "$useransweryn" = 'N' ]
  then
  /usr/ucb/echo ''
  /usr/ucb/echo -n 'Enter IP Address (ex. 129.80.nn.nn)? '
  read dy
  if [ ! -z "$dy" ]
    then
    node=`/usr/ucb/echo $dy | cut -d\: -f1,1`
    srvr=`/usr/ucb/echo $dy | cut -d\: -f2,2`
    if [ "$node" = "$srvr" ]
      then
      srvr='0.0'
    fi
  else
    /usr/ucb/echo 'You can not run CA/FA without an IP Address'
    exit
  fi
fi

DISPLAY="${node}:${srvr}"
if [ \( "$useransweryn" = 'n' -o "$useransweryn" = 'N' -o ! -s $HOME/.display \) -a \
      \( "$user" != 'pintrain' -a "$user" != 'pintest' \) ]
  then
  /usr/ucb/echo -n 'Do you want to save this IP address to YOUR .display file ? [Y/N]: '
  read useransweryndis
  if [ "$useransweryndis" = 'Y' -o "$useransweryndis" = 'y' ]
    then
    echo "setenv DISPLAY $DISPLAY" > $HOME/.display
  fi
fi
##
export DISPLAY
env > b.txt
echo
/usr/ucb/echo -n  'Welcome ! Please wait ...'
$relca/f45runmx $relfa/spqr_ops_menu / term=CAFA 
echo

TERM=$CURRENT_TERM; export TERM