# SCdft.ctl: Default Start Scenario
# $Id: SCdft.ctl,v 1.4 2013/10/30 07:18:47 RDA Exp $
# ARCS: $Header: /home/cvs/cvs/RDA_8/src/scripting/lib/collect/RDA/SCdft.ctl,v 1.4 2013/10/30 07:18:47 RDA Exp $
#
# Change History
# 20130820  MSC  Replace CONTEXT by CONFIG.

=head1 NAME

SCdft - Performs Data Collection Initialization

=cut

=head1 START SECTION

Performs the initial discovery.

=cut

section start

# Get the cleaned path of a peer directory
macro getPeer
{var ($dir,@sub) = @arg

 return cleanPath(catDir($dir,upDir(),@sub),true)
}

# Define the input and profile targets
debug " Inside DFT scenario, define the input and profile targets"
loop $tgt ($[COL]->get_targets)
 call defineTarget($tgt)

# Check Oracle home or Middleware presence
debug " Inside DFT scenario, check Oracle home or Middleware presence"
var $top = getPeer(${AUX._.CONFIG.D_HOME})
var $par = getPeer($top)
if ?nvl(testDir('d',$hom = getPeer($par,'oracle_common','ccr')),\
        testDir('d',$hom = getPeer($par,'utils','ccr')))
 var $tgt = defineTarget('MH',{D_MW_HOME=>getNativePath($par),\
                               T_TITLE  =>'Middleware home'})
elsif ?nvl(testDir('d',$hom = getPeer($top,'oracle_common','ccr')),\
           testDir('d',$hom = getPeer($top,'utils','ccr')))
 var $tgt = defineTarget('MH',{D_MW_HOME=>getNativePath($top),\
                               T_TITLE  =>'Middleware home'})
elsif ?nvl(testDir('d',catDir($top,'inventory')),\
           testDir('d',catDir($top,'ccr')))
 var $tgt = defineTarget('OH',{D_ORACLE_HOME=>getNativePath($top),\
                               T_TITLE      =>'Software Oracle home'})
call $tgt->set_value('B_IPS',true,'IPS indicator')

# Trigger a minimal setup
call $[COL]->add_setup(['RDA'],false,false,'END')

=head1 REFRESH SECTION

Refresh the collector definition.

=cut

section refresh

=head1 COPYRIGHT NOTICE

Copyright (c) 2002, 2016, Oracle and/or its affiliates. All rights reserved.

=head1 TRADEMARK NOTICE

Oracle and Java are registered trademarks of Oracle and/or its
affiliates. Other names may be trademarks of their respective owners.

=cut