# DCapex.cfg: Collects APEX Information
# $Id: DCapex.cfg,v 1.8 2013/12/18 13:55:30 RDA Exp $
# ARCS: $Header: /home/cvs/cvs/RDA_8/src/scripting/lib/collect/DB/DCapex.cfg,v 1.8 2013/12/18 13:55:30 RDA Exp $
#
# Copyright (c) 2002, 2016, Oracle and/or its affiliates. All rights reserved.
#
# Change history
# 20131218  KRA  Fix spell.

###############################################################################
# Collect APEX setup information
###############################################################################

#------------------------------------------------------------------------------
# Module definition
#------------------------------------------------------------------------------
col=${B_IN_USE}
dsc='Collects APEX Information'
pre=RDA:DCbegin
rpt=B_IN_USE
var=B_IN_USE  # Flow:in_use
exe=sdcl {
"if ${PRF.B_TESTS}
" var @{AUX.var} = ('in_use')
"
"macro check_home
"{var ($dir) = @arg
" if ?nvl(testDir('d',catDir($dir,'Apache','modplsql')),\
"         testDir('d',catDir($dir,'ohs','modplsql')))
" {if ?nvl(testFile('f',catFile(last,'conf','marvel.conf')),\
"          testFile('f',catFile(last,'conf','dads.conf')))
"   var ${F_TMP_CONF/T} = last
"  return 1
" }
" return 0
"}
"
"macro is_valid_home
"{var ($nam,$dir) = @arg
" require testDir('d',$dir),\
"   'The specified HTTP server home directory does not exist.'
" require isAbsolute($dir),\
"   'The specified HTTP server home directory is not an absolute path.'
" require check_home($dir),\
"   "The specified HTTP server home directory ${VAR.dir} does not contain the \
"    required configuration files."
" var ${AUX.nam} = $nam
" return true
"}
}

#------------------------------------------------------------------------------
# Setting definitions
#------------------------------------------------------------------------------
[in_use]
typ=B
dft=true
dsc='Is APEX information requested?'
nam=B_IN_USE
var=B_HTTP

[B_IN_USE]
typ=B
dft=${AUX.B_SELECTED}
dsc='Is APEX information requested?'
inp='Do you want RDA to analyze Oracle APEX (Y/N)?'
var=true:B_HTTP

[B_HTTP]
typ=B
dft=false
dsc='Indicate if the HTTP server is located on the current system'
inp='Is the HTTP server that is accessing the APEX instance is on the server?'
var=true:D_ORACLE_HOME:\
         I_DB

[D_ORACLE_HOME]
typ=D
dft=${SET.RDA.BEGIN.D_ORACLE_HOME}
dsc='HTTP server Oracle home'
inp='Specify the full path to your HTTP server Oracle home'
nam=-
ref=is_valid_home('D_ORACLE_HOME',last)
val=W
var=exists:chk_conf:\
           B_HTTP

[chk_conf]
typ=F
alt=I_DB
dft=${F_TMP_CONF}
dsc='Configuration file for multiple database present?'
nam=-
var=B_DB_AUTO

[B_DB_AUTO]
typ=B
dft=true
dsc='Do you want RDA to collect the database connection details automatically?'
inp='Do you want RDA to collect the database connection details \
     automatically (Y/N)?'
lvl=6
var=true:db_set,loop_id:\
         I_DB

#------------------------------------------------------------------------------
# Single database connection
#------------------------------------------------------------------------------
[I_DB]
typ=I
cls='SQ'
dft=${SET.DB.DB.I_DB}
dsc='Database to analyze'

