528 lines
16 KiB
Perl
528 lines
16 KiB
Perl
|
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
||
|
|
|
||
|
|
package xCAT::PPCinv;
|
||
|
|
use strict;
|
||
|
|
use Getopt::Long;
|
||
|
|
use xCAT::PPCcli qw(SUCCESS EXPECT_ERROR RC_ERROR NR_ERROR);
|
||
|
|
|
||
|
|
|
||
|
|
##########################################################################
|
||
|
|
# Parse the command line for options and operands
|
||
|
|
##########################################################################
|
||
|
|
sub parse_args {
|
||
|
|
|
||
|
|
my $request = shift;
|
||
|
|
my $args = $request->{arg};
|
||
|
|
my %opt = ();
|
||
|
|
my @rinv = qw(bus config model serial all);
|
||
|
|
my @VERSION = qw( 2.0 );
|
||
|
|
|
||
|
|
#############################################
|
||
|
|
# Responds with usage statement
|
||
|
|
#############################################
|
||
|
|
local *usage = sub {
|
||
|
|
return( [ $_[0],
|
||
|
|
"rinv -h|--help",
|
||
|
|
"rinv -v|--version",
|
||
|
|
"rinv [-V|--verbose] noderange " . join( '|', @rinv ),
|
||
|
|
" -h writes usage information to standard output",
|
||
|
|
" -v displays command version",
|
||
|
|
" -V verbose output" ]);
|
||
|
|
};
|
||
|
|
#############################################
|
||
|
|
# Process command-line arguments
|
||
|
|
#############################################
|
||
|
|
if ( !defined( $args )) {
|
||
|
|
return(usage( "No command specified" ));
|
||
|
|
}
|
||
|
|
#############################################
|
||
|
|
# Checks case in GetOptions, allows opts
|
||
|
|
# to be grouped (e.g. -vx), and terminates
|
||
|
|
# at the first unrecognized option.
|
||
|
|
#############################################
|
||
|
|
@ARGV = @$args;
|
||
|
|
$Getopt::Long::ignorecase = 0;
|
||
|
|
Getopt::Long::Configure( "bundling" );
|
||
|
|
|
||
|
|
if ( !GetOptions( \%opt, qw(h|help V|Verbose v|version) )) {
|
||
|
|
return( usage() );
|
||
|
|
}
|
||
|
|
####################################
|
||
|
|
# Option -h for Help
|
||
|
|
####################################
|
||
|
|
if ( exists( $opt{h} )) {
|
||
|
|
return( usage() );
|
||
|
|
}
|
||
|
|
####################################
|
||
|
|
# Option -v for version
|
||
|
|
####################################
|
||
|
|
if ( exists( $opt{v} )) {
|
||
|
|
return( \@VERSION );
|
||
|
|
}
|
||
|
|
####################################
|
||
|
|
# Check for "-" with no option
|
||
|
|
####################################
|
||
|
|
if ( grep(/^-$/, @ARGV )) {
|
||
|
|
return(usage( "Missing option: -" ));
|
||
|
|
}
|
||
|
|
####################################
|
||
|
|
# Unsupported command
|
||
|
|
####################################
|
||
|
|
my ($cmd) = grep(/^$ARGV[0]$/, @rinv );
|
||
|
|
if ( !defined( $cmd )) {
|
||
|
|
return(usage( "Invalid command: $ARGV[0]" ));
|
||
|
|
}
|
||
|
|
####################################
|
||
|
|
# Check for an extra argument
|
||
|
|
####################################
|
||
|
|
shift @ARGV;
|
||
|
|
if ( defined( $ARGV[0] )) {
|
||
|
|
return(usage( "Invalid Argument: $ARGV[0]" ));
|
||
|
|
}
|
||
|
|
####################################
|
||
|
|
# Set method to invoke
|
||
|
|
####################################
|
||
|
|
$request->{method} = $cmd;
|
||
|
|
return( \%opt );
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
##########################################################################
|
||
|
|
# Returns VPD (model-type,serial-number)
|
||
|
|
##########################################################################
|
||
|
|
sub enumerate_vpd {
|
||
|
|
|
||
|
|
my $exp = shift;
|
||
|
|
my $mtms = shift;
|
||
|
|
my $hash = shift;
|
||
|
|
my $filter = shift;
|
||
|
|
my $cecname;
|
||
|
|
my @vpd;
|
||
|
|
|
||
|
|
my ($name) = keys %{$hash->{$mtms}};
|
||
|
|
my $type = @{$hash->{$mtms}->{$name}}[4];
|
||
|
|
|
||
|
|
######################################
|
||
|
|
# HMCs and IVMs
|
||
|
|
######################################
|
||
|
|
if ( $type =~ /^hmc|ivm$/ ) {
|
||
|
|
my $hcp = xCAT::PPCcli::lshmc( $exp );
|
||
|
|
my $Rc = shift(@$hcp);
|
||
|
|
|
||
|
|
##############################
|
||
|
|
# Return error
|
||
|
|
##############################
|
||
|
|
if ( $Rc != SUCCESS ) {
|
||
|
|
return( [$Rc,@$hcp[0]] );
|
||
|
|
}
|
||
|
|
##############################
|
||
|
|
# Success
|
||
|
|
##############################
|
||
|
|
@vpd = split /,/, @$hcp[0];
|
||
|
|
}
|
||
|
|
######################################
|
||
|
|
# BPAs
|
||
|
|
######################################
|
||
|
|
elsif ( $type =~ /^bpa$/ ) {
|
||
|
|
my $filter = "type_model,serial_num";
|
||
|
|
my $frame = xCAT::PPCcli::lssyscfg( $exp, $type, $mtms, $filter );
|
||
|
|
my $Rc = shift(@$frame);
|
||
|
|
|
||
|
|
##############################
|
||
|
|
# Return error
|
||
|
|
##############################
|
||
|
|
if ( $Rc != SUCCESS ) {
|
||
|
|
return( [$Rc,@$frame[0]] );
|
||
|
|
}
|
||
|
|
##############################
|
||
|
|
# Success
|
||
|
|
##############################
|
||
|
|
@vpd = split /,/, @$frame[0];
|
||
|
|
}
|
||
|
|
######################################
|
||
|
|
# CECs and LPARs
|
||
|
|
######################################
|
||
|
|
else {
|
||
|
|
##############################
|
||
|
|
# Send command for CEC only
|
||
|
|
##############################
|
||
|
|
my $cec = xCAT::PPCcli::lssyscfg( $exp, "fsp", $mtms, $filter );
|
||
|
|
my $Rc = shift(@$cec);
|
||
|
|
|
||
|
|
##############################
|
||
|
|
# Return error
|
||
|
|
##############################
|
||
|
|
if ( $Rc != SUCCESS ) {
|
||
|
|
return( [$Rc,@$cec[0]] );
|
||
|
|
}
|
||
|
|
##############################
|
||
|
|
# Success
|
||
|
|
##############################
|
||
|
|
@vpd = split /,/, @$cec[0];
|
||
|
|
}
|
||
|
|
my %outhash = (
|
||
|
|
model => $vpd[0],
|
||
|
|
serial => $vpd[1]
|
||
|
|
);
|
||
|
|
return( [SUCCESS,\%outhash] );
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
##########################################################################
|
||
|
|
# Returns memory/processor information for CEC/LPARs
|
||
|
|
##########################################################################
|
||
|
|
sub enumerate_cfg {
|
||
|
|
|
||
|
|
my $exp = shift;
|
||
|
|
my $mtms = shift;
|
||
|
|
my $hash = shift;
|
||
|
|
my %outhash = ();
|
||
|
|
my $sys = 0;
|
||
|
|
my @cmds = (
|
||
|
|
[ "sys", "proc", "installed_sys_proc_units" ],
|
||
|
|
[ "sys", "mem", "installed_sys_mem" ],
|
||
|
|
[ "lpar","proc", "lpar_name,curr_procs" ],
|
||
|
|
[ "lpar","mem", "lpar_name,curr_mem" ]
|
||
|
|
);
|
||
|
|
my $cecname;
|
||
|
|
|
||
|
|
my ($name) = keys %{$hash->{$mtms}};
|
||
|
|
my $type = @{$hash->{$mtms}->{$name}}[4];
|
||
|
|
|
||
|
|
######################################
|
||
|
|
# Invalid target hardware
|
||
|
|
######################################
|
||
|
|
if ( $type !~ /^fsp|lpar$/ ) {
|
||
|
|
return( [RC_ERROR,"Information only available for CEC/LPAR"] );
|
||
|
|
}
|
||
|
|
######################################
|
||
|
|
# Check for CECs in list
|
||
|
|
######################################
|
||
|
|
while (my ($name,$d) = each(%{$hash->{$mtms}}) ) {
|
||
|
|
if ( @$d[4] eq "fsp" ) {
|
||
|
|
$cecname = $name;
|
||
|
|
last;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
######################################
|
||
|
|
# No CECs - Skip command for CEC
|
||
|
|
######################################
|
||
|
|
if ( !defined( $cecname )) {
|
||
|
|
shift @cmds;
|
||
|
|
shift @cmds;
|
||
|
|
}
|
||
|
|
######################################
|
||
|
|
# No LPARs - Skip command for LPAR
|
||
|
|
######################################
|
||
|
|
if (( keys %{$hash->{$mtms}} == 1 ) and ( scalar(@cmds) == 4 )) {
|
||
|
|
pop @cmds;
|
||
|
|
pop @cmds;
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach my $cmd( @cmds ) {
|
||
|
|
my $result = xCAT::PPCcli::lshwres( $exp, $cmd, $mtms );
|
||
|
|
my $Rc = shift(@$result);
|
||
|
|
|
||
|
|
##################################
|
||
|
|
# Expect error
|
||
|
|
##################################
|
||
|
|
if ( $Rc != SUCCESS ) {
|
||
|
|
return( [$Rc,@$result[0]] );
|
||
|
|
}
|
||
|
|
##################################
|
||
|
|
# Success...
|
||
|
|
# lshwres does not return CEC name
|
||
|
|
# For CEC commands, insert name
|
||
|
|
##################################
|
||
|
|
if ( @$cmd[0] eq "sys" ) {
|
||
|
|
foreach ( @$result[0] ) {
|
||
|
|
s/(.*)/$cecname,$1/;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
##################################
|
||
|
|
# Save by CEC/LPAR name
|
||
|
|
##################################
|
||
|
|
foreach ( @$result ) {
|
||
|
|
my ($name,$value) = split /,/;
|
||
|
|
push @{$outhash{ $name }}, $value;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return( [SUCCESS,\%outhash] );
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
##########################################################################
|
||
|
|
# Returns I/O bus information
|
||
|
|
##########################################################################
|
||
|
|
sub enumerate_bus {
|
||
|
|
|
||
|
|
my $exp = shift;
|
||
|
|
my $mtms = shift;
|
||
|
|
my $hash = shift;
|
||
|
|
my $filter = shift;
|
||
|
|
my %outhash = ();
|
||
|
|
my @res = qw(lpar);
|
||
|
|
my @cmds = (
|
||
|
|
undef,
|
||
|
|
"io --rsubtype slot",
|
||
|
|
$filter
|
||
|
|
);
|
||
|
|
my $cecname;
|
||
|
|
|
||
|
|
my ($name) = keys %{$hash->{$mtms}};
|
||
|
|
my $type = @{$hash->{$mtms}->{$name}}[4];
|
||
|
|
|
||
|
|
##################################
|
||
|
|
# Invalid target hardware
|
||
|
|
##################################
|
||
|
|
if ( $type !~ /^fsp|lpar$/ ) {
|
||
|
|
return( [RC_ERROR,"Bus information only available for CEC/LPAR"] );
|
||
|
|
}
|
||
|
|
##################################
|
||
|
|
# Send command for CEC only
|
||
|
|
##################################
|
||
|
|
my $cecs = xCAT::PPCcli::lshwres( $exp, \@cmds, $mtms );
|
||
|
|
my $Rc = shift(@$cecs);
|
||
|
|
|
||
|
|
##################################
|
||
|
|
# Return error
|
||
|
|
##################################
|
||
|
|
if ( $Rc != SUCCESS ) {
|
||
|
|
return( [$Rc,@$cecs[0]] );
|
||
|
|
}
|
||
|
|
##################################
|
||
|
|
# Success
|
||
|
|
##################################
|
||
|
|
my @bus = @$cecs;
|
||
|
|
|
||
|
|
##################################
|
||
|
|
# Check for CECs in list
|
||
|
|
##################################
|
||
|
|
foreach ( keys %{$hash->{$mtms}} ) {
|
||
|
|
if ( @{$hash->{$mtms}->{$_}}[4] eq "fsp" ) {
|
||
|
|
$cecname = $_;
|
||
|
|
last;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
##################################
|
||
|
|
# Get LPAR names
|
||
|
|
##################################
|
||
|
|
my $lpars = xCAT::PPCcli::lssyscfg( $exp, "lpar", $mtms, "name" );
|
||
|
|
$Rc = shift(@$lpars);
|
||
|
|
|
||
|
|
##################################
|
||
|
|
# Return error
|
||
|
|
##################################
|
||
|
|
if ( $Rc != SUCCESS ) {
|
||
|
|
return( [$Rc,@$lpars[0]] );
|
||
|
|
}
|
||
|
|
##################################
|
||
|
|
# Save LPARs by name
|
||
|
|
##################################
|
||
|
|
foreach ( @$lpars ) {
|
||
|
|
$outhash{$_} = \@bus;
|
||
|
|
}
|
||
|
|
##################################
|
||
|
|
# Save CEC by name too
|
||
|
|
##################################
|
||
|
|
if ( defined( $cecname )) {
|
||
|
|
$outhash{$cecname} = \@bus;
|
||
|
|
}
|
||
|
|
return( [SUCCESS,\%outhash] );
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
##########################################################################
|
||
|
|
# Returns I/O bus information
|
||
|
|
##########################################################################
|
||
|
|
sub bus {
|
||
|
|
|
||
|
|
my $request = shift;
|
||
|
|
my $hash = shift;
|
||
|
|
my $exp = shift;
|
||
|
|
my @result = ();
|
||
|
|
my $filter = "drc_name,bus_id,description";
|
||
|
|
|
||
|
|
while (my ($mtms,$h) = each(%$hash) ) {
|
||
|
|
#####################################
|
||
|
|
# Get information for this CEC
|
||
|
|
#####################################
|
||
|
|
my $bus = enumerate_bus( $exp, $mtms, $hash, $filter );
|
||
|
|
my $Rc = shift(@$bus);
|
||
|
|
my $data = @$bus[0];
|
||
|
|
|
||
|
|
while (my ($name) = each(%$h) ) {
|
||
|
|
#################################
|
||
|
|
# Output header
|
||
|
|
#################################
|
||
|
|
push @result, [$name,"I/O Bus Information"];
|
||
|
|
|
||
|
|
#################################
|
||
|
|
# Output error
|
||
|
|
#################################
|
||
|
|
if ( $Rc != SUCCESS ) {
|
||
|
|
push @result, [$name,@$bus[0]];
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
#################################
|
||
|
|
# Node not found
|
||
|
|
#################################
|
||
|
|
if ( !exists( $data->{$name} )) {
|
||
|
|
push @result, [$name,"Node not found"];
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
#################################
|
||
|
|
# Output values
|
||
|
|
#################################
|
||
|
|
foreach ( @{$data->{$name}} ) {
|
||
|
|
s/,/:/;
|
||
|
|
push @result, [$name,$_];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return( \@result );
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
##########################################################################
|
||
|
|
# Returns VPD information
|
||
|
|
##########################################################################
|
||
|
|
sub vpd {
|
||
|
|
|
||
|
|
my $request = shift;
|
||
|
|
my $hash = shift;
|
||
|
|
my $exp = shift;
|
||
|
|
my @cmds = $request->{method};
|
||
|
|
my @result = ();
|
||
|
|
my $filter = "type_model,serial_num";
|
||
|
|
my %prefix = (
|
||
|
|
model => ["Machine Type/Model",0],
|
||
|
|
serial => ["Serial Number", 1]
|
||
|
|
);
|
||
|
|
|
||
|
|
#########################################
|
||
|
|
# Convert "all"
|
||
|
|
#########################################
|
||
|
|
if ( $cmds[0] eq "all" ) {
|
||
|
|
@cmds = qw( model serial );
|
||
|
|
}
|
||
|
|
|
||
|
|
while (my ($mtms,$h) = each(%$hash) ) {
|
||
|
|
#####################################
|
||
|
|
# Get information for this CEC
|
||
|
|
#####################################
|
||
|
|
my $vpd = enumerate_vpd( $exp, $mtms, $hash, $filter );
|
||
|
|
my $Rc = shift(@$vpd);
|
||
|
|
my $data = @$vpd[0];
|
||
|
|
|
||
|
|
while (my ($name) = each(%$h) ) {
|
||
|
|
foreach ( @cmds ) {
|
||
|
|
#############################
|
||
|
|
# Output error
|
||
|
|
#############################
|
||
|
|
if ( $Rc != SUCCESS ) {
|
||
|
|
push @result, [$name,"@{$prefix{$_}}[0]: @$vpd[0]"];
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
#############################
|
||
|
|
# Output value
|
||
|
|
#############################
|
||
|
|
my $value = "@{$prefix{$_}}[0]: $data->{$_}";
|
||
|
|
push @result, [$name,$value];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return( \@result );
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
##########################################################################
|
||
|
|
# Returns memory/processor information
|
||
|
|
##########################################################################
|
||
|
|
sub config {
|
||
|
|
|
||
|
|
my $request = shift;
|
||
|
|
my $hash = shift;
|
||
|
|
my $exp = shift;
|
||
|
|
my @result = ();
|
||
|
|
my @prefix = (
|
||
|
|
"Number of Processors: %s",
|
||
|
|
"Total Memory (MB): %s"
|
||
|
|
);
|
||
|
|
|
||
|
|
while (my ($mtms,$h) = each(%$hash) ) {
|
||
|
|
#####################################
|
||
|
|
# Get information for this CEC
|
||
|
|
#####################################
|
||
|
|
my $cfg = enumerate_cfg( $exp, $mtms, $hash );
|
||
|
|
my $Rc = shift(@$cfg);
|
||
|
|
my $data = @$cfg[0];
|
||
|
|
|
||
|
|
while (my ($name) = each(%$h) ) {
|
||
|
|
#################################
|
||
|
|
# Output header
|
||
|
|
#################################
|
||
|
|
push @result, [$name,"Machine Configuration Info"];
|
||
|
|
my $i;
|
||
|
|
|
||
|
|
foreach ( @prefix ) {
|
||
|
|
#############################
|
||
|
|
# Output error
|
||
|
|
#############################
|
||
|
|
if ( $Rc != SUCCESS ) {
|
||
|
|
my $value = sprintf( "$_", $data );
|
||
|
|
push @result, [$name,$value];
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
#############################
|
||
|
|
# Node not found
|
||
|
|
#############################
|
||
|
|
if (!exists( $data->{$name} )) {
|
||
|
|
push @result, [$name,"Node not found"];
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
#############################
|
||
|
|
# Output value
|
||
|
|
#############################
|
||
|
|
my $value = sprintf( $_, @{$data->{$name}}[$i++] );
|
||
|
|
push @result, [$name,$value];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return( \@result );
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
##########################################################################
|
||
|
|
# Returns serial-number
|
||
|
|
##########################################################################
|
||
|
|
sub serial {
|
||
|
|
return( vpd(@_) );
|
||
|
|
}
|
||
|
|
|
||
|
|
##########################################################################
|
||
|
|
# Returns machine-type-model
|
||
|
|
##########################################################################
|
||
|
|
sub model {
|
||
|
|
return( vpd(@_) );
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
##########################################################################
|
||
|
|
# Returns all inventory information
|
||
|
|
##########################################################################
|
||
|
|
sub all {
|
||
|
|
|
||
|
|
my @result = (
|
||
|
|
@{vpd(@_)},
|
||
|
|
@{bus(@_)},
|
||
|
|
@{config(@_)}
|
||
|
|
);
|
||
|
|
return( \@result );
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
1;
|