use PVE::APIClient::Tools qw(extract_param);
use PVE::APIClient::Config;
+use PVE::APIClient::CLIFormatter;
use PVE::APIClient::CLIHandler;
use base qw(PVE::APIClient::CLIHandler);
+my $list_return_props = { %{PVE::APIClient::DefaultsConfig->updateSchema(1)->{properties}} };
+delete $list_return_props->{delete};
+
__PACKAGE__->register_method ({
name => 'list',
path => 'list',
description => "Dump default configuration.",
parameters => {
additionalProperties => 0,
+ properties => {},
+ },
+ returns => {
+ type => 'object',
+ properties => $list_return_props,
},
- returns => { type => 'null' },
code => sub {
my $config = PVE::APIClient::Config->load();
my $defaults = PVE::APIClient::Config->get_defaults($config);
+ $defaults->{digest} = $config->{digest};
- print Dumper($config);
-
- return undef;
+ return $defaults;
}});
__PACKAGE__->register_method ({
my $code = sub {
my $config = PVE::APIClient::Config->load();
+
+ PVE::APIClient::Tools::assert_if_modified($config->{digest}, $digest);
+
my $defaults = PVE::APIClient::Config->get_defaults($config);
my $plugin = PVE::APIClient::Config->lookup('defaults');
our $cmddef = {
set => [ __PACKAGE__, 'set',],
- list => [__PACKAGE__, 'list'],
+ list => [__PACKAGE__, 'list', undef, undef,
+ sub {
+ my ($data, $schema, $options) = @_;
+
+ PVE::APIClient::CLIFormatter::print_api_result($data, $schema, undef, $options);
+ }
+ ],
};
1;