Run Minecraft server under process supervision

run.execline

#!/opt/pkg/bin/execlineb -P

fdmove -c 2 1

cd /home/minecraft/sites/schmonz.com/minecraft/data

redirfd -w -nb 3 control
trap -x
{
    SIGINT  { fdmove 1 3 s6-echo stop }
    SIGHUP  { fdmove 1 3 s6-echo stop }
    SIGTERM { fdmove 1 3 s6-echo stop }
    SIGPIPE { fdmove 1 3 s6-echo stop }
}
fdclose 3

redirfd -r 0 control

java -Xmx1024M -Xms1024M -jar ../bin/server.jar --nogui

run.pl

#!/opt/pkg/bin/perl

use warnings;
use strict;

use AnyEvent;
use IPC::Open2;

sub main {
	my $command_line = "java -Xmx1024M -Xms1024M -jar ../bin/server.jar --nogui";
	my $exit_status = 0;

	chdir("/home/minecraft/sites/schmonz.com/minecraft/data")
		or die "can't chdir to minecraft/data: $!\n";

	$SIG{'INT'} = 'IGNORE';
	$SIG{'HUP'} = 'IGNORE';
	$SIG{'TERM'} = 'IGNORE';
	$SIG{'PIPE'} = 'IGNORE';

	my $pid = open2(
		'>&STDOUT',
		my $child_stdin,
		split(" ", $command_line),
	) // die "can't start minecraft server: $!\n";

	if ($pid) {
		my $cv = AnyEvent->condvar;

		my @signal_watchers = map {
			AnyEvent->signal(
				signal => $_,
				cb => sub {
					print $child_stdin "/stop\n";
					$cv->send;
				},
			);
		} (qw(INT HUP TERM PIPE));

		$cv->recv;

		waitpid($pid, 0);
		$exit_status = $? >> 0;
	}

	return $exit_status;
}

exit(main(@ARGV));