]>
Commit | Line | Data |
---|---|---|
696fb448 DM |
1 | #!/usr/bin/perl |
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); |