# MCd580.ctl:258: Collects StorageTek 5800 System Information
# $Id: MCd580.ctl,v 1.4 2015/08/21 15:40:48 RDA Exp $
# ARCS: $Header: /home/cvs/cvs/RDA_8/src/scripting/lib/collect/EXPLORER/MCd580.ctl,v 1.4 2015/08/21 15:40:48 RDA Exp $
#
# Change History
# 20150821  MSC  Improve time consistency.

=head1 NAME

EXPLORER:MCd580 - Collects StorageTek 5800 System Information

=head1 DESCRIPTION

Collects StorageTek 5800 system information.

=cut

use Mrc

# Initialization
var $VALIDATE = true
keep $VALIDATE

section begin

var $ERR = '---## Associated Errors'
var $TOP = '[[#Top][Back to top]]'

run EXPLORER:XPLRlib('st5800')

#------------------------------------------------------------------------------
# XPLR_st5800 section
#------------------------------------------------------------------------------

section XPLR_st5800

if !${B_GLOBAL:true}
 return
call log_run('Processing D580 sections ...')

=head2 StorageTek 5800 Information

Collects the Golden Snapshot files present in the F</var/opt/STORtools/logs>
directory using the F</var/adm/extractor/honeycomb_extract> tool.

=cut

debug ' Inside ST5800 collection, gathering the ST5800 information'
if ?testFile('x',$cmd = '/opt/honeycomb/extractor/extractor.pl')
{pretoc '2: StorageTek 5800'

 # Execute the command and collect the corresponding output
 report d580_cmd
 var $fil = "/var/adm/extractor/honeycomb_extract"
 var $cmd = concat($cmd,' -o ',$fil)
 title '---+!! StorageTek 5800 Information'
 prefix
 {write '---+ Extractor Output'
  write '---## Using: ',encode($cmd)
 }
 call collectCommand({nam=>'st5800/extractor',\
   out=>{blk=>true,flt=>true,idx=>true,rpt=>${CUR.O_REPORT}},\
   err=>{blk=>true,flt=>true,hdr=>$ERR,rpt=>${CUR.O_REPORT}}\
   },$cmd)
 if isCreated(true)
 {write $TOP
  toc '3:[[',getFile(),'][rda_report][Extractor Execution Output]]'
 }

 # Collect the result file
 var $fil = concat($fil,'.tar.gz')
 report d580_fil
 prefix
 {write '---+ Extractor File'
  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 Path*| *Size*|*Last Modified Date*|'
 }
 if collectFile('st5800/extract/honeycomb_extract.tar.gz',$fil)
  write '|[[../',last,'][_blank][',$fil,']] | ',getSize($fil),'|',\
         getLastModify($fil,'<UTC>'),' |'
 if isCreated(true)
 {write $TOP
  toc '3:[[',getFile(),'][rda_report][Extractor Result File]]'
 }

 # Adjust the table of content
 unpretoc
}

=head1 SEE ALSO

L<EXPLORER:DCxplr|collect::EXPLORER:DCxplr>,
L<EXPLORER:XPLRlib|collect::EXPLORER:XPLRlib>

=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