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

#!/usr/bin/perl

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
	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);