fixes for changes in pve-common

diff --git a/PVE/APIClient/Commands/config.pm b/PVE/APIClient/Commands/config.pm
index b4316d80550ecce889504b0b2ee5bf2a26f11c38..89b4728de6c918ecb566a94af0dfb4815decb692 100644 (file)
--- a/PVE/APIClient/Commands/config.pm
+++ b/PVE/APIClient/Commands/config.pm
@@ -10,6 +10,7 @@ use PVE::APIClient::Tools qw(extract_param);
 use PVE::APIClient::Config;
 
 use PVE::APIClient::CLIFormatter;
+use PVE::APIClient::RESTHandler;
 use PVE::APIClient::CLIHandler;
 
 use base qw(PVE::APIClient::CLIHandler);
@@ -96,8 +97,10 @@ our $cmddef = {
             sub {
                 my ($data, $schema, $options) = @_;
 
+                PVE::APIClient::CLIFormatter::query_terminal_options($options);
                 PVE::APIClient::CLIFormatter::print_api_result($data, $schema, undef, $options);
-            }
+            },
+            $PVE::APIClient::RESTHandler::standard_output_options,
        ],
 };
 

diff --git a/PVE/APIClient/Commands/list.pm b/PVE/APIClient/Commands/list.pm
index 1fb90bf1a5924cd207f8383bdd80818e81740bd1..df97d0dc07f341106d20b1916c4aea8b834c5d05 100644 (file)
--- a/PVE/APIClient/Commands/list.pm
+++ b/PVE/APIClient/Commands/list.pm
@@ -25,7 +25,7 @@ __PACKAGE__->register_method ({
     name => 'list',
     path => 'list',
     method => 'GET',
-    description => "List containers.",
+    description => "List VMs and Containers.",
     parameters => {
        additionalProperties => 0,
        properties => {
@@ -49,9 +49,12 @@ __PACKAGE__->register_method ({
     }});
 
 
-our $cmddef = [ __PACKAGE__, 'list', ['remote'], {}, sub {
-    my ($data, $schema, $options) = @_;
-    PVE::APIClient::Helpers::print_ordered_result($list_returns_properties, $data, $schema, $options);
-}];
+our $cmddef = [ __PACKAGE__, 'list', ['remote'], {},
+               sub {
+                   my ($data, $schema, $options) = @_;
+                   PVE::APIClient::Helpers::print_ordered_result($list_returns_properties, $data, $schema, $options);
+               },
+               $PVE::APIClient::RESTHandler::standard_output_options,
+    ];
 
 1;

diff --git a/PVE/APIClient/Commands/remote.pm b/PVE/APIClient/Commands/remote.pm
index bd13e2b103f42dcfe530a06870a8710565eb213f..5ca864abe088d6a94bad420ab06fb93430400568 100644 (file)
--- a/PVE/APIClient/Commands/remote.pm
+++ b/PVE/APIClient/Commands/remote.pm
@@ -206,10 +206,13 @@ our $cmddef = {
     add => [ __PACKAGE__, 'remote_add', ['name', 'host', 'username']],
     set => [ __PACKAGE__, 'remote_set', ['name']],
     delete => [ __PACKAGE__, 'remote_delete', ['name']],
-    list => [__PACKAGE__, 'remote_list', undef, {}, sub {
-       my ($data, $schema, $options) = @_;
-       PVE::APIClient::Helpers::print_ordered_result($remote_list_returns_properties, $data, $schema, $options);
-    }],
+    list => [__PACKAGE__, 'remote_list', undef, {},
+            sub {
+                my ($data, $schema, $options) = @_;
+                PVE::APIClient::Helpers::print_ordered_result($remote_list_returns_properties, $data, $schema, $options);
+            },
+            $PVE::APIClient::RESTHandler::standard_output_options,
+       ],
 };
 
 1;

diff --git a/PVE/APIClient/Helpers.pm b/PVE/APIClient/Helpers.pm
index 7e4447dd8ab6c9b3a070ec4cedf810dd7bb97e21..3429f4db21e6f736eab4515555fa91d4a6fe11b7 100644 (file)
--- a/PVE/APIClient/Helpers.pm
+++ b/PVE/APIClient/Helpers.pm
@@ -392,6 +392,7 @@ sub print_ordered_result {
 
     my $param_order = extract_even_elements($property_list);
 
+    PVE::APIClient::CLIFormatter::query_terminal_options($options);
     PVE::APIClient::CLIFormatter::print_api_result($data, $result_schema, $param_order, $options);
 }
 

diff --git a/pveclient b/pveclient
index c6c48c8bc0722fe5c3354b5c8eb20aa20a6c94b9..cbcc113778ed75611be6baf7248df2cbaa257575 100755 (executable)
--- a/pveclient
+++ b/pveclient
@@ -8,6 +8,7 @@ use Cwd 'abs_path';
 use Data::Dumper;
 
 use PVE::APIClient::JSONSchema qw(register_standard_option get_standard_option);
+use PVE::APIClient::RESTHandler;
 use PVE::APIClient::CLIFormatter;
 use PVE::APIClient::CLIHandler;
 use PVE::APIClient::PTY;
@@ -24,11 +25,14 @@ use PVE::APIClient::Commands::GuestStatus;
 use JSON;
 
 sub call_api_method {
-    my ($method, $param, $options) = @_;
+    my ($method, $param) = @_;
 
     my $path = PVE::APIClient::Tools::extract_param($param, 'api_path');
     die "missing API path\n" if !defined($path);
 
+    my $stdopts = PVE::APIClient::RESTHandler::extract_standard_output_properties($param);
+    PVE::APIClient::CLIFormatter::query_terminal_options($stdopts);
+
     my $remote = PVE::APIClient::Tools::extract_param($param, 'remote');
     die "missing remote\n" if !defined($remote);
 
@@ -43,7 +47,9 @@ sub call_api_method {
     die "undefined result" if !defined($res);
     die "undefined result data" if !exists($res->{data});
 
-    return $res->{data};
+    my $data = $res->{data};
+
+    PVE::APIClient::CLIFormatter::print_api_result($data, $info->{returns}, undef, $stdopts);
 }
 
 use base qw(PVE::APIClient::CLIHandler);
@@ -78,7 +84,6 @@ if ($cmd && $cmd eq 'packagedepends') {
 }
 
 my $path_properties = {};
-my $path_returns = { type => 'null' };
 
 my $api_path_property = {
     description => "API path.",
@@ -97,19 +102,11 @@ if (my $info = PVE::APIClient::Helpers::extract_path_info($uri_param)) {
        next if defined($uri_param->{$key});
        $path_properties->{$key} = $info->{parameters}->{properties}->{$key};
     }
-    $path_returns = $info->{returns};
 }
 
 $path_properties->{remote} = get_standard_option('pveclient-remote-name');
 $path_properties->{api_path} = $api_path_property;
 
-my $format_result = sub {
-    my ($data, $schema, $options) = @_;
-
-    # NOTE; we need to use $path_returns instead of $schema
-    PVE::APIClient::CLIFormatter::print_api_result($data, $path_returns, undef, $options);
-};
-
 __PACKAGE__->register_method ({
     name => 'pveclient_get',
     path => 'pveclient_get',
@@ -117,13 +114,15 @@ __PACKAGE__->register_method ({
     description => "Call API GET on <api_path>.",
     parameters => {
        additionalProperties => 0,
-       properties => $path_properties,
+       properties => PVE::APIClient::RESTHandler::add_standard_output_properties($path_properties),
     },
-    returns => $path_returns,
+    returns => { type => 'null' },
     code => sub {
-       my ($param, $options) = @_;
+       my ($param) = @_;
+
+       call_api_method('GET', $param);
 
-       return call_api_method('GET', $param, $options);
+       return undef;
     }});
 
 __PACKAGE__->register_method ({
@@ -133,13 +132,15 @@ __PACKAGE__->register_method ({
     description => "Call API PUT on <api_path>.",
     parameters => {
        additionalProperties => 0,
-       properties => $path_properties,
+       properties => PVE::APIClient::RESTHandler::add_standard_output_properties($path_properties),
     },
-    returns => $path_returns,
+    returns => { type => 'null' },
     code => sub {
-       my ($param, $options) = @_;
+       my ($param) = @_;
 
-       return call_api_method('PUT', $param, $options);
+       call_api_method('PUT', $param);
+
+       return undef;
     }});
 
 __PACKAGE__->register_method ({
@@ -149,13 +150,15 @@ __PACKAGE__->register_method ({
     description => "Call API POST on <api_path>.",
     parameters => {
        additionalProperties => 0,
-       properties => $path_properties,
+       properties => PVE::APIClient::RESTHandler::add_standard_output_properties($path_properties),
     },
-    returns => $path_returns,
+    returns => { type => 'null' },
     code => sub {
-       my ($param, $options) = @_;
+       my ($param) = @_;
+
+       call_api_method('PUSH', $param);
 
-       return call_api_method('PUSH', $param, $options);
+       return undef;
     }});
 
 __PACKAGE__->register_method ({
@@ -165,13 +168,15 @@ __PACKAGE__->register_method ({
     description => "Call API DELETE on <api_path>.",
     parameters => {
        additionalProperties => 0,
-       properties => $path_properties,
+       properties => PVE::APIClient::RESTHandler::add_standard_output_properties($path_properties),
     },
-    returns => $path_returns,
+    returns => { type => 'null' },
     code => sub {
-       my ($param, $options) = @_;
+       my ($param) = @_;
 
-       return call_api_method('DELETE', $param, $options);
+       call_api_method('DELETE', $param);
+
+       return undef;
     }});
 
 __PACKAGE__->register_method ({
@@ -257,10 +262,10 @@ our $cmddef = {
 
     api => {
        usage => [ __PACKAGE__, 'pveclient_usage', ['api_path']],
-       get => [ __PACKAGE__, 'pveclient_get', ['remote', 'api_path'], {}, $format_result ],
-       set => [ __PACKAGE__, 'pveclient_set', ['remote', 'api_path'], {}, $format_result ],
-       create => [ __PACKAGE__, 'pveclient_create', ['remote', 'api_path'], {}, $format_result ],
-       delete => [ __PACKAGE__, 'pveclient_delete', ['remote', 'api_path'], {}, $format_result ],
+       get => [ __PACKAGE__, 'pveclient_get', ['remote', 'api_path']],
+       set => [ __PACKAGE__, 'pveclient_set', ['remote', 'api_path']],
+       create => [ __PACKAGE__, 'pveclient_create', ['remote', 'api_path']],
+       delete => [ __PACKAGE__, 'pveclient_delete', ['remote', 'api_path']],
     },
 };