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

-Speed up large noderange expansion

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4685 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2009-11-28 13:06:40 +00:00
parent 600fae75ef
commit 3ef7062195
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
perl-xCAT/xCAT/NodeRange.pm
View File

@ -34,6 +34,7 @@ my $grptab;
my @allnodeset;
my %allnodehash;
my @grplist;
my $didgrouplist;
my %allgrphash;
my $retaincache=0;
my $recurselevel=0;
@ -182,7 +183,8 @@ sub expandatom { #TODO: implement table selection as an atom (nodetype.os==rhels
unless ($grptab) {
$grptab = xCAT::Table->new('nodegroup');
}
if ($grptab and not scalar @grplist) {
if ($grptab and not $didgrouplist and not scalar @grplist) {
$didgrouplist = 1;
@grplist = @{$grptab->getAllEntries()};
}
my $isdynamicgrp = 0;
@ -371,7 +373,7 @@ sub expandatom { #TODO: implement table selection as an atom (nodetype.os==rhels
}
foreach ($leftarr[$idx]..$rightarr[$idx]) {
my @addnodes=expandatom($prefix.$_.$luffix,$verify);
@nodes=(@nodes,@addnodes);
push @nodes,@addnodes;
}
return (@nodes); #the return has been built, return, exiting loop and all
}