build: bump compat level to 10

[pve-ha-manager.git] / src / pve-ha-lrm

#!/usr/bin/perl

use strict;
use warnings;

use PVE::Service::pve_ha_lrm;

use PVE::RPCEnvironment;
use PVE::SafeSyslog;

$SIG{'__WARN__'} = sub {
    my $err = $@;
    my $t = $_[0];
    chomp $t;
    print STDERR "$t\n";
    syslog('warning', "%s", $t);
    $@ = $err;
};

my $prepare = sub {

    my $rpcenv = PVE::RPCEnvironment->init('ha');

    $rpcenv->init_request();
    $rpcenv->set_language($ENV{LANG});
    $rpcenv->set_user('root@pam');

};

PVE::Service::pve_ha_lrm->run_cli_handler(prepare => $prepare);