X-Git-Url: https://git.proxmox.com/?p=pve-firewall.git;a=blobdiff_plain;f=src%2Fpvefw;h=4cc2fe28195aa435b828421caf09c5d0028fdb43;hp=1eff5caaae015a816c9836b8f97cc019f6e5eb8d;hb=ea9e5116bc7efb3a5c7c065256ad7627d1d8870e;hpb=bb272dd311e39cd0d76a01d28c600363e95bc731

diff --git a/src/pvefw b/src/pvefw
index 1eff5ca..4cc2fe2 100755
--- a/src/pvefw
+++ b/src/pvefw
@@ -1,6 +1,8 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl -T
 
 use strict;
+use warnings;
+
 use lib qw(.);
 use PVE::Firewall;
 
@@ -12,9 +14,12 @@ use PVE::RPCEnvironment;
 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');
@@ -232,6 +237,18 @@ my $cmddef = {
 	}
     }],
     stop => [ __PACKAGE__, 'stop', []],
+
+    # This is for debugging 
+    listgroups => [ 'PVE::API2::Firewall::Groups', 'list', [], 
+		    { node => $nodename }, sub {
+			my $res = shift;
+			print Dumper($res);
+		    }],
+    grouprules => [ 'PVE::API2::Firewall::Groups', 'get_rules', ['group'], 
+		    { node => $nodename }, sub {
+			my $res = shift;
+			print Dumper($res);
+		    }],
 };
 
 my $cmd = shift;