use PVE::JSONSchema qw(get_standard_option);
use PVE::CLIHandler;
+use PVE::API2::Firewall::Groups;
use base qw(PVE::CLIHandler);
+use Data::Dumper;
+
$ENV{'PATH'} = '/sbin:/bin:/usr/sbin:/usr/bin';
initlog ('pvefw');
}
}],
stop => [ __PACKAGE__, 'stop', []],
+
+ # This is for debugging
+ listgroups => [ 'PVE::API2::Firewall::Groups', 'list', [],
+ { node => $nodename }, sub {
+ my $res = shift;
+ print Dumper($res);
+ }],
};
my $cmd = shift;