[pve-docs.git] / gen-pve-firewall-rules-opts.pl

#!/usr/bin/perl

use lib '.';
use strict;
use warnings;

use PVE::RESTHandler;
use PVE::Firewall;

my $prop = {};
PVE::Firewall::add_rule_properties($prop);

my $skip = {
    action => 1,
    enable => 1,
    type => 1,
    digest => 1,
    macro => 1,
    pos => 1,
    comment => 1,
};

my $filterFn = sub {
    my ($k, $phash) = @_;

    return $skip->{$k} || 0;
};

print PVE::RESTHandler::dump_properties($prop, 'asciidoc', 'arg', $filterFn);
Commit	Line	Data
696fb448 DM	1	#!/usr/bin/perl
696fb448 DM	2
9344ee0d	3	use lib '.';
696fb448 DM	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);