Added option to list all disks in disk pool.
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@12143 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
2061e7e0ee
commit
56c12c59e6
@ -1771,7 +1771,14 @@ sub listVM {
|
||||
my $pool = $args->[1];
|
||||
my $space = $args->[2];
|
||||
|
||||
$out = `ssh $hcp "$::DIR/getdiskpool $userId $pool $space"`;
|
||||
if ($space eq "all") {
|
||||
$out = `ssh $hcp "$::DIR/getdiskpool $userId $pool free"`;
|
||||
|
||||
# Delete 1st line which is header
|
||||
$out .= `ssh $hcp "$::DIR/getdiskpool $userId $pool used" | sed 1d`;
|
||||
} else {
|
||||
$out = `ssh $hcp "$::DIR/getdiskpool $userId $pool $space"`;
|
||||
}
|
||||
}
|
||||
|
||||
# Get network names
|
||||
|
Loading…
x
Reference in New Issue
Block a user