[pmg-api.git] / bin / pmgtunnel

#!/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 PMG::Service::pmgtunnel;

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

PMG::Service::pmgtunnel->run_cli_handler();
Commit	Line	Data
dbe94472 DM	1	#!/usr/bin/perl -T
	2
	3	$ENV{'PATH'} = '/sbin:/bin:/usr/sbin:/usr/bin';
	4
04439dbc	5	delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
dbe94472 DM	6
	7	use strict;
	8	use warnings;
	9
	10	use PVE::SafeSyslog;
	11	use PMG::Service::pmgtunnel;
	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	PMG::Service::pmgtunnel->run_cli_handler();