gen-pve-firewall-rules-opts.pl

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