src/pve-ha-lrm

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