# TSTocm.def: Tests Configuration Management Discovery Information
# $Id: TSTocm.def,v 1.5 2008/02/25 17:32:56 mschenke Exp $
# ARCS: $Header: /home/cvs/repository/RDA_4/src/scripting/lib/modules/TSTocm.def,v 1.5 2008/02/25 17:32:56 mschenke Exp $
#
# Change History
# 20080225  MSC  Change the copyright notice.

=head1 NAME

TSTocm - Tests Oracle Configuration Manager Discovery Information.

=head1 DESCRIPTION

=cut

echo tput('bold'),\
     'Processing Oracle Configuration Manager discovery test module ...',\
     tput('off')

=pod

Extracts the components from the Oracle Configuration Manager discovery
information. The names, versions, and installation locations are listed.

=cut

var $ORACLE_HOME = getSetting('ORACLE_HOME')
if $ORACLE_HOME
{if testDir('dr',catDir($ORACLE_HOME,'ccr','state','review'))
  var $dir = lastDir()
 elsif testDir('dr',catDir($ORACLE_HOME,'livelink','state','review'))
  var $dir = lastDir()
 var ($fil) = grepDir($dir,'-oracle_home_config\.xml$','ip')
 if testFile('fr',$fil)
 {var $inv = xmlLoadFile($fil)
  loop $xml (xmlFind($inv,'.../ROWSET TABLE="MGMT_LL_INV_COMPONENT"/ROW'))
  {var $nam = xmlData(xmlFind($xml,'NAME'))
   var $loc{$nam} = xmlData(xmlFind($xml,'INSTALLED_LOCATION'))
   var $ver{$nam} = xmlData(xmlFind($xml,'VERSION'))
  }
  echo "|*Name*|*Version*|*Location*|"
  loop $nam (keys(%loc))
   echo "|",$nam,"|",$ver{$nam},"|",$loc{$nam},"|"
 }
 else
  echo "No Oracle Configuration Manager discovery information"
}
else
 echo "ORACLE_HOME is not defined"

=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