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

fix bug 3386076: lsvm fail to get all the profiles of the LPAR

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@10222 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
yinle
2011-08-04 08:07:55 +00:00
parent 03ed1890c9
commit a1a51b5b5f
1 changed files with 18 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1217,7 +1217,24 @@ sub list {
$count++;
}
} else {
$pprofile .= "@$prof[0]\n\n";
#$pprofile .= "@$prof[0]\n\n";
my $lparprof = xCAT::PPCcli::lssyscfg(
$exp,
"lpar2",
$mtms,
"lpar_ids=$id" );
my $Rc = shift(@$lparprof);
if ( $Rc != SUCCESS ) {
$pprofile .= "@$lparprof[0]\n\n";
} else {
@$lparprof[0] =~ /curr_profile=(\w+)/;
my $pname = $1;
foreach my $pr (@$prof) {
if ($pr =~ /name=$pname/) {
$pprofile .= "$pr\n\n";
}
}
}
}
}
$values->{$lpar} = [$lpar, $pprofile, SUCCESS];