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

remove the lsslp defined pbmc node from the found nodes

Browse Source
This commit is contained in:
mellor 2014-09-18 20:01:37 -07:00
parent ec400ad4b4
commit 61517af5ce
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
xCAT-server/lib/perl/xCAT/PPC.pm Executable file → Normal file
View File

@ -2155,11 +2155,28 @@ sub findme {
push @attr_array, "mtm==$request->{mtm}->[0]";
push @attr_array, "serial==$request->{serial}->[0]";
my @nodes = $vpdtab->getAllAttribsWhere(\@attr_array, 'node');
my @tmp_nodes = $vpdtab->getAllAttribsWhere(\@attr_array, 'node');
my @nodes = ();
my %nodes_hash = ();
foreach (@tmp_nodes) {
$nodes_hash{$_->{node}} = '1';
}
@nodes = keys (%nodes_hash);
# remove the pbmc node defined by lsslp from the node groups
my $ppctab = xCAT::Table->new('ppc');
if ($ppctab) {
my $ppchash = $ppctab->getNodesAttribs(\@nodes, ['node', 'nodetype']);
foreach (@nodes) {
if (defined($ppchash->{$_}->[0]) && defined($ppchash->{$_}->[0]->{'nodetype'}) && $ppchash->{$_}->[0]->{'nodetype'} eq 'pbmc') {
delete $nodes_hash{$_};
}
}
@nodes = keys (%nodes_hash);
}
foreach (@nodes) {
my $req = {%$request};
$req->{command} = ['discovered'];
$req->{noderange} = [$_->{node}];
$req->{noderange} = [$_];
$req->{discoverymethod} = ['mtms'];
$subreq->($req);
%{$req} = ();