#------------------------------------------------------------------------------
# Multiple database connections
#------------------------------------------------------------------------------
[db_set]
typ=T
dsc='Connection sets'
end='.'
nam=T_DB_SET
exe=sdcl {
"var ($fmt,$hst,$loc,$prt,$sid) = ()
"var (@set,@tb_sid,%tb_flg,%tb_dba,%tb_fmt,%tb_loc,%tb_usr) = ()
"
"# Get the previous settings
"loop $itm (@{T_DB_SET})
"{var $sid = ${T_ORACLE_SID_${VAR.itm}}
" var $tb_flg{$sid} = ${B_FLAG_${VAR.itm}}
" var $tb_usr{$sid} = ${T_USER_${VAR.itm}}
" var $tb_dba{$sid} = ${B_SYSDBA_${VAR.itm}}
"}
"
"# Extract database connection details from the configuration file
"if loadFile(${F_TMP_CONF})
"{var $FMT = '\s*PlsqlDatabaseConnectString\s*(.*)\s+(((Net)?\
"             ServiceName|SID|TNS)Format)'
" loop $lin (getLines())
" {next match($lin,'^<!--')
"  if match($lin,'^<Location\s*(.*)>$',true)
"   var ($loc) = last
"  elsif match($lin,$FMT)
"  {var ($sid,$fmt) = last
"   if match($fmt,'ServiceNameFormat',true)
"    var $sid = s($sid,'(.*:.*):(.*)',concat('$1::',uc($2)))
"   elsif match($fmt,'TNSFormat',true)
"   {var ($hst) = match($sid,'HOST\s*=\s*([^\051]+)',true)
"    var ($prt) = match($sid,'PORT\s*=\s*([^\051]+)',true)
"    if match($sid,'SERVICE_NAME\s*=\s*([^\051]+)',true)
"     var $sid = concat($hst,':',$prt,'::',uc(first(last)))
"    elsif match($sid,'SID_NAME\s*=\s*([^\051]+)',true)
"     var $sid = concat($hst,':',$prt,':',uc(first(last)))
"   }
"   if exists($tb_fmt{$sid})
"   {call push(@{$tb_fmt{$sid}},$fmt)
"    call push(@{$tb_loc{$sid}},$loc)
"   }
"   else
"   {var $tb_fmt{$sid} = [$fmt]
"    var $tb_loc{$sid} = [$loc]
"    call push(@tb_sid,$sid)
"   }
"  }
" }
"}
"
"# Generate the temporary settings
"var $cnt = 0
"loop $sid (@tb_sid)
"{call push(@set,$itm = concat('DB',incr($cnt)))
" var ${T_ORACLE_SID_${VAR.itm}:\
"    "Oracle SID of the database containing the APEX schema for ${VAR.itm}"} = \
"   $sid
" if ?$tb_flg{$sid}
"  var ${B_FLAG_${VAR.itm}/T} = last
" if ?$tb_fmt{$sid}
"  var ${T_FORMAT_${VAR.itm}/T} = last
" if ?$tb_loc{$sid}
"  var ${T_LOC_${VAR.itm}/T} = last
" if ?$tb_dba{$sid}
"  var ${B_SYSDBA_${VAR.itm}/T} = last
" if ?$tb_usr{$sid}
"  var ${T_USER_${VAR.itm}/T} = last
"}
"var @{AUX.dft} = @set
}

[loop_id]
typ=L
dft=@{T_DB_SET}
dsc='Iterate on each database identifier'
nam=-W_ID
var=loop:set_flag

[set_flag]
typ=B
dft=${B_FLAG_${W_ID}:false}
dsc="Do you want RDA to collect the database information for \
     ${T_ORACLE_SID_${W_ID}}"
inp="Do you want RDA to collect the database information for \
     ${T_ORACLE_SID_${W_ID}} (Y/N)?"
nam=B_FLAG_${W_ID}
var=true:set_properties,set_user,set_sysdba,get_target

[set_properties]
typ=B
nam=-
exe=sdcl {
"var ${T_FORMAT_${W_ID}:"Original connection formats for ${W_ID}"} = \
"  ${T_FORMAT_${W_ID}}
"var ${T_LOC_${W_ID}:"Locations associated to ${W_ID}"} = ${T_LOC_${W_ID}}
}

[set_user]
typ=T
dft=${T_USER_${W_ID}:'SYSTEM'}
dsc="User to connect to database for ${T_ORACLE_SID_${W_ID}}"
inp="Enter an Oracle User ID (user ID, only) for ${T_ORACLE_SID_${W_ID}} to \
     view DBA_ and V$ tables. If you want RDA to run under the user ID of the \
     Oracle software owner, enter a forward slash (/) here, and enter Y at \
     the SYSDBA prompt. This prevents a prompt for the database password at \
     run-time."
nam=T_USER_${W_ID}

[set_sysdba]
typ=B
dft=${B_SYSDBA_${W_ID}:false}
dsc="Should ${T_USER_${W_ID}} connect as SYSDBA for ${T_ORACLE_SID_${W_ID}}?"
inp="Is ${T_USER_${W_ID}} at ${T_ORACLE_SID_${W_ID}} a SYSDBA user (will \
     connect as SYSDBA) (Y/N)?"
nam=B_SYSDBA_${W_ID}

[get_target]
typ=B
nam=-
exe=sdcl {
"var $ttl = "DB.APEX ${W_ID} queries"
"if findItem('SQ',{B_DEDICATED=>true,\
"                  T_TITLE=>$ttl})
" var $db = defineTarget(last,{B_SYSDBA=>${B_SYSDBA_${W_ID}},\
"                              T_ORACLE_SID=>${T_ORACLE_SID_${W_ID}},\
"                              T_USER=>${T_USER_${W_ID}}})
"else
" var $db = defineTarget('SQ',{B_DEDICATED=>true,\
"                              B_SYSDBA=>${B_SYSDBA_${W_ID}},\
"                              T_ORACLE_SID=>${T_ORACLE_SID_${W_ID}},\
"                              T_TITLE=>$ttl,\
"                              T_USER=>${T_USER_${W_ID}}})
"var ${I_DB_${W_ID}:"Database to analyze for ${W_ID"} = $db
}