#!/usr/bin/env perl
# Copyright (C) 2018  Luke T. Shumaker <lukeshu@parabola.nu>
#
# SPDX-License-Identifier: GPL-2.0-or-later
#
# This file is part of Parabola Libretools.
#
# Libretools is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 2 of the License, or
# (at your option) any later version.
#
# Libretools is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.

use strict;
use warnings;

use IO::Socket::INET;
use Fcntl;

my $socket = IO::Socket::INET->new(
	LocalAddr => "127.0.0.1:0",
	Listen => 1
);

sysopen(my $fh, $ARGV[0], O_WRONLY|O_CREAT|O_EXCL, 0666) or die "open: $ARGV[0]: $!";
my $pid = fork();
if ($pid > 0) {
	print $fh $pid;
	print $socket->sockport()."\n";
	exit;
}
close($fh);
open(STDIN, '</dev/null');
open(STDOUT, '</dev/null');

my @cmd = @ARGV;
shift @cmd;

while (1) {
	my $conn = $socket->accept();
	my $worker = fork();
	if ($worker == 0) {
		open(STDIN, '<&', $conn);
		open(STDOUT, '>&', $conn);
		close($conn);
		close($socket);
		exec @cmd;
		exit
	}
	close($conn);
}
