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

"getnodetype performance improvement": change getnodetype related code.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@11544 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
yinle 2012-02-10 09:28:41 +00:00
parent c27b87456a
commit 2e0c3640ac
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
perl-xCAT/xCAT/FSPconn.pm
View File

@ -101,7 +101,7 @@ sub mkhwconn_parse_args
{
#my $nodetype_hash = $nodetypetab->getNodeAttribs( $opt{p},[qw(nodetype)]);
#my $nodetype = $nodetype_hash->{nodetype};
my $nodetype = xCAT::DBobjUtils->getnodetype($opt{p});
my $nodetype = xCAT::DBobjUtils->getnodetype($opt{p}, "ppc");
if( !defined($nodetype) ) {
return(usage("Something wrong with the specified HMC (-p Option). The HMC type doesn't exist."));
}
@ -114,7 +114,8 @@ sub mkhwconn_parse_args
if ( $ppctab)
{
my $hcp_nodetype = undef;
for my $node ( @$nodes)
my $typehash = xCAT::DBobjUtils->getnodetype(\@$nodes, "ppc");
for my $node (@$nodes)
{
my $node_parent = undef;
my $nodetype = undef;
@ -128,7 +129,7 @@ sub mkhwconn_parse_args
{
#my $node_hcp_nodetype_hash = $nodetypetab->getNodeAttribs($node_hcp_hash->{hcp},[qw(nodetype)]);
#$node_hcp_nodetype = $node_hcp_nodetype_hash->{nodetype};
$node_hcp_nodetype = xCAT::DBobjUtils->getnodetype($node_hcp_hash->{hcp});
$node_hcp_nodetype = xCAT::DBobjUtils->getnodetype($node_hcp_hash->{hcp}, "ppc");
}
if ( defined $hcp_nodetype )
{
@ -148,7 +149,7 @@ sub mkhwconn_parse_args
}
#$nodetype = $nodetype_hash->{nodetype};
$nodetype = xCAT::DBobjUtils->getnodetype($node);
$nodetype = $$typehash{$node};
$node_parent = $node_parent_hash->{parent};
if ( !$nodetype )
{
@ -351,6 +352,7 @@ sub lshwconn_parse_args
}
my $nodetype;
my $typehash = xCAT::DBobjUtils->getnodetype(\@{$request->{node}}, "ppc");
for my $node ( @{$request->{node}})
{
#my $ent = $nodetypetab->getNodeAttribs( $node, [qw(nodetype)]);
@ -359,7 +361,7 @@ sub lshwconn_parse_args
#{
# return( ["Failed to get node type for node $node.\n"]);
#}
my $ttype = xCAT::DBobjUtils->getnodetype($node);
my $ttype = $$typehash{$node};
if ( ! $ttype)
{
return( ["Failed to get nodehm.mgt value for node $node.\n"]);
@ -458,6 +460,7 @@ sub rmhwconn_parse_args
my @bpa_ctrled_nodes = ();
my @no_type_nodes = ();
my @frame_members = ();
my $nodetype_hash = xCAT::DBobjUtils->getnodetype(\@$nodes, "ppc");
for my $node ( @$nodes)
{
my $nodehm = $nodehmtab->getNodeAttribs( $node, [qw(mgt)]);
@ -468,10 +471,8 @@ sub rmhwconn_parse_args
my $node_parent = undef;
my $nodetype = undef;
#my $nodetype_hash = $nodetypetab->getNodeAttribs( $node,[qw(nodetype)]);
my $node_parent_hash = $ppctab->getNodeAttribs( $node,[qw(parent)]);
#$nodetype = $nodetype_hash->{nodetype};
$nodetype = xCAT::DBobjUtils->getnodetype($node);
my $node_parent_hash = $ppctab->getNodeAttribs($node,[qw(parent)]);
$nodetype = $$nodetype_hash{$node};
$node_parent = $node_parent_hash->{parent};
if ( !$nodetype)
{