mirror of
git://git.proxmox.com/git/pve-docs.git
synced 2025-01-03 01:17:49 +03:00
30 lines
448 B
Perl
Executable File
30 lines
448 B
Perl
Executable File
#!/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);
|