use lib "$ENV{'SECTRAN_DIR'}/lib" ;
use sectran ;

##</code><code>##

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 (<INP>) {
       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 ;
}

##</code><code>##

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'

##</code><code>##

#
while (($key, $value) = each (%ENV)) {
   print "\n\tKey :: $key" ;
   print "\n\tValue :: $value" ;
}

##</code><code>##

        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: