# DCiws.cfg: Collects Oracle iPlanet Web Server Information
# $Id: DCiws.cfg,v 1.5 2015/07/22 15:30:57 RDA Exp $
# ARCS: $Header: /home/cvs/cvs/RDA_8/src/scripting/lib/collect/OFM/DCiws.cfg,v 1.5 2015/07/22 15:30:57 RDA Exp $
#
# Copyright (c) 2002, 2016, Oracle and/or its affiliates. All rights reserved.
#
# Change history
# 20150722  KRA  Extend product validation pattern.

###############################################################################
# Collect Oracle iPlanet Web Server collection setup information
###############################################################################

#------------------------------------------------------------------------------
# Module definition
#------------------------------------------------------------------------------
col=${B_IN_USE}
dsc='Collects Oracle iPlanet Web Server Information'
man='This module supports Oracle iPlanet Web Server 6.x or later only.'
pre=RDA:DCbegin
rpt=B_IN_USE
var=not_used  # Flow:in_use,B_IN_USE
exe=sdcl {
"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 iPlanet Web Server home directory does not exist.'
" require isAbsolute($dir),\
"   'The specified iPlanet Web Server home directory is not an \
"    absolute path.'
" require findDir($dir,\
"                 '^(admin-server|https-(admserv|Weblogic\d+\.\d+))$','f'),\
"   'The specified iPlanet Web Server home directory does not contain some \
"    iPlanet Web Server 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 iPlanet Web Server instance root directory does not exist.'
" require isAbsolute($dir),\
"   'The specified iPlanet Web Server instance root directory is not an \
"    absolute path.'
" require check_instance($dir),\
"   'The specified iPlanet Web Server instance root directory does not contain \
"    some iPlanet Web Server 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 iPlanet Web Server in use?'
nam=B_IN_USE
var=D_HOME

[not_used]
typ=B
dft=false
dsc='Is Oracle iPlanet Web Server in use?'
nam=B_IN_USE

[B_IN_USE]
typ=B
dft=${AUX.B_SELECTED}
dsc='Is Oracle iPlanet Web Server in use?'
inp='Do you want RDA to collect Oracle iPlanet Web Server information \
     (formerly Sun Java System Web Server) (Y/N)?'
var=true:D_HOME

[D_HOME]
typ=D
dsc='Oracle iPlanet Web Server home directory'
inp='Enter the full path of the Oracle iPlanet Web Server home directory'
nam=-
ref=is_valid_home('D_HOME',last)
val=W
var=exists:D_INSTANCE_ROOT:\
           not_used

[D_INSTANCE_ROOT]
typ=D
dsc='Web Server 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 Web Server 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='Web Server instance list:'
dft='*'
dsc='Web Server 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
}