# MCpci.ctl:241: Collects Peripheral Component Interconnect Information
# $Id: MCpci.ctl,v 1.4 2013/10/30 07:18:25 RDA Exp $
# ARCS: $Header: /home/cvs/cvs/RDA_8/src/scripting/lib/collect/EXPLORER/MCpci.ctl,v 1.4 2013/10/30 07:18:25 RDA Exp $
#
# Change History
# 20130606  PRA  Use -v option for all Solaris versions.

=head1 NAME

EXPLORER:MCpci - Performs Peripheral Component Interconnect (PCI) Collection

=head1 DESCRIPTION

Collects Peripheral Component Interconnect information on Solaris x86 systems.

=cut

use Mrc

# Initialization
var $VALIDATE = true
keep $VALIDATE

section begin

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

run EXPLORER:XPLRlib('pci')

# -----------------------------------------------------------------------------
# XPLR_pci section
# -----------------------------------------------------------------------------

section XPLR_pci

# Validate the context
if !${B_GLOBAL:true}
 return
if !compare('eq',get_arc(),'i386')
 return
call log_run('Processing PCI sections ...')

=head2 pci - Peripheral Component Interconnect Drivers Information

Gathers the Peripheral Component Interconnect information using the
F</usr/bin/scanpci> or F</usr/X11/bin/scanpci> command with the following
option:

=over 2

=item o C<-v>

=back

=cut

# Determine the command
if !?nvl(testFile('fx','/usr/bin/scanpci'),\
         testFile('fx','/usr/X11/bin/scanpci'))
 return log_info('scanpci not found')
var $cmd = concat(last,' -v')

# Collect the information
debug ' Inside PCI collection, gathering the PCI information'
report pci
prefix
{write '---+!! Peripheral Component Interconnect Devices Information'
 write '---## Using: ',encode($cmd)
}
call collectCommand({nam=>'sysconfig/scanpci-v',\
  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 '2:[[',getFile(),'][rda_report][Peripheral Component Interconnect]]'
}

=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