gen-pve-firewall-rules-opts-adoc.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use PVE::RESTHandler;
   7 use PVE::Firewall;
   8
   9 my $prop = {};
  10 PVE::Firewall::add_rule_properties($prop);
  11
  12 my $skip = {
  13     action => 1,
  14     enable => 1,
  15     type => 1,
  16     digest => 1,
  17     macro => 1,
  18     pos => 1,
  19     comment => 1,
  20 };
  21
  22 my $filterFn = sub {
  23     my ($k, $phash) = @_;
  24
  25     return $skip->{$k} || 0;
  26 };
  27
  28 print PVE::RESTHandler::dump_properties($prop, 'asciidoc', 'arg', $filterFn);