From 56c12c59e6e64d5f750f7014fedd05d64efbc2aa Mon Sep 17 00:00:00 2001
From: phamt <phamt@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 6 Apr 2012 02:54:50 +0000
Subject: [PATCH] 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
---
 xCAT-server/lib/xcat/plugins/zvm.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/xCAT-server/lib/xcat/plugins/zvm.pm b/xCAT-server/lib/xcat/plugins/zvm.pm
index 0f5039f18..81f3917e0 100644
--- a/xCAT-server/lib/xcat/plugins/zvm.pm
+++ b/xCAT-server/lib/xcat/plugins/zvm.pm
@@ -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