xCAT/xcat-core
2
0
Fork 0
mirror of https://github.com/xcat2/xcat-core.git synced 2025-10-26 08:55:24 +00:00
Code Issues Releases Wiki Activity

add supporting of find node parent and find node type

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@8427 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
yinle
2010-12-16 02:33:22 +00:00
parent 8a790469cd
commit afce441be1
1 changed files with 146 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -4,7 +4,7 @@
#####################################################
#
# Utility subroutines that can be used to manage xCAT data object
# definitions.
# definitions.
#
#
#####################################################
@@ -36,7 +36,7 @@ use Socket;
Example:
Comments:
@objlist = xCAT::DBobjUtils->getObjectsOfType($type);
@objlist = xCAT::DBobjUtils->getObjectsOfType($type);
=cut
@@ -2041,4 +2041,148 @@ sub parse_access_tabentry()
}
return 0;
}
#-------------------------------------------------------------------------------
=head3 getchildren
returns fsp(or bpa) of the specified cec(or frame),
Arguments:
none
Returns:
refrence of fsp/bpa hostnames (IPs)
Globals:
%PARENT_CHILDREN
Error:
none
Example:
$c1 = getchildren($nodetocheck);
Comments:
none
=cut
#-------------------------------------------------------------------------------
sub getchildren
{
my $parent = shift;
if (($parent) && ($parent =~ /xCAT::/))
{
$parent = shift;
}
my @children = ();
if (!%::PARENT_CHILDREN) {
my $ppctab = xCAT::Table->new( 'ppc' );
my @ps = $ppctab->getAllNodeAttribs(['node','parent']);
for my $entry ( @ps ) {
my $p = $entry->{parent};
my $c = $entry->{node};
if ( $p and $c) {
my $type = $ppctab->getNodeAttribs($c, ["nodetype"]);
if ( $type and ($type->{nodetype} ne 'cec'))
{
push @{$::PARENT_CHILDREN{$p}}, $c;
}
}
}
foreach (@{$::PARENT_CHILDREN{$parent}}) {
push @children, $_;
}
} else {
if (exists($::PARENT_CHILDREN{$parent})) {
foreach (@{$::PARENT_CHILDREN{$parent}}) {
push @children, $_;
}
}
}
return \@children;
}
#-------------------------------------------------------------------------------
=head3 getnodetype
returns nodetype,
first requery ppc table, if not exist, requery nodetypetable
if the input is a array it will return a refrence,
if the input is a simple node,it will return its type value
if the value in the talbe is null, it will be undef but not ''
Arguments:
none
Returns:
type of node
Globals:
%::GLOBLE_NODE_TYPE
Error:
none
Example:
$type = getnodetype($node);
$typerefer = getnodetype(\@nodes);
Comments:
none
=cut
#-------------------------------------------------------------------------------
sub getnodetype
{
my $nodes = shift;
if (($nodes) && ($nodes =~ /xCAT::/))
{
$nodes = shift;
}
my $ppctab = xCAT::Table->new( 'ppc' );
if ( !$ppctab ) {
my $rsp;
$rsp->{data}->[0] = "Could not open the ppc table.";
xCAT::MsgUtils->message("E", $rsp, $::callback);
}
my $nodetypetab = xCAT::Table->new( 'nodetype' );
if ( !$nodetypetab )
{
my $rsp;
$rsp->{data}->[0] = "Could not open the nodetype table.";
xCAT::MsgUtils->message("E", $rsp, $::callback);
if ( !$ppctab ) {
return undef;
}
}
my @types = ();
my $typep;
my $type;
if ( $nodes =~ /^ARRAY/) {
foreach ( @$nodes ) {
if ( $ppctab ) {
$typep = $ppctab->getNodeAttribs($_, ["nodetype"]);
if ($typep and $typep->{nodetype}) {
$type = $typep->{nodetype};
push (@types, $type);
next;
}
}
if ( $nodetypetab ) {
$typep = $nodetypetab->getNodeAttribs($_, ["nodetype"]);
if ($typep and $typep->{nodetype}) {
$type = $typep->{nodetype};
push (@types, $type);
next;
}
}
push (@types, undef);
}
return \@types;
} else {
if ( $ppctab ) {
$typep = $ppctab->getNodeAttribs($nodes, ["nodetype"]);
if ( $typep and $typep->{nodetype} ) {
$type = $typep->{nodetype};
return $type;
}
}
if ( $nodetypetab ) {
$typep = $nodetypetab->getNodeAttribs($nodes, ["nodetype"]);
if ( $typep and $typep->{nodetype} ) {
$type = $typep->{nodetype};
return $type;
}
}
}
return undef;
}
1;