[gruntmaster-daemon.git] / gruntmaster-exec

#!/usr/bin/perl -w
use v5.14;
use strict;

use BSD::Resource qw/setrlimit RLIMIT_AS RLIMIT_FSIZE/;
use sigtrap qw/XFSZ/;

##################################################

my ($mlimit, $olimit, @args) = @ARGV;

setrlimit RLIMIT_AS, $mlimit, $mlimit or die $! if $mlimit;
setrlimit RLIMIT_FSIZE, $olimit, $olimit or die $! if $olimit;

%ENV = (ONLINE_JUDGE => 1, PATH => $ENV{PATH});
exec @args;
Commit	Line	Data
da905f9e MG	1	#!/usr/bin/perl -w
	2	use v5.14;
	3	use strict;
	4
	5	use BSD::Resource qw/setrlimit RLIMIT_AS RLIMIT_FSIZE/;
	6	use sigtrap qw/XFSZ/;
	7
	8	##################################################
	9
	10	my ($mlimit, $olimit, @args) = @ARGV;
	11
	12	setrlimit RLIMIT_AS, $mlimit, $mlimit or die $! if $mlimit;
	13	setrlimit RLIMIT_FSIZE, $olimit, $olimit or die $! if $olimit;
50cdf3cb MG	14
50cdf3cb MG	15	%ENV = (ONLINE_JUDGE => 1, PATH => $ENV{PATH});
da905f9e	16	exec @args;