src/bin/pmgproxy

   1 #!/usr/bin/perl
   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
  10 use PVE::SafeSyslog;
  11 use PMG::Service::pmgproxy;
  12
  13 $SIG{'__WARN__'} = sub {
  14     my $err = $@;
  15     my $t = $_[0];
  16     chomp $t;
  17     print STDERR "$t\n";
  18     syslog('warning', "%s", $t);
  19     $@ = $err;
  20 };
  21
  22 my $prepare = sub {
  23     my $rundir="/run/pmgproxy";
  24     if (mkdir($rundir, 0700)) { # only works at first start if we are root)
  25         my $gid = getgrnam('www-data') || die "getgrnam failed - $!\n";
  26         my $uid = getpwnam('www-data') || die "getpwnam failed - $!\n";
  27         chown($uid, $gid, $rundir);
  28     }
  29 };
  30
  31 PMG::Service::pmgproxy->run_cli_handler(prepare => $prepare);