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

Added lslic() function to list firmware version

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1622 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2008-06-11 18:20:48 +00:00
parent d1e9632723
commit c5b5f0c391
1 changed files with 36 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
perl-xCAT/xCAT/PPCcli.pm
View File

@ -270,7 +270,7 @@ sub chsyscfg {
# Command only support on LPARs
#####################################
if ( @$d[4] ne "lpar" ) {
return( [RC_ERROR,"Command not supported"] );
return( [RC_ERROR,"Command not supported on '@$d[4]'"] );
}
#####################################
# Format command based on CEC name
@ -298,7 +298,7 @@ sub mksyscfg {
# Command only support on LPARs
#####################################
if ( @$d[4] ne "lpar" ) {
return( [RC_ERROR,"Command not supported"] );
return( [RC_ERROR,"Command not supported on '@$d[4]'"] );
}
#####################################
# Format command based on CEC name
@ -325,7 +325,7 @@ sub rmsyscfg {
# Command only supported on LPARs
#####################################
if ( @$d[4] ne "lpar" ) {
return( [RC_ERROR,"Command not supported"] );
return( [RC_ERROR,"Command not supported on '@$d[4]'"] );
}
#####################################
# Format command based on CEC name
@ -445,7 +445,7 @@ sub mkvterm {
##########################################
my $cmd = sprintf( $mkvt{$hwtype}, $lparid, $mtms );
if ( $type ne "lpar" ) {
return( [RC_ERROR,"Command not supported"] );
return( [RC_ERROR,"Command not supported on '$type'"] );
}
##########################################
# For IVM, console sessions must explicitly
@ -627,7 +627,7 @@ sub lpar_netboot {
# Command only supported on LPARs
#####################################
if ( @$d[4] ne "lpar" ) {
return( [RC_ERROR,"Command not supported"] );
return( [RC_ERROR,"Command not supported on '@$d[4]'"] );
}
#####################################
# Network specified (-D ping test)
@ -809,6 +809,36 @@ sub mkauthkeys {
}
##########################################################################
# List Licensed Internal Code levels on HMC for FSP/BPAs
##########################################################################
sub lslic {
my $exp = shift;
my $d = shift;
my $cmd = "lslic ";
#####################################
# Command only support on CEC/BPAs
#####################################
if ( @$d[4] !~ /^(fsp|bpa)$/ ) {
return( [RC_ERROR,"Command not supported on '@$d[4]'"] );
}
#####################################
# Format command based on name
#####################################
$cmd.= (@$d[4] =~ /^fsp$/) ? "-t sys -m " : "-t power -e ";
$cmd.= @$d[2];
#####################################
# Send command
#####################################
my $result = send_cmd( $exp, $cmd );
return( $result );
}
##########################################################################
# Sends command and waits for response
##########################################################################
@ -956,3 +986,4 @@ sub power_cmd {