# DCpda.ctl:325:Collects Oracle Portal Information
# $Id: DCpda.ctl,v 1.4 2015/07/03 12:04:44 RDA Exp $
# ARCS: $Header: /home/cvs/cvs/RDA_8/src/scripting/lib/collect/OFM/DCpda.ctl,v 1.4 2015/07/03 12:04:44 RDA Exp $
#
# Change History
# 20150703  MSC  Improve the documentation.

=head1 NAME

OFM:DCpda - Collects Oracle Portal Diagnostics Information

=head1 DESCRIPTION

This module collects the Oracle Portal diagnostics-related information.

The reports are regrouped under C<Oracle Portal>.

=cut

echo tput('bold'),'Processing OFM.PDA module ...',tput('off')

# Initialization
var $ORACLE_HOME = ${D_ORACLE_HOME/P:''}

=head1 PORTAL INFORMATION

Includes the reports generated by the L<abr:IREQ|collect::OFM:DCireq> module
about the Oracle instances and their associated Oracle homes.

=cut

if !?${B_PRIMARY}
{# Initialization
 var $TOC = '%TOC%'
 var $TOP = '[[#Top][Back to top]]'
 pretoc '1:Oracle Portal'

 var %HTTPDCONF
 var %HTTPDERRLOG
 var $OC4J_USED
 var $VERSION

 # Collect the portal repository information
 run OFM:PDAinfo(\$OC4J_USED,\$VERSION)

 # Analyze the log files
 run OFM:PDAlog($OC4J_USED,$VERSION)
 unpretoc
}
elsif ${B_REQ_IREQ}
{# Analyze the instance requests
 var %tbl = ()
 loop $req (${CUR.O_SETUP}->search('^IREQ_OFM_PDA_OI'))
 {var $ins = $req->get_first('I_ORACLE_INSTANCE')
  if ?$ins->get_first('I_ORACLE_HOME')->get_prime('I_COMMON_HOME')
   var $tbl{last->get_oid,$req->get_oid} = $ins->get_first('D_ORACLE_INSTANCE')
  else
   var $tbl{'CH',$req->get_oid} = $ins->get_first('D_ORACLE_INSTANCE')
 }

 # Collect the PDA 11g information
 toc '%PUSH("0:   * Oracle Portal")%'
 loop $oid (keys(%tbl))
 {toc '%PUSH("1+:Common Product Home")%'
  toc '%INCLUDE("OFM_IREQ_OFM_PDA_',$oid,'_TF.toc")%'
  toc '%POP%'
  loop $tid (keys($tbl = $tbl{$oid}))
  {toc '%PUSH("0:      * ',"'",basename($tbl->{$tid}),"'",' Instance")%'
   toc '%PUSH("%SPLIT%")%'
   toc '%PUSH("1++:Associated Oracle Home")%'
   toc '%INCLUDE("OFM_',replace($tid,'_OI','_OH'),'_TF.toc",1)%'
   toc '%POP2%'
   toc '%PUSH("%SPLIT%")%'
   toc '%PUSH("1++:Instance Home")%'
   toc '%INCLUDE("OFM_',$tid,'_TF.toc")%'
   toc '%POP3%'
  }
 }
 toc '%POP%'
}

=head1 SEE ALSO

L<OFM:DCireq|collect::OFM:DCireq>,
L<OFM:IAS|collect::OFM:IAS>,
L<OFM:PDAinfo|collect::OFM:PDAinfo>,
L<OFM:PDAlog|collect::OFM:PDAlog>,
L<OFM:PDAr11|collect::OFM:PDAr11>

=begin credits

=over 10

=item RDA 4.5:  Ersan Eser, Krishna Kumar, Rishi Mehrotra, Meraj Mohammed.

=item RDA 4.6:  Ersan Eser.

=item RDA 4.12: Meraj Mohammed.

=item RDA 4.22: Daniel Mortimer.

=item RDA 4.24: Greg Cook, Andrew Salt.

=back

=end credits

=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