# TGdom.cfg: Manages Oracle WebLogic Server Domain Home Target Definitions
#
# $Id: TGdom.cfg,v 1.11 2013/11/12 06:43:11 RDA Exp $
# ARCS: $Header: /home/cvs/cvs/RDA_8/src/scripting/lib/collect/RDA/TGdom.cfg,v 1.11 2013/11/12 06:43:11 RDA Exp $
#
# Copyright (c) 2002, 2016, Oracle and/or its affiliates. All rights reserved.
#
# Change History
# 20131111  MSC  Change the copyright notice.

#------------------------------------------------------------------------------
# Module definition
#------------------------------------------------------------------------------
dsc='Manages Oracle WebLogic Server Domain Home Target Definitions'
var=select_command
exe=sdcl {
"macro is_unique
"{var ($cur,$ttl) = @arg
"
" loop $itm ($[COL]->get_items('DOM'))
" {if and(compare('eq',$ttl,$itm->get_first('T_TITLE')),\
"         compare('ne',$cur,$itm->get_path))
"   return false
" }
" return true
"}
"
"macro check_domain
"{loop $dom (findDir($arg[0],'^[^\.]+$','np'))
" {if grepFile(catFile($dom,'config','config.xml'),'^<domain\s','f',undef,1,2)
"   return 1
" }
" return 0
"}
"
"macro is_valid_domain_root
"{var ($nam,$dir) = @arg
" require testDir('d',$dir),\
"   'The specified WebLogic Server domain root directory does not exist.'
" require isAbsolute($dir),\
"   'The specified WebLogic Server domain root directory is not an \
"    absolute path.'
" require check_domain($dir),\
"   'The specified WebLogic Server domain root directory is not valid.'
" var ${AUX.nam} = $nam
" return true
"}
"
"macro is_valid_domain_name
"{var ($nam,$top,$sub) = @arg
" var $dir = catDir($top,$sub)
" require testDir('d',$dir),\
"   'The corresponding WebLogic Server domain home directory does not exist.'
" require grepFile(catFile($dir,'config','config.xml'),\
"                  '^<domain\s','f',undef,1,2),\
"   'The corresponding WebLogic Server domain home directory is not valid.'
" var ${AUX.nam} = $nam
" return true
"}
"
"macro sort_domains
"{var %tbl = ()
" loop $itm ($[COL]->get_items('DOM'))
"  var $tbl{join("\001",$itm->get_first('T_DOMAIN_NAME'),\
"                       $itm->get_first('D_DOMAIN_ROOT'))} = $itm
" return values(%tbl,'KA')
"}
}

#------------------------------------------------------------------------------
# Setting definitions
#------------------------------------------------------------------------------
[select_command]
typ=T
dft=${W_ADMIN_COMMAND}
dsc='Select the administration action'
nam=-
var=define:do_define:\
    edit:  do_edit:\
    select:do_select

#------------------------------------------------------------------------------
# Define an Oracle WebLogic Server domain home target
#------------------------------------------------------------------------------
[do_define]
typ=B
dft=${T_ADMIN_VALUE}
nam=-
var=true:W_CLASS,B_DEDICATED,D_DOMAIN_ROOT,T_DOMAIN_NAME,T_TITLE,T_DH_ABBR,\
         D_DOMAIN_HOME
exe=sdcl {
"var $cnt = undef
}

[W_CLASS]
typ=T
def=${T_ADMIN_VALUE}
dft='DOM'
dsc='Target type'

[B_DEDICATED]
typ=B
def=${T_ADMIN_VALUE}
dft=${RUN.CLASS.DOM.B_DEDICATED}
dsc='Is it a dedicated target?'
opt=true

[D_DOMAIN_ROOT]
typ=D
def=${T_ADMIN_VALUE}
dft=(${RUN.CLASS.DOM.D_DOMAIN_ROOT},\
     ${CTX.D_DOMAIN_ROOT:cleanPath([${ENV.DOMAIN_HOME},upDir(),''],true)})
dsc='Oracle WebLogic Server domain root'
err='Warning: The specified directory does not -yet- exist'
fmt='<<Native'
inp='Enter the full path of the directory that is containing the domain home'
nam=-
raw=true
ref=is_valid_domain_root('D_DOMAIN_ROOT',last)
val=W

[T_DOMAIN_NAME]
typ=T
def=${T_ADMIN_VALUE}
dft=(${RUN.CLASS.DOM.T_DOMAIN_NAME},\
     ${CTX.T_DOMAIN_NAME:${ENV.DOMAIN_NAME}})
dsc='Oracle WebLogic Server domain name'
inp='Enter the Oracle WebLogic Server domain name'
nam=-
ref=is_valid_domain_name('T_DOMAIN_NAME',${D_DOMAIN_ROOT},last)
val=W

[T_TITLE]
typ=T
def=${T_ADMIN_VALUE}
dft=${RUN.CLASS.DOM.T_TITLE:"Domain ${T_DOMAIN_NAME} (in ${D_DOMAIN_ROOT})"}
dsc='Oracle WebLogic Server domain home target description'
err='Duplicate description'
inp='Enter the Oracle WebLogic Server domain home target description'
ref=is_unique(${CUR.K_MODULE},last)
val=E

[T_DH_ABBR]
typ=T
def=${T_ADMIN_VALUE}
dft=${RUN.CLASS.DOM.T_DH_ABBR:${CTX.T_DH_ABBR}}
dsc='Target abbreviation to use'
opt=true

[D_DOMAIN_HOME]
typ=D
def=${T_ADMIN_VALUE}
dft=getShortPath(catNative(${D_DOMAIN_ROOT},${T_DOMAIN_NAME},''),true)
dsc='Oracle WebLogic Server domain home'
fmt='<<Lshort'
raw=true
var=exists:set_wl_home

[set_wl_home]
typ=I
cls='WH'
def=${T_ADMIN_VALUE}
dsc='Target of the associated Oracle WebLogic Server home'
nam=I_WL_HOME
vis=false
exe=sdcl {
"macro get_target
"{if !?testDir('d',$hom = cleanNative([$arg[0],''],true))
"  return undef
" return nvl(findItem('WH','D_WL_HOME',$hom,true),\
"            defineTarget('WH',{'D_WL_HOME'=>$hom,\
"                               'T_TITLE'=>"WebLogic home ${VAR.hom}"}))
"}
"
"var $tgt = addTarget('DOM_Class',{B_MISSING_COMMON=>true,\
"                                  B_MISSING_HOME=>true,\
"                                  B_MISSING_PRODUCT=>true,\
"                                  B_MISSING_WL_HOME=>true,\
"                                  D_DOMAIN_HOME=>${D_DOMAIN_HOME}})
"if length($hom = $tgt->get_attr('WL_HOME'))
" var ${AUX.dft} = get_target($hom)
}

#------------------------------------------------------------------------------
# Edit an Oracle WebLogic Server domain home target
#------------------------------------------------------------------------------
[do_edit]
typ=M
add=('R|Return to the previous menu|-|-')
aft='\040'
bef='Edit an Oracle WebLogic Server domain home target:'
cas=false
dft=(@{T_ADMIN_VALUE})
dsc='Edit an Oracle WebLogic Server domain home target'
err='Invalid entry'
inp='Enter the item number or the action letter.'
nam=-T_ADMIN_VALUE
val=E
var=-::do_define
exe=sdcl {
"# Get the target list
"if !?$cnt
"{keep $cnt,@itm,@rsp
" var ($cnt,@itm,@rsp) = (0)
" loop $itm ($[COL]->get_items('DOM'))
" {var $pth = concat('COL/',$itm->get_path)
"  call push(@itm,incr($cnt),$itm->get_first('T_TITLE',$pth))
"  call push(@rsp,$cnt,$pth)
" }
"}
"
"# Determine the menu items and responses
"var ${AUX.itm} = [@itm]
"var ${AUX.rsp} = [@rsp]
}

#------------------------------------------------------------------------------
# Select an Oracle WebLogic Server domain home target
#------------------------------------------------------------------------------
[do_select]
typ=M
aft='\040'
alt=add_target,do_define,do_select
ask=true
cas=false
dft=(@{T_ADMIN_VALUE})
dsc='Select an Oracle WebLogic Server domain home target'
nam=-T_ADMIN_VALUE
val=E
var=+:add_target,do_define,do_select:\
    -:do_edit,do_select:\
    *:all_targets:\
    .:no_targets
exe=sdcl {
"# Get the target list
"if !?$cnt
"{keep $cnt,@add,@all,@itm,@mnu,@rsp
"
" var ($cnt,@all,@itm,@mnu,@rsp) = (0)
" if ${B_ADMIN_END}
" {loop $itm (sort_domains())
"  {next $itm->get_first('B_DEDICATED')
"   var $pth = concat('COL/',$itm->get_path)
"   call push(@itm,incr($cnt),$itm->get_first('T_TITLE',$pth))
"   call push(@rsp,$cnt,$pth)
"   call push(@all,$pth)
"   call push(@mnu,$cnt)
"  }
" }
" else
" {loop $itm (sort_domains())
"  {var $pth = concat('COL/',$itm->get_path)
"   call push(@itm,incr($cnt),$itm->get_first('T_TITLE',$pth))
"   call push(@rsp,$cnt,$pth)
"   next $itm->get_first('B_DEDICATED')
"   call push(@mnu,$cnt)
"  }
" }
"}
"
"# Determine the menu items and responses
"var @add = ('D|Define a new Oracle WebLogic Server domain home target|+|-')
"if $cnt
" call push(@add,'E|Edit an Oracle WebLogic Server domain home target|-|-')
"if ${B_ADMIN_END}
"{if $cnt
"  call unshift(@add,'A|All Oracle WebLogic Server domain home targets|*|-')
" call push(@add,'N|No Oracle WebLogic Server domain home targets|.|-')
" var ${AUX.bef} = ${T_ADMIN_BEFORE:\
"                    'Select a Oracle WebLogic Server domain home target list:'}
" var ${AUX.opt} = false
" var ${AUX.pck} = true
"}
"else
"{var ${AUX.bef} = ${T_ADMIN_BEFORE:\
"                    'Select a Oracle WebLogic Server domain home target:'}
" var ${AUX.err} = 'Invalid entry'
" var ${AUX.inp} = 'Enter the item number or the action letter.'
" var ${AUX.opt} = cond($cnt,false,true)
"}
"var ${AUX.add} = [@add]
"var ${AUX.itm} = [@itm]
"var ${AUX.rsp} = [@rsp]
}

[add_target]
typ=T
dft="COL/${NXT.DOM:${K_ADMIN_PARENT}}"
dsc='Determine the identifier for a new target'
nam=-T_ADMIN_VALUE

[all_targets]
typ=T
dft=(@all)
dsc='Select all targets'
end=''
nam=-T_ADMIN_VALUE

[no_targets]
typ=T
dft=()
dsc='Select no targets'
end=''
nam=-T_ADMIN_VALUE