+++ /dev/null
-#!/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);