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@2459 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd

Browse Source
This commit is contained in:
wanghuaz 2008-11-04 01:45:46 +00:00
parent 945565277e
commit 33882e7aa9
2 changed files with 21 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -284,7 +284,7 @@ sub lsvm_parse_args {
$Getopt::Long::ignorecase = 0;
Getopt::Long::Configure( "bundling" );
if ( !GetOptions( \%opt, qw(V|verbose) )) {
if ( !GetOptions( \%opt, qw(V|verbose a|all) )) {
return( usage() );
}
####################################
@ -772,6 +772,7 @@ sub list {
my $request = shift;
my $hash = shift;
my $exp = shift;
my $args = $request->{opt};
my @values = ();
my @lpars = ();
my $result;
@ -846,10 +847,20 @@ sub list {
next;
}
#################################
# List LPAR profile
# List the default LPAR profile,
# or all the profiles if option
# -a|--all is assigned
#################################
$pprofile .= "@$prof[0]\n\n";
}
if (exists( $args->{a} )) {
my $count = 0;
foreach (@$prof) {
$pprofile .= "@$prof[$count]\n\n";
$count++;
}
} else {
$pprofile .= "@$prof[0]\n\n";
}
}
push @values, [$lpar, $pprofile, SUCCESS];
}
}

8
perl-xCAT/xCAT/Usage.pm
View File

@ -102,8 +102,12 @@ my %usage = (
mkvm srccec -c destcec [-V|--verbose]
mkvm [-h|--help|-v|--version]",
"lsvm" =>
"Usage: lsvm <noderange> [-V|--verbose]
lsvm [-h|--help|-v|--version]",
"Usage:
Common:
lsvm <noderange> [-V|--verbose]
lsvm [-h|--help|-v|--version]
PPC specific:
lsvm <noderange> [-a|--all]",
"chvm" =>
"Usage: chvm <noderange> [-p profile][-V|--verbose]
chvm [-h|--help|-v|--version]",