#!/usr/bin/perl -T

$ENV{'PATH'} = '/sbin:/bin:/usr/sbin:/usr/bin';

delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};  

use strict;
use warnings;

#pvestatd
use PVE::INotify;
use PVE::RPCEnvironment;
#endpvestatd
use PVE::SafeSyslog;
use PVE::Service::pvedaemon;

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

my $prepare = sub {
    # create dir for dtach sockets
    mkdir "/var/run/dtach";
#pveproxy
    my $rundir="/var/run/pveproxy";
    if (mkdir($rundir, 0700)) { # only works at first start if we are root)
	my $gid = getgrnam('www-data') || die "getgrnam failed - $!\n";
	my $uid = getpwnam('www-data') || die "getpwnam failed - $!\n";
	chown($uid, $gid, $rundir);
    }
    #endpveproxy
#pvestatd
    my $rpcenv = PVE::RPCEnvironment->init('priv');

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

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