#!/usr/bin/env perl

use strict;
use File::Temp qw(tempdir);
use Cwd qw(abs_path);
use CGI qw(:standard);

my $dir = tempdir(CLEANUP => 1);
print("Content-Type: text/plain\r\n\r\n");
foreach ('speelveld', 'kaarten', 'output') {
    symlink(tmpFileName(param($_)), "$dir/$_.ini");
}
symlink(abs_path('checker'), "$dir/checker");
system("cd '$dir' && ./checker 2>&1");