[pve-manager.git] / bin / spiceproxy

#!/usr/bin/perl -T

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

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

use strict;
use warnings;
use PVE::SafeSyslog;
use PVE::Service::spiceproxy;

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

my $prepare  = sub {
    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);
    }
};

PVE::Service::spiceproxy->run_cli_handler(prepare => $prepare);
Commit	Line	Data
01b089e4	1	#!/usr/bin/perl -T
33afb29b DM	2
	3	$ENV{'PATH'} = '/sbin:/bin:/usr/sbin:/usr/bin';
	4
	5	delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
	6
33afb29b	7	use strict;
01b089e4	8	use warnings;
804e97f9	9	use PVE::SafeSyslog;
c2b121c0	10	use PVE::Service::spiceproxy;
33afb29b	11
de72f7ee DM	12	$SIG{'__WARN__'} = sub {
	13	my $err = $@;
	14	my $t = $_[0];
	15	chomp $t;
	16	print STDERR "$t\n";
	17	syslog('warning', "%s", $t);
	18	$@ = $err;
	19	};
	20
c2b121c0	21	my $prepare = sub {
98ac92f0 WB	22	my $rundir="/var/run/pveproxy";
	23	if (mkdir($rundir, 0700)) { # only works at first start if we are root)
	24	my $gid = getgrnam('www-data') \|\| die "getgrnam failed - $!\n";
	25	my $uid = getpwnam('www-data') \|\| die "getpwnam failed - $!\n";
	26	chown($uid, $gid, $rundir);
	27	}
393716a3	28	};
33afb29b	29
092fa1b0	30	PVE::Service::spiceproxy->run_cli_handler(prepare => $prepare);