19 lines
358 B
Perl
Executable File
19 lines
358 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use PVE::INotify;
|
|
use PVE::RPCEnvironment;
|
|
use PVE::Service::pvestatd;
|
|
|
|
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);
|