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:
phamt 2012-04-06 02:54:50 +00:00
parent 2061e7e0ee
commit 56c12c59e6

View File

@ -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