# SOSload.def: Collects siga/sosreport/sysreport Reports
# $Id: SOSload.def,v 1.2 2009/08/05 12:38:15 mschenke Exp $
# ARCS: $Header: /u02/webapps/workbench/cvs/RDA_4/src/scripting/lib/modules/SOSload.def,v 1.2 2009/08/05 12:38:15 mschenke Exp $
#
# Change History
# 20090706  DEM  Modify documentation for siga.

=head1 NAME

SOSload - Collects siga/sosreport/sysreport Reports

=head1 DESCRIPTION

This module retrieves the F<siga>, F<sosreport>, and F<sysreport> reports
generated the last 15 days.

=cut

debug ' Inside LOAD module, gathering siga/sosreport/sysreport reports'

# Initialisation
var $RPT_GROUP     = getSetting('RPT_GROUP','RDA')
var $RPT_DIRECTORY = catDir(getSetting('RPT_DIRECTORY','output'))

# Purge old reports
call purge('O','SOS_',15)

# Collect recent reports
report sos
prefix
{write '---+ siga/sosreport/sysreport Reports'
 write '   * Limited to runs done in last 15 days'
 write '   * Links point to files that have been collected in their original \
             format. Opening them directly in your browser can present risks. \
             To prevent them, access the file outside the browser or use \
             the link to save them and use an adequate viewer.'
 write '|*File Name*|*Last Modified Date*| *Size*|'
}
loop $fil (grepDir($RPT_DIRECTORY,concat('^',$RPT_GROUP,'_SOS_'),'pt'))
{var $bas = basename($fil)
 write '|[[',$bas,'][_blank][',encode($bas),']]|',\
       getLastModify($fil,'%d-%b-%Y&nbsp;%H:%M:%S'),'| ',\
       getSize($fil),'|'
}
if isCreated(true)
 toc '2:[[',getFile(),'][rda_report][siga/sosreport/sysreport Reports]]'

=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