# MCpkgv.ctl:208: Collects Installed Software Packages Validation Information
# $Id: MCpkgv.ctl,v 1.6 2014/07/17 12:26:30 RDA Exp $
# ARCS: $Header: /home/cvs/cvs/RDA_8/src/scripting/lib/collect/EXPLORER/MCpkgv.ctl,v 1.6 2014/07/17 12:26:30 RDA Exp $
#
# Change History
# 20140710  PRA  Add zones documentation.

=head1 NAME

EXPLORER:MCpkgv - Collects Installed Software Packages Validation Information

=head1 DESCRIPTION

This module collects information about the validation of the software packages
installed on the server.

=cut

use Mrc

# Initialization
var $VALIDATE = true
keep $VALIDATE

section begin

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

run EXPLORER:XPLRlib('pkgverify')

#------------------------------------------------------------------------------
# XPLR_pkgv section
#------------------------------------------------------------------------------

section XPLR_pkgv

call log_run('Processing PKGV sections ...')

pretoc '2:Installed Packages Validation'

=head2 Overview

Gathers the information about status of software packages installed on the
server using the following commands:

=over 2

=item o C</usr/bin/pkg verify -v>

=item o C</usr/sbin/pkgchk -n>

=back

Each command regularly takes more than seven minutes to complete.

=cut

loop $zon (get_zones(false))
{if $loc = defined($nam = $zon->[0])
 {var ($ttl,$pre,$exe) = (concat('From Zone ',$nam),\
                          concat('zones/',$nam),\
                          concat('/usr/sbin/zlogin ',$nam))
  call log_info(concat('pkgverify: RUNNING: zone ',$nam),\
                concat(' Inside PKGV collection, collecting from zone ',$nam,\
                       ' (can take time)'))
 }
 else
  var ($ttl,$pre,$exe) = ('From Global Zone')
 var $top = $zon->[1]

 report concat('pkgv_z_',nvl($nam,'global'))
 title '---+!! ',$ttl
 title $TOC

 # Collect SVR4-related information
 if ?testFile('x',catFile($top,'usr','sbin','pkgchk'))
 {debug ' Inside PKGV collection, collecting SVR4 package information'
  call do_remote($pre,$exe,$top,\
    {cmd => 'TITLE',txt => '---+ SVR4 Package Validation Information'},\
    ['patch+pkg/pkgchk-n',\
     '/usr/sbin/pkgchk','-n',\
     '',{err=>{fil=>'&1'},req=>{inc=>25}}],\
    {cmd => 'UNTITLE'})
  }

 # Collect IPS-related information
 if ?testFile('x',catFile($top,'usr','bin','pkg'))
 {debug ' Inside PKGV collection, collecting IPS package information'
  call do_remote($pre,$exe,$top,\
    {cmd => 'TITLE',txt => '---+ IPS Package Validation Information'},\
    ['patch+pkg/pkg_verify-v',\
     '/usr/bin/pkg','verify -v',\
     '',{req=>{inc=>25}}],\
    {cmd => 'UNTITLE'})
 }

 # Add the report to the table of content
 if isCreated(true)
  toc '3:[[',getFile(),'][rda_report][',$ttl,']]'
}

# Adjust the table of content
unpretoc

=head2 Zones

=for zone begin pkgverify

By default, collects information from the global zone only.

When local zone collections are requested explicitly, collects information
about status of software packages installed on the selected local zones using
the following commands:

=over 2

=item o C</usr/bin/pkg verify -v>

=item o C</usr/sbin/pkgchk -n>

=back

Each command regularly takes more than seven minutes to complete.

=for zone end

=head1 SEE ALSO

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

=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