arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Added firmware inventory support

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1702 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2008-06-19 18:50:47 +00:00
parent db996b5130
commit 86f9a9c581
1 changed files with 89 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

91
perl-xCAT/xCAT/PPCinv.pm
View File

@ -7,6 +7,25 @@ use xCAT::PPCcli qw(SUCCESS EXPECT_ERROR RC_ERROR NR_ERROR);
use xCAT::Usage;
##########################################
# Maps HMC "lslic" attributes to text
##########################################
my @licmap = (
["ecnumber", "Release Level "],
["activated_level", "Active Level "],
["installed_level", "Installed Level"],
["accepted_level", "Accepted Level "],
["curr_ecnumber_a", "Release Level A"],
["curr_level_a", "Level A "],
["curr_ecnumber_b", "Release Level B"],
["curr_level_b", "Level B "],
["curr_ecnumber_primary", "Release Level Primary"],
["curr_level_primary", "Level Primary "],
["curr_ecnumber_secondary","Release Level Secondary"],
["curr_level_secondary", "Level Secondary"]
);
##########################################################################
# Parse the command line for options and operands
##########################################################################
@ -16,7 +35,7 @@ sub parse_args {
my $command = $request->{command};
my $args = $request->{arg};
my %opt = ();
my @rinv = qw(bus config model serial all);
my @rinv = qw(bus config model serial fw all);
#############################################
# Responds with usage statement
@ -403,6 +422,65 @@ sub vpd {
}
##########################################################################
# Returns FSP/BPA firmware information
##########################################################################
sub firmware {
my $request = shift;
my $hash = shift;
my $exp = shift;
my $hwtype = @$exp[2];
my @result;
while (my ($mtms,$h) = each(%$hash) ) {
while (my ($name,$d) = each(%$h) ) {
#####################################
# Command only supported on FSP/BPAs
#####################################
if ( @$d[4] !~ /^(fsp|bpa)$/ ) {
push @result,
[$name,"Information only available for CEC/BPA",RC_ERROR];
next;
}
my $values = xCAT::PPCcli::lslic( $exp, $d );
my $Rc = shift(@$values);
#####################################
# Return error
#####################################
if ( $Rc != SUCCESS ) {
push @result, [$name,@$values[0],$Rc];
next;
}
#####################################
# Success - format IVM results
#####################################
if ( $hwtype eq "ivm" ) {
if ( @$values[0] !~
/^system:(\w+)\s+\(t\)\s+(\w+)\s+\(p\)\s+(\w+)\s+/ ) {
push @result, [$name,@$values[0],$Rc];
next;
}
push @result, [$name,"Activated Level = $1",$Rc];
push @result, [$name,"Permanent Level = $2",$Rc];
push @result, [$name,"Temporary Level = $3",$Rc];
next;
}
#####################################
# Format HMC results
#####################################
foreach ( @licmap ) {
if ( @$values[0] =~ /@$_[0]=(\w+)/ ) {
push @result, [$name,"@$_[1] = $1",$Rc];
}
}
}
}
return( \@result );
}
##########################################################################
# Returns memory/processor information
@ -467,6 +545,13 @@ sub config {
}
##########################################################################
# Returns firmware version
##########################################################################
sub fw {
return( firmware(@_) );
}
##########################################################################
# Returns serial-number
##########################################################################
@ -490,7 +575,8 @@ sub all {
my @result = (
@{vpd(@_)},
@{bus(@_)},
@{config(@_)}
@{config(@_)},
@{firmware(@_)}
);
return( \@result );
}
@ -498,3 +584,4 @@ sub all {
1;