#!/bin/sh 
################################################################################
#
# Copyright (c) 2001, 2006, Oracle. All rights reserved.  
#
# PRODUCT
#       Oracle Enterprise Manager, Version 4.0.1
#
# FILENAME
#       pafctl
#
# DESCRIPTION
#
# MODIFIED
#    rahgupta   02/24/06 - Display ORACLE_HOME not set 
#    rahgupta   12/15/05 - making the scripts executable 
#    ktlaw      12/15/05 - chmod
#    ktlaw      12/02/05 - chmod
#    ktlaw      12/02/05 - 
#
################################################################################

#Uncomment to debug
#set -xv

if [ "$ORACLE_HOME" = "" ]
then
  printf "ORACLE_HOME environment variable not set !\n"
  exit 1
fi

#look in OH in both a view and an install
EMDW_HOME=$ORACLE_HOME

PERL5LIB_TMP=$ORACLE_HOME/perl/lib:$ORACLE_HOME/perl/lib/site_perl:$ORACLE_HOME/perl/libwww-perl/lib:$ORACLE_HOME/perl/ext/POSIX:$ORACLE_HOME/perl/URI:$ORACLE_HOME/perl/HTML_Parser:$ORACLE_HOME/perl/HTML-Parser/lib:$EMDROOT/sysman/admin/scripts:$EMDROOT/bin:$ORACLE_HOME/sysman/admin/emdrep/bin:$ORACLE_HOME/sysman/install:$ORACLE_HOME/sysman/install/install

if [ "$PERL5LIB" = "" ] ;
then
   PERL5LIB=${PERL5LIB_TMP}
else
   PERL5LIB=${PERL5LIB_TMP}:${PERL5LIB}
fi

if [ "$LD_LIBRARY_PATH" = "" ] ; then
   LD_LIBRARY_PATH=$ORACLE_HOME/lib32:$ORACLE_HOME/lib:$ORACLE_HOME/network/lib32:$ORACLE_HOME/network/lib:$ORACLE_HOME/perl/lib:$EMDROOT/lib
else
   LD_LIBRARY_PATH=$ORACLE_HOME/lib32:$ORACLE_HOME/lib:$ORACLE_HOME/network/lib32:$ORACLE_HOME/network/lib:$ORACLE_HOME/perl/lib:$EMDROOT/lib:$LD_LIBRARY_PATH
fi

if [ "$SHLIB_PATH" = "" ] ; then
   SHLIB_PATH=$ORACLE_HOME/lib32:$ORACLE_HOME/network/lib32:$ORACLE_HOME/perl/lib:$EMDROOT/lib32
else
   SHLIB_PATH=$ORACLE_HOME/lib32:$ORACLE_HOME/network/lib32:$ORACLE_HOME/perl/lib:$EMDROOT/lib32:$SHLIB_PATH
fi

if [ "$LIBPATH" = "" ] ; then
   LIBPATH=$ORACLE_HOME/lib32:$ORACLE_HOME/network/lib32:$ORACLE_HOME/perl/lib:$EMDROOT/lib32
else
   LIBPATH=$ORACLE_HOME/lib32:$ORACLE_HOME/network/lib32:$ORACLE_HOME/perl/lib:$EMDROOT/lib32:$LIBPATH
fi


export PERL5LIB
export LD_LIBRARY_PATH
export SHLIB_PATH
export LIBPATH

#Replace $* with "$@" to allow passing arguments containing whitespace(s)
$ORACLE_HOME/perl/bin/perl $ORACLE_HOME/sysman/install/pafctl.pl "$@"

# Exit with thre return value from perl
exit $?