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

FSP/BPA redundancy: add a function to getchildren

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@8854 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
yinle 2011-02-16 10:04:51 +00:00
parent 72005bb144
commit 5892e90145
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2045,6 +2045,7 @@ sub parse_access_tabentry()
=head3 getchildren
returns fsp(or bpa) of the specified cec(or frame),
if specified port, it will just return nodes within the port.
Arguments:
none
Returns:
@ -2063,11 +2064,13 @@ sub parse_access_tabentry()
sub getchildren
{
my $parent = shift;
my $port = shift;
if (($parent) && ($parent =~ /xCAT::/))
{
$parent = shift;
}
my @children = ();
my @children_prot = ();
if (!%::PARENT_CHILDREN) {
my $ppctab = xCAT::Table->new( 'ppc' );
my @ps = $ppctab->getAllNodeAttribs(['node','parent']);
@ -2092,7 +2095,22 @@ sub getchildren
}
}
}
return \@children;
unless ( $port )
{
return \@children;
} else
{
my $vpdtab = xCAT::Table->new( 'vpd' );
my $sides = $vpdtab->getNodesAttribs(\@children, ['side']);
for my $n (@children)
{
if ($sides->{$n}->{side} =~ /$port/)
{
push @children_prot, $n;
}
}
return \@children_prot;
}
}
#-------------------------------------------------------------------------------