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

#!/usr/bin/perl

use strict;
use warnings;

use PVE::Service::pve_ha_crm;

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('cli');

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

};

PVE::Service::pve_ha_crm->run_cli(undef, undef, $prepare);
Commit	Line	Data
659a7501 DM	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
659a7501	5
a802c337	6	use PVE::Service::pve_ha_crm;
714a4016	7
a802c337	8	use PVE::RPCEnvironment;
96ea9403	9	use PVE::SafeSyslog;
659a7501	10
d55aa611 DM	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
a802c337 TL	20	my $prepare = sub {
a802c337 TL	21	my $rpcenv = PVE::RPCEnvironment->init('cli');
0c2c07d4	22
a802c337 TL	23	$rpcenv->init_request();
	24	$rpcenv->set_language($ENV{LANG});
	25	$rpcenv->set_user('root@pam');
659a7501	26
659a7501 DM	27	};
659a7501 DM	28
a802c337	29	PVE::Service::pve_ha_crm->run_cli(undef, undef, $prepare);