]>
Commit | Line | Data |
---|---|---|
d083d3d3 DM |
1 | #!/usr/bin/perl |
2 | ||
3 | use lib '.'; | |
4 | use strict; | |
5 | use warnings; | |
6 | use PVE::RESTHandler; | |
42f2f50c | 7 | use PVE::VZDump::Common; |
d083d3d3 | 8 | |
42f2f50c | 9 | my $prop = PVE::VZDump::Common::json_config_properties(); |
d083d3d3 DM |
10 | my $skip = { |
11 | all => 1, | |
12 | exclude => 1, | |
13 | vmid => 1, | |
14 | node => 1, | |
15 | quiet => 1, | |
16 | size => 1, | |
17 | stop => 1, | |
18 | }; | |
19 | ||
20 | my $filterFn = sub { | |
21 | my ($k, $phash) = @_; | |
22 | ||
23 | return $skip->{$k} || 0; | |
24 | }; | |
25 | ||
26 | print PVE::RESTHandler::dump_properties($prop, 'asciidoc', 'config', $filterFn); |