# TSTenv.def: Tests the Environment
# $Id: TSTenv.def,v 1.7 2008/02/25 17:32:56 mschenke Exp $
# ARCS: $Header: /home/cvs/repository/RDA_4/src/scripting/lib/modules/TSTenv.def,v 1.7 2008/02/25 17:32:56 mschenke Exp $
#
# Change History
# 20080225  MSC  Change the copyright notice.

=head1 NAME

TSTdb - Tests the Environment

=head1 DESCRIPTION

=cut

echo tput('bold'),'Processing environment test module ...',tput('off')
var $lin = repeat('-',78)

=pod

Lists all defined environment variables seen by RDA.

=cut

echo $lin
echo 'Environment variables'
echo $lin
loop $key (grepEnv('.'))
 echo "  ",$key,"='",getEnv($key),"'"
echo

=pod

Compares the environment with the RDA context.

=cut

echo $lin
echo 'RDA Context'
echo $lin

macro cmp_env
{var ($key) = @arg
 var @dsc = (' not used',' removed',' added',' modified',' unchanged')
 var $env = getEnv($key,undef,false)
 var $rda = getEnv($key,undef,true)

 if compare('eq',$env,$rda)
 {var $sta = 4
  var $env
  var $rda
 }
 else
 {var $sta = 0
  if defined($env)
   incr $sta
  if defined($rda)
   incr $sta,2
 }

 echo "  ",$key,$dsc[$sta]
 if defined($env)
  echo "    ENV:'",$env,"'"
 if defined($rda)
  echo "    RDA:'",$rda,"'"
}

call cmp_env('LANG')
call cmp_env(getSetting('RDA_SHLIB','LD_LIBRARY_PATH'))
call cmp_env('NLS_LANG')
call cmp_env('ORACLE_HOME')
call cmp_env('ORACLE_SID')
call cmp_env('PATH')
call cmp_env('SQLPATH')
call cmp_env('TNS_ADMIN')
call cmp_env('TWO_TASK')

=head1 COPYRIGHT NOTICE

Copyright (c) 2002-2008, Oracle. All rights reserved.

=head1 TRADEMARK NOTICE

Oracle, JD Edwards, PeopleSoft, and Siebel are registered trademarks of Oracle
Corporation and/or its affiliates. Other names may be trademarks of their
respective owners.

=cut