From: Stoiko Ivanov <s.ivanov@proxmox.com>
Date: Fri, 22 Jun 2018 18:21:07 +0000 (+0200)
Subject: PVE::CLIHandler::print_api_list - use all occuring properties
X-Git-Url: https://git.proxmox.com/?p=pve-common.git;a=commitdiff_plain;h=9b8f2f8f6ed3174a2023c3b3958a2434512dbccd;hp=e05f7cdd0c5ed604d25701de3dfdc091bbf29ad1

PVE::CLIHandler::print_api_list - use all occuring properties

print_api_list falls back to the union of all properties occuring in data, if
none are provided explicitly, and the API method contains no returns property.

Signed-off-by: Stoiko Ivanov <s.ivanov@proxmox.com>
---

diff --git a/src/PVE/CLIHandler.pm b/src/PVE/CLIHandler.pm
index b04326f..569f590 100644
--- a/src/PVE/CLIHandler.pm
+++ b/src/PVE/CLIHandler.pm
@@ -510,7 +510,13 @@ sub print_api_list {
     if (!defined($props_to_print)) {
 	$props_to_print = [ sort keys %$returnprops ];
 	if (!scalar(@$props_to_print)) {
-	    $props_to_print = [ sort keys %{$data->[0]} ];
+	    my $all_props = {};
+	    foreach my $obj (@{$data}) {
+		foreach my $key (keys %{$obj}) {
+		    $all_props->{ $key } = 1;
+		}
+	    }
+	    $props_to_print = [ sort keys %{$all_props} ];
 	}
 	die "unable to detect list properties\n" if !scalar(@$props_to_print);
     }