# LDsos.ctl: Collects siga/sosreport/sysreport Reports
# $Id: LDsos.ctl,v 1.5 2015/08/21 15:35:34 RDA Exp $
# ARCS: $Header: /home/cvs/cvs/RDA_8/src/scripting/lib/collect/OS/LDsos.ctl,v 1.5 2015/08/21 15:35:34 RDA Exp $
#
# Change History
# 20150821  MSC  Improve time consistency.

=head1 NAME

OS:LDsos - Collects F<siga>/F<sosreport>/F<sysreport> Reports

=head1 DESCRIPTION

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

=cut

debug ' Inside LOAD module, gathering siga/sosreport/sysreport reports'
if isUnix()
{report sos

 # Purge old reports
 call setAbbr('OS_SOS_')
 call purge('C','.',15)

 # Collect recent reports
 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 $nam (grepDir($dir = ${OUT.C},concat('^',${CUR.W_PREFIX}),'t'))
 {var $fil = catFile($dir,$nam)
  write '|[[',$nam,'][_blank][',encode($nam),']]|',\
        getLastModify($fil,'<UTC>'),'| ',getSize($fil),'|'
 }
 if isCreated(true)
  toc '2:[[',getFile(),'][rda_report][siga/sosreport/sysreport Reports]]'
}

=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