#!/usr/bin/perl -w

use strict;

chdir "/home/wapirc/lck";
my $temp=`mktemp XXXXXX`;
chomp $temp;

symlink "/home/wapirc/sbin/wapirc.cgi", "/home/wapirc/htdocs/$temp.cgi";
#system "/home/wapirc/sbin/wapircd $temp.cgi < /dev/null > /dev/null 2>&1 &";

open OUT, ">/var/www/.oidentd.conf";
print OUT "global {\n";
print OUT "reply \"";
foreach (split(/\./, $ENV{'REMOTE_ADDR'})) {
  printf OUT "%02x", $_;
}
print OUT "\"\n";
print OUT "}\n";
close OUT;

my $pid=fork;
if ($pid==0) {
    open STDIN, "</dev/null";
    open STDOUT, ">/dev/null";
    open STDERR, ">/dev/null";
    exec "/home/wapirc/sbin/wapircd", "$temp.cgi";
    exit -1;
} else {
    open TMP, ">$temp.pid";
    print TMP "$pid\n";
    close TMP;
    open TMP, ">$temp.cgi";
    close TMP;
}

print "Location: http://wapirc.kiva3.lugs.ch/$temp.cgi\n\n";