# DCotd.cfg: Collects Oracle Traffic Director Information
# $Id: DCotd.cfg,v 1.1 2014/02/04 15:52:27 RDA Exp $
# ARCS: $Header: /home/cvs/cvs/RDA_8/src/scripting/lib/collect/OFM/DCotd.cfg,v 1.1 2014/02/04 15:52:27 RDA Exp $
#
# Copyright (c) 2002, 2016, Oracle and/or its affiliates. All rights reserved.
#
# Change history
# 20140204  KRA  Initial version.

###############################################################################
# Collect Oracle Traffic Director collection setup information
###############################################################################

#------------------------------------------------------------------------------
# Module definition
#------------------------------------------------------------------------------
col=${B_IN_USE}
dsc='Collects Oracle Traffic Director Information'
fam=Unix
pre=RDA:DCbegin
rpt=B_IN_USE
tgt=${I_OH/C}
var=not_used  # Flow:in_use,B_IN_USE
exe=sdcl {
"if or(${OS.linux},${OS.solaris})
" var @{AUX.var} = (cond(${PRF.B_TESTS},'in_use','B_IN_USE'))
"
"macro check_instance
"{loop $ins (findDir($arg[0],'^\.+$','npv'))
" {if ?nvl(testDir('d',catDir($ins,'config')),\
"          testDir('d',catDir($ins,'logs')))
"   return 1
" }
" return 0
"}
"
"macro is_valid_home
"{var ($nam,$dir) = @arg
" require testDir('d',$dir),\
"   'The specified Traffic Director home directory does not exist.'
" require isAbsolute($dir),\
"   'The specified Traffic Director home directory is not an absolute path.'
" require testFile('f',catFile($dir,'bin',${AS.EXE:'tadm'})),\
"   'The specified Traffic Director home directory does not contain some \
"    Traffic Director installation related-files. Without a valid directory, \
"    the collection will be disabled.'
" var ${AUX.nam} = $nam
" return true
"}
"
"macro is_valid_instance
"{var ($nam,$dir) = @arg
" require testDir('d',$dir),\
"   'The specified Traffic Director instance root directory does not exist.'
" require isAbsolute($dir),\
"   'The specified Traffic Director instance root directory is not an \
"    absolute path.'
" require check_instance($dir),\
"   'The specified Traffic Director instance root directory does not contain \
"    some Traffic Director instance related-files. Without a valid \
"    directory, the collection will not contain instance related information.'
" var ${AUX.nam} = $nam
" return true
"}
}

#------------------------------------------------------------------------------
# Setting definitions
#------------------------------------------------------------------------------
[in_use]
typ=B
dft=true
dsc='Is Oracle Traffic Director in use?'
nam=B_IN_USE
var=D_HOME

[not_used]
typ=B
dft=false
dsc='Is Oracle Traffic Director in use?'
nam=B_IN_USE

[B_IN_USE]
typ=B
dft=${AUX.B_SELECTED}
dsc='Is Oracle Traffic Director in use?'
inp='Do you want RDA to collect Oracle Traffic Director information (Y/N)?'
var=true:D_HOME

[D_HOME]
typ=D
dft=${SET.RDA.BEGIN.D_ORACLE_HOME}
dsc='Oracle Traffic Director home directory'
inp='Enter the full path of the Oracle Traffic Director home directory'
nam=-
ref=is_valid_home('D_HOME',last)
val=W
var=exists:set_home_target,D_INSTANCE_ROOT:\
           not_used

[set_home_target]
typ=I
cls='OH'
dft=nvl(findItem('OH','D_ORACLE_HOME',${D_HOME}),\
        defineTarget('OH',{D_ORACLE_HOME=>${D_HOME},\
                           T_ORACLE_HOME=>${D_HOME},\
                           T_TITLE=>"OTD Oracle home ${D_HOME}"}))
dsc='Target associated with the Oracle Traffic Director Oracle home'
nam=I_OH
vis=false

[D_INSTANCE_ROOT]
typ=D
dft=catDir(${D_HOME},'instances')
dsc='Instance root directory'
fmt='<<Native'
hlp='If you are not sure what to input, provide the parent directory of the \
     Administration Server home'
inp='Enter the location of the directory where the instances to analyze are \
     located'
nam=-
ref=is_valid_instance('D_INSTANCE_ROOT',last)
val=W
var=exists:T_INSTANCES

[T_INSTANCES]
typ=M
bef='Instance list:'
dft='*'
dsc='Instance list'
itm=[@{T_TMP_ITM_INS}]
pck=true
val=E
exe=sdcl {
"var @itm = ()
"loop $ins (findDir($top = ${D_INSTANCE_ROOT},'^\.+$','nv'))
"{if ?nvl(testDir('d',catDir($top,$ins,'config')),\
"         testDir('d',catDir($top,$ins,'logs')))
"  call push(@itm,$ins,$ins)
"}
"var @{T_TMP_ITM_INS/T} = @itm
"if expr('==',scalar(@itm),2)
" var ${AUX.lvl} = 6
}