bin/spiceproxy

   1 #!/usr/bin/perl -T
   2
   3 $ENV{'PATH'} = '/sbin:/bin:/usr/sbin:/usr/bin';
   4
   5 delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
   6
   7 use strict;
   8 use warnings;
   9 use PVE::Service::spiceproxy;
  10
  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
  20 my $prepare  = sub {
  21     my $rundir="/var/run/pveproxy";
  22     if (mkdir($rundir, 0700)) { # only works at first start if we are root)
  23         my $gid = getgrnam('www-data') || die "getgrnam failed - $!\n";
  24         my $uid = getpwnam('www-data') || die "getpwnam failed - $!\n";
  25         chown($uid, $gid, $rundir);
  26     }
  27 };
  28
  29 PVE::Service::spiceproxy->run_cli(undef, undef, $prepare);