start API

[pve-firewall.git] / src / pvefw

diff --git a/src/pvefw b/src/pvefw
index d0f1e6023fd8042e75daf2e3456d5c63f9df4b54..1671f557ef21b9aa7d79ee1a95e47da6aaf9375d 100755 (executable)
--- a/src/pvefw
+++ b/src/pvefw
@@ -14,9 +14,12 @@ use PVE::RPCEnvironment;
 use PVE::JSONSchema qw(get_standard_option);
 
 use PVE::CLIHandler;
 use PVE::JSONSchema qw(get_standard_option);
 
 use PVE::CLIHandler;

+use PVE::API2::Firewall::Groups;

 
 use base qw(PVE::CLIHandler);
 
 
 use base qw(PVE::CLIHandler);
 

+use Data::Dumper;
+

 $ENV{'PATH'} = '/sbin:/bin:/usr/sbin:/usr/bin';
 
 initlog ('pvefw');
 $ENV{'PATH'} = '/sbin:/bin:/usr/sbin:/usr/bin';
 
 initlog ('pvefw');


@@ -234,6 +237,13 @@ my $cmddef = {
        }
     }],
     stop => [ __PACKAGE__, 'stop', []],
        }
     }],
     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;
 };
 
 my $cmd = shift;