fix bugs item 3190928

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9528 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
zhaoertao 2011-05-10 07:58:27 +00:00
parent 5b46da4788
commit ff1a250e0b

View File

@ -1539,14 +1539,20 @@ sub preprocess_request {
return;
}
foreach my $node (@missednodes) {
my ($ent) = $ppctab->getAttribs({hcp=>$node}, "hcp");
if (defined($ent)) {
push @{$hcp_hash{$node}{nodes}}, $node;
next;
}
my $ent=$ppctab->getNodeAttribs($node,['hcp']);
#if (defined($ent->{hcp})) { push @{$hcp_hash{$ent->{hcp}}{nodes}}, $node;}
#if (defined($ent->{hcp})) { push @{$hcp_hash{$ent->{hcp}}{nodes}}, $node;}
if (defined($ent->{hcp})) {
#for multiple hardware control points, the hcps should be split to nodes
my @h = split(",", $ent->{hcp});
foreach my $hcp (@h) {
#for multiple hardware control points, the hcps should be split to nodes
my @h = split(",", $ent->{hcp});
foreach my $hcp (@h) {
push @{$hcp_hash{$hcp}{nodes}}, $node;
}
}
} else {
$callback->({data=>["The node $node is neither a hcp nor an lpar"]});
$req = {};
@ -1555,7 +1561,7 @@ sub preprocess_request {
}
}
# find service nodes for the HCPs
# find service nodes for the HCPs
# build an individual request for each service node
my $service = "xcat";
my @hcps=keys(%hcp_hash);