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);