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:
		| @@ -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 | ||||
|     ########################################### | ||||
|   | ||||
		Reference in New Issue
	
	Block a user