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

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9624 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd

Browse Source
This commit is contained in:
phamt 2011-05-17 20:57:40 +00:00
parent b2014d4e00
commit c3fc66defe
1 changed files with 29 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
xCAT-server/lib/xcat/plugins/zvm.pm
View File

@ -4163,6 +4163,16 @@ sub listTree {
$found = 1;
last;
}
# Handle second level zVM
foreach my $vm(sort keys %{$tree{$cec}{$lpar}}) {
if ($vm eq $parent) {
# Add VM branch
$tree{$cec}{$lpar}{$parent}{$node} = {};
$found = 1;
last;
}
}
}
# Exit loop if LPAR branch added
@ -4191,6 +4201,16 @@ sub listTree {
$found = 1;
last;
}
# Handle second level zVM
foreach my $vm(sort keys %{$tree{$cec}{$lpar}{$zvm}}) {
if ($vm eq $parent) {
# Add VM branch
$tree{$cec}{$lpar}{$zvm}{$parent}{$node} = $_->{'userid'};
$found = 1;
last;
}
}
}
# Exit loop if zVM branch added
@ -4221,7 +4241,15 @@ sub listTree {
# Loop through VMs
foreach my $vm(sort keys %{$tree{$cec}{$lpar}{$zvm}}) {
xCAT::zvmUtils->printLn( $callback, " |__VM: $vm ($tree{$cec}{$lpar}{$zvm}{$vm})" );
# Handle second level zVM
if (ref($tree{$cec}{$lpar}{$zvm}{$vm}) eq 'HASH') {
xCAT::zvmUtils->printLn( $callback, " |__zVM: $vm" );
foreach my $vm2(sort keys %{$tree{$cec}{$lpar}{$zvm}{$vm}}) {
xCAT::zvmUtils->printLn( $callback, " |__VM: $vm2 ($tree{$cec}{$lpar}{$zvm}{$vm}{$vm2})" );
}
} else {
xCAT::zvmUtils->printLn( $callback, " |__VM: $vm ($tree{$cec}{$lpar}{$zvm}{$vm})" );
}
}
}
}