From 05a9e204d84d0ab2841003c48da858c4f46c2588 Mon Sep 17 00:00:00 2001
From: jjhua <jjhua@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 19 Apr 2012 10:32:01 +0000
Subject: [PATCH] performance improvement. collect the CEC/Frames' Children in
 preprocess_nodes() of PPC.pm, instead of getIPaddress() in Utils.pm

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@12274 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/perl/xCAT/PPC.pm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/xCAT-server/lib/perl/xCAT/PPC.pm b/xCAT-server/lib/perl/xCAT/PPC.pm
index 040121845..bc97fc778 100644
--- a/xCAT-server/lib/perl/xCAT/PPC.pm
+++ b/xCAT-server/lib/perl/xCAT/PPC.pm
@@ -818,6 +818,23 @@ sub preprocess_nodes {
             return undef;
         }
     }
+    
+    %::CEC_FRAME_CHILDREN;
+    if ( $request->{fsp_api} == 1 || $request->{command} =~ /^(mkhwconn|rmhwconn)$/) {
+         my @ps = $tabs{ppc}->getAllNodeAttribs(['node','parent','nodetype']); 
+         for my $entry ( @ps ) {
+             my $tmp_parent = $entry->{parent};
+             my $tmp_node = $entry->{node};
+             my $tmp_type = $entry->{nodetype};
+             if(defined($tmp_node) && defined($tmp_type) && ($tmp_type =~ /^(fsp|bpa)$/ && $tmp_parent) ) {
+                 #print "$tmp_node\n";
+                 $::CEC_FRAME_CHILDREN{$tmp_parent} .= "$tmp_node,";
+             }
+         }
+
+    }
+
+    # print Dumper(\%::CEC_FRAME_CHILDREN);
 
     ##########################################
     # Group nodes