use lib "$ENV{'SECTRAN_DIR'}/lib" ;
use sectran ;
####
if (exists $ENV{HOME}) {
$file = "$ENV{HOME}/.profile" ;
if (! -x $file) {
print "\n\tUnable to execute the $file from the current user!\n" ;
print "\n\tInsufficient permissions!\n" ;
$result = 99 ;
}
else
{
open INP,"<$file" or die "\n\tfitz yer gem min?" ;
while () {
print $_
}
close INP or die "\n\tA canny dee it min!\n" ;
#
print "\n\tRunning $file.\n" ;
$result = system "$file" ;
print "\n\tResult set to $result\n" ;
}
#
}
else
{
print "\n\tNo profile file found!\n" ;
$result = 98 ;
}
##
##
TERM=vt220; export TERM
PATH=/usr/local/bin:/usr/bin:/usr/ucb:/etc:/isw/tpp/oracle/live/1.6.1/ids/bin:/i
sw/tpp/oracle/live/1.6.1/ids/forms60/mesg:/isw/appwork/live/finance/guifmxs:.
EDITOR=vi ;export EDITOR
umask 002
ORACLE_TERM=vt220 ; export ORACLE_TERM
ORACLE_SID=ISWLIVE ; export ORACLE_SID
ORACLE_HOME=/isw/tpp/oracle/live/8.1.7; export ORACLE_HOME
PATH=$PATH:${ORACLE_HOME}/bin:${ORACLE_HOME}/dbs
export PATH
LD_LIBRARY_PATH=${ORACLE_HOME}/lib:/usr/lib:/usr/ucblib
export LD_LIBRARY_PATH
PS1='${ORACLE_SID} > '
PS2='?'
SECTRAN_DIR=/home/interface/sectran
export SECTRAN_DIR
TWO_TASK=isw-live;
# Addition to allow ORACLE Forms testing in TEST & Other environments - Bob
alias ISWTEST='ORACLE_SID=ISWTEST ; export ORACLE_SID; \
ORACLE_HOME=/isw/tpp/oracle/test/8.1.7; export ORACLE_HOME \
LD_LIBRARY_PATH=$ORACLE_HOME/lib:/usr/lib:/usr/ucblib
export LD_LIBRARY_PATH
PATH=/usr/local/bin:/usr/bin:/usr/ucb:/etc:/isw/tpp/oracle/test/1.6.1/idst/bin:/
isw/tpp/oracle/test/1.6.1/idst/forms60/mesg:/isw/appwork/test/finance/guifmxs:.
PATH=$PATH:${ORACLE_HOME}/bin:${ORACLE_HOME}/dbs
export PATH'
# ISWLIVE
alias ISWLIVE='ORACLE_SID=ISWLIVE ; export ORACLE_SID; \
ORACLE_SID=ISWLIVE ; export ORACLE_SID
ORACLE_HOME=/isw/tpp/oracle/live/8.1.7; export ORACLE_HOME
LD_LIBRARY_PATH=${ORACLE_HOME}/lib:/usr/lib:/usr/ucblib
export LD_LIBRARY_PATH
PATH=/usr/local/bin:/usr/bin:/usr/ucb:/etc:/isw/tpp/oracle/live/1.6.1/ids/bin:/i
sw/tpp/oracle/live/1.6.1/ids/forms60/mesg:/isw/appwork/live/finance/guifmxs:.
PATH=$PATH:${ORACLE_HOME}/bin:${ORACLE_HOME}/dbs
export PATH'
# ISWTEACH
alias ISWTEACH='ORACLE_SID=ISWTEACH ; export ORACLE_SID; \
ORACLE_SID=ISWTEACH ; export ORACLE_SID
ORACLE_HOME=/isw/tpp/oracle/general/8.1.7; export ORACLE_HOME
LD_LIBRARY_PATH=${ORACLE_HOME}/lib:/usr/lib:/usr/ucblib
export LD_LIBRARY_PATH
PATH=/usr/local/bin:/usr/bin:/usr/ucb:/etc:/isw/tpp/oracle/general/1.6.1/ids/bin
:/isw/tpp/oracle/general/1.6.1/ids/forms60/mesg:/isw/appwork/general/finance/gui
fmxs:.
PATH=$PATH:${ORACLE_HOME}/bin:${ORACLE_HOME}/dbs
export PATH'
##
##
#
while (($key, $value) = each (%ENV)) {
print "\n\tKey :: $key" ;
print "\n\tValue :: $value" ;
}
##
##
Running /home/interface/.profile.
Result set to 0
Key :: HOME
Value :: /home/interface
Key :: LOGNAME
Value :: interface
Key :: SHELL
Value :: /usr/bin/sh
Key :: TZ
Value :: GB
Key :: PATH
Value :: /usr/bin: