gen-vzdump.conf.5-opts.pl

   1 #!/usr/bin/perl
   2
   3 use lib '.';
   4 use strict;
   5 use warnings;
   6 use PVE::RESTHandler;
   7 use PVE::VZDump;
   8
   9 my $prop = PVE::VZDump::json_config_properties();
  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);