Fix bug 3527194: lsslp -s HMC gives no HMC info
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@12757 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
92dd4b49af
commit
77728d700e
@ -499,6 +499,11 @@ sub invoke_dodiscover {
|
||||
} else {
|
||||
$services = [WILDCARD_SERVICE,HARDWARE_SERVICE,SOFTWARE_SERVICE];
|
||||
}
|
||||
#efix for hmc bug
|
||||
if ($services =~ /hardware-management-console/) {
|
||||
$services = [WILDCARD_SERVICE,HARDWARE_SERVICE,SOFTWARE_SERVICE];
|
||||
}
|
||||
|
||||
if ($globalopt{maxtries}) {
|
||||
$maxt = $globalopt{maxtries};
|
||||
} else {
|
||||
@ -598,6 +603,17 @@ sub format_output {
|
||||
###########################################
|
||||
my $outhash = parse_responses( $request, \$length );
|
||||
|
||||
#hmc bug efix
|
||||
my $newouthash;
|
||||
if ($globalopt{service} =~ /hardware-management-console/) {
|
||||
for my $en ( keys %$outhash ) {
|
||||
if (${$outhash->{$en}}{type} eq 'hmc') {
|
||||
$newouthash->{$en} = $outhash->{$en};
|
||||
}
|
||||
}
|
||||
$outhash = $newouthash;
|
||||
}
|
||||
|
||||
###########################################
|
||||
# filter the result and keep the specified nodes
|
||||
###########################################
|
||||
|
Loading…
Reference in New Issue
Block a user