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

It's 5:00 and the last checkin broke, so revert

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9398 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2011-04-25 21:06:16 +00:00
parent 6d025582d2
commit 834e146918
1 changed files with 1 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -39,7 +39,6 @@ my %allgrphash;
my $retaincache=0;
my $recurselevel=0;
my @cachedcolumns;
#TODO: With a very large nodelist (i.e. 65k or so), deriving the members
# of a group is a little sluggish. We may want to put in a mechanism to
# maintain a two-way hash anytime nodelist or nodegroup changes, allowing
@ -130,22 +129,6 @@ sub nodesbycriteria {
foreach $tab (keys %tables) {
my $tabh = xCAT::Table->new($tab,-create=>0);
unless ($tabh) { next; }
if ($tab eq "nodelist") { #fun caching interaction
my $neednewcache=0;
foreach (@cols) {
unless (grep /^$_\z/,@cachedcolumns) {
$neednewcache=1;
push @cachedcolumns,$_;
}
}
if ($neednewcache) {
if ($nodelist) {
$nodelist->_clear_cache();
$nodelist->_build_cache(\@cachedcolumns);
}
}
}
}
my @cols;
foreach (@{$tables{$tab}}) {
push @cols, $_->[0];
@ -535,8 +518,7 @@ sub noderange {
unless ($nodelist) {
$nodelist =xCAT::Table->new('nodelist',-create =>1);
$nodelist->_set_use_cache(0); #TODO: a more proper external solution
@cachedcolumns = ('node','groups');
$nodelist->_build_cache(\@cachedcolumns);
$nodelist->_build_cache(['node','groups']);
$nodelist->_set_use_cache(1); #TODO: a more proper external solution
}
my %nodes = ();