# PDAr11.ctl: Defines Common Macros for Portal 11g
# $Id: PDAr11.ctl,v 1.2 2013/10/30 07:18:34 RDA Exp $
# ARCS: $Header: /home/cvs/cvs/RDA_8/src/scripting/lib/collect/OFM/PDAr11.ctl,v 1.2 2013/10/30 07:18:34 RDA Exp $
#
# Change History
# 20121221  KRA  Initial RDA 8 version.

=head1 NAME

OFM:PDAr11 - Defines Common Macros for Portal 11g

=head1 DESCRIPTION

This persistent submodule regroups macros that are common to Portal in Oracle
Fusion Middleware 11g.

The following macro is available:

=cut

# Make the module persistent and share macros
keep $KEEP_BLOCK,@SHARE_MACROS
var @SHARE_MACROS = ('analyze_ohs_logs')

# Load the common macros
run OFM:IAS()

=head2 S<analyze_ohs_logs($pre,$top,$use,$ver,\%cmp)>

This macro collects Portal instance information.

=cut

macro analyze_ohs_logs
{var ($pre,$top,$use,$ver,\%cmp) = @arg
 import %HTTPDCONF,%HTTPDERRLOG

 debug ' - Getting Portal performance related information'
 loop $key (keys(%cmp))
 {var ($typ,$cmp) = split('\|',$key,2)
  next !match($typ,'^OHS$',true)
  debug '   - ',$cmp,' component'
  var (%HTTPDCONF,%HTTPDERRLOG) = ()
  var ($fil) = (grepDir(catDir($top,'config',$typ,$cmp),\
                '^httpd(s)?\.conf$','pf'))
  var ${F_HTTPD_CONF_LOCATION/T} = $fil

  # Get the ohs error file (more recent complete one in case of rotation)
  call httpServer_getListenerConf(true,$top,$typ,$cmp)
  call httpServer_getListenerLogs(true,$top,$typ,$cmp)
  var ($max,$fil) = (0)
  loop $log (keys(%HTTPDERRLOG))
  {if expr('>',$HTTPDERRLOG{$log},$max)
    var ($fil,$max) = ($log,$HTTPDERRLOG{$log})
  }

  # Analyze the performances
  if $fil
  {pretoc "2:'",$cmp,"' OHS Component"
   call setPrefix(concat($pre,'_c_',$cmp))
   run OFM:PDAperf(3,$use,$ver,$fil)
   unpretoc
  }
 }
 call setPrefix($pre)
}

=head1 SEE ALSO

L<OFM:PDAperf|collect::OFM:PDAperf>

=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