bump version to 4.1-3
[pve-firewall.git] / src / pve-firewall
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5 use PVE::SafeSyslog;
6 use PVE::Service::pve_firewall;
7
8 $SIG{'__WARN__'} = sub {
9     my $err = $@;
10     my $t = $_[0];
11     chomp $t;
12     print STDERR "$t\n";
13     syslog('warning', "%s", $t);
14     $@ = $err;
15 };
16
17 my $prepare = sub {
18     my $rpcenv = PVE::RPCEnvironment->init('cli');
19
20     $rpcenv->init_request();
21     $rpcenv->set_language($ENV{LANG});
22     $rpcenv->set_user('root@pam');
23 };
24
25 PVE::Service::pve_firewall->run_cli_handler(prepare => $prepare);