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

fix bug 3519576:Performance improvement to blade.pm

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.7@13205 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
zhaoertao 2012-06-29 08:45:26 +00:00
parent 1115edcc77
commit 206746b6c1
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
xCAT-server/lib/xcat/plugins/blade.pm
View File

@ -1348,7 +1348,7 @@ sub rscan {
return( join('',($_[0],$usage_string)));
};
if ( !GetOptions(\%opt,qw(V|Verbose w x z u))){
if ( !GetOptions(\%opt,qw(V|verbose w x z u))){
return(1,usage());
}
if ( defined($ARGV[0]) ) {
@ -4381,13 +4381,21 @@ sub get_blades_for_mpa {
return undef;
}
my @nodearray = $mptab->getAttribs({mpa=>$mpa,nodetype=>"blade"}, qw(node));
my @blades = ();
my $nodesattrs;
if (!defined(@nodearray)) {
return (\%blades_hash);
} else {
foreach (@nodearray) {
if (defined($_->{node})) {
push @blades, $_->{node};
}
}
$nodesattrs = $ppctab->getNodesAttribs(\@blades, \@attribs);
}
foreach (@nodearray) {
my $node = $_->{node};
foreach my $node (@blades) {
my $att = $nodesattrs->{$node}->[0];
my @values = ();
my ($att) = $ppctab->getNodeAttribs($node, \@attribs);
if (!defined($att)) {
next;
} elsif ($att and $att->{parent} and ($att->{parent} ne $mpa)) {