bump version to 4.0-1
[pve-firewall.git] / src / pve-firewall
... / ...
CommitLineData
1#!/usr/bin/perl
2
3use strict;
4use warnings;
5use PVE::SafeSyslog;
6use 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
17my $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
25PVE::Service::pve_firewall->run_cli_handler(prepare => $prepare);