# MCfcal.ctl:252: Collects Fiber Channel Arbitrated Loop Drives Information
# $Id: MCfcal.ctl,v 1.3 2015/05/29 11:41:06 RDA Exp $
# ARCS: $Header: /home/cvs/cvs/RDA_8/src/scripting/lib/collect/EXPLORER/MCfcal.ctl,v 1.3 2015/05/29 11:41:06 RDA Exp $
#
# Change History
# 20150527  KRA  Improve the documentation.

=head1 NAME

EXPLORER:MCfcal - Collects Fiber Channel Arbitrated Loop Drives Information

=head1 DESCRIPTION

This module collects disk information on internal Fiber Channel Arbitrated
Loop (FCAL) drives.

=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('fcal')

#------------------------------------------------------------------------------
# XPLR_fcal section
#------------------------------------------------------------------------------

section XPLR_fcal

# Validate the execution context
if !${B_GLOBAL:true}
 return
call log_run('Processing FCAL sections ...')

=head2 fcal - Fiber Channel Arbitrated Loop Drives Information

Gathers the internal Fiber Channel Arbitrated Loop drives information using the
C</usr/sbin/luxadm display ${LUN}> command. The existing C<${LUN}> are
extracted from the output of the C</usr/sbin/luxadm probe> command.

=cut

debug ' Inside FCAL collection, gathering the FCAL information'
report fcal
title '---+!! Fiber Channel Arbitrated Loop Drives'
title $TOC

var %lun = ()
loop $lun (grepCommand('/usr/sbin/luxadm probe','WWN:(\S+)\s','1'))
 var $lun{$lun} = 1
loop $lun (keys(%lun))
{var $cmd = concat('/usr/sbin/luxadm display ',$lun)
 prefix
 {write '---+ Drive Information for World Wide Name:',$lun
  write '---## Using: ',encode($cmd)
 }
 sleep
 call collectCommand({nam=>concat('disks/luxadm_display_',$lun),\
   out=>{blk=>true,flt=>true,idx=>true,rpt=>${CUR.O_REPORT}},\
   err=>{blk=>true,flt=>true,hdr=>$ERR,rpt=>${CUR.O_REPORT}}\
   },$cmd)
 if hasOutput(true)
  write $TOP
}
if isCreated(true)
 toc '2:[[',getFile(),'][rda_report][Fiber Channel Arbitrated Loop Drives]]'

=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