# OCMload.def: Collects Oracle Configuration Manager Reports
# $Id: OCMload.def,v 1.7 2009/01/14 11:36:00 ldens Exp $
# ARCS: $Header: /u02/webapps/workbench/cvs/RDA_4/src/scripting/lib/modules/OCMload.def,v 1.7 2009/01/14 11:36:00 ldens Exp $
#
# Change History
# 20090114  LDE  Change the copyright notice.

=head1 NAME

OCMload - Collects Oracle Configuration Manager Reports

=head1 DESCRIPTION

This module retrieves the Oracle Configuration Manager reports.

=cut

debug ' Inside LOAD module, gathering Oracle Configuration Manager information'

# Initialisation
var %dsc = ('00status','Initial Status',\
            '01collect','Configuration Collection')
var %seq = ('collect','01collect',\
            'status','00status')
var %rpt = ()

# Purge old reports
call purge('E','OCM',1,600)

# Collect recent reports
pretoc '2:Oracle Configuration Manager'
var $dir = catDir(getSetting('RPT_DIRECTORY'),'extern')
var $grp = getSetting('RPT_GROUP')
loop $fil (grepDir($dir,concat('^',$grp,'\_OCM\_.*\.htm'),'in'))
{next isOlder(catFile($dir,$fil),1)
 var ($rpt,$typ) = match($fil,concat('^(',$grp,'\_OCM\_(.*)\.htm)$'),true)
 var $rpt{nvl($seq{$typ},$typ)} = $rpt
}
loop $rpt (keys(%rpt))
 toc '3:[[extern/',$rpt{$rpt},'][rda_report][',nvl($dsc{$rpt},$rpt),']]'
unpretoc

=head1 COPYRIGHT NOTICE

Copyright (c) 2002-2009, Oracle. All rights reserved.

=head1 TRADEMARK NOTICE

Oracle, JD Edwards, PeopleSoft, and Siebel are registered trademarks of Oracle
Corporation and/or its affiliates. Other names may be trademarks of their
respective owners.

=cut