mirror of
git://git.proxmox.com/git/pve-docs.git
synced 2025-01-03 01:17:49 +03:00
27 lines
449 B
Perl
Executable File
27 lines
449 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use lib '.';
|
|
use strict;
|
|
use warnings;
|
|
use PVE::RESTHandler;
|
|
use PVE::VZDump::Common;
|
|
|
|
my $prop = PVE::VZDump::Common::json_config_properties();
|
|
my $skip = {
|
|
all => 1,
|
|
exclude => 1,
|
|
vmid => 1,
|
|
node => 1,
|
|
quiet => 1,
|
|
size => 1,
|
|
stop => 1,
|
|
};
|
|
|
|
my $filterFn = sub {
|
|
my ($k, $phash) = @_;
|
|
|
|
return $skip->{$k} || 0;
|
|
};
|
|
|
|
print PVE::RESTHandler::dump_properties($prop, 'asciidoc', 'config', $filterFn);
|