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

lstree implementation.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@11302 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sjing 2011-12-27 03:41:21 +00:00
parent abf4eaa0e1
commit 77107e1575
1 changed files with 58 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4909,6 +4909,64 @@ sub dompa {
#my $msgtoparent=freeze(\@outhashes); # = XMLout(\%output,RootName => 'xcatresponse');
#print $out $msgtoparent; #$node.": $_\n";
}
##########################################################################
# generate hardware tree, called from lstree.
##########################################################################
sub genhwtree
{
my $nodelist = shift; # array ref
my $callback = shift;
my %hwtree;
# get mm and bladeid
my $mptab = xCAT::Table->new('mp');
unless ($mptab)
{
my $rsp = {};
$rsp->{data}->[0] = "Can not open mp table.\n";
xCAT::MsgUtils->message("E", $rsp, $callback, 1);
}
my @entries = $mptab->getAllNodeAttribs(['node','mpa','id']);
foreach my $node (@$nodelist)
{
# read mp.mpa, mp.id.
my $mpent = $mptab->getNodeAttribs($node, ['mpa','id']);
if ($mpent)
{
if ($mpent->{mpa} eq $node)
{
# it's mm, need to list all blades managed by this mm
foreach my $ent (@entries)
{
# need to exclude mm if needed.
if ($ent->{mpa} eq $ent->{node})
{
next;
}
elsif ($ent->{mpa} =~ /$node/)
{
$hwtree{$node}{$ent->{id}} = $ent->{node};
}
}
}
else
{
# it's blade
$hwtree{$mpent->{mpa}}{$mpent->{id}} = $node;
}
}
}
return \%hwtree;
}
1;