[pve-manager.git] / bin / pvestatd

#!/usr/bin/perl

use strict;
use warnings;

use PVE::INotify;
use PVE::RPCEnvironment;
use PVE::SafeSyslog;
use PVE::Service::pvestatd;

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

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

PVE::Service::pvestatd->run_cli_handler(prepare => $prepare);
Commit	Line	Data
776de3bc	1	#!/usr/bin/perl
aff192e6 DM	2
aff192e6 DM	3	use strict;
776de3bc	4	use warnings;
891d1242	5
d36acebb DM	6	use PVE::INotify;
d36acebb DM	7	use PVE::RPCEnvironment;
780fbb4b	8	use PVE::SafeSyslog;
b89ae9fc	9	use PVE::Service::pvestatd;
aff192e6	10
780fbb4b 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
d36acebb	20	my $prepare = sub {
ae8b09bd	21	my $rpcenv = PVE::RPCEnvironment->init('priv');
aff192e6	22
d36acebb DM	23	$rpcenv->init_request();
	24	$rpcenv->set_language($ENV{LANG});
	25	$rpcenv->set_user('root@pam');
	26	};
aff192e6	27
092fa1b0	28	PVE::Service::pvestatd->run_cli_handler(prepare => $prepare);