use IPC::Open3 qw( open3 );
use POSIX      qw( WNOHANG );

use constant TIMEOUT => 60;

sub wait_for_test_to_end {
    my ($pid) = @_;

    my $abs_timeout = time() + TIMEOUT;
    while (1) {
        return if waitpid($pid, WNOHANG) > 0;
        last if time() > $abs_timeout;
        sleep(1);
    }

    kill(ALRM => $pid);

    $abs_timeout = time() + 15;
    while (1) {
        return if waitpid($pid, WNOHANG) > 0;
        last if time() > $abs_timeout;
        sleep(1);
    }

    kill(KILL => $pid);
    waitpid($pid, 0);
}

while (1) {
    for my $runCommand (@runArray) {
        $forkMgr->start($runCommand)
            and next;

        my $pid = open3('<&STDIN', '>&STDOUT', '>&STDERR',
            "/usr/localcw/opt/patrol/nagios/libexec/$runCommand");
        wait_for_test_to_end($pid);
        $forkMgr->finish($? & 0x7F ? 0x80 | ($? & 0x7F) : $? >> 8);
    }

    $forkMgr->wait_all_children;

    sleep 10;
}