#!/usr/bin/perl -w

BEGIN {push @INC, (".", "..")};

use strict;
use XML::LibXML;
use XML::LibXSLT;
use Getopt::Long;
use RPC::XML::Server;
use RPC::XML::Client;
use D;
use Data::Dumper;


$|=1;
my $debug=1;

$SIG{CHLD} = "IGNORE";

while (1) {
    my ($server, $d);

    $server = RPC::XML::Server->new(
        port    => 9000,
        queue   => 1024
    );

    $d = D->new();
    $d->setServer($server);
    $d->initialize();

    eval {
        # This loop will not exit unless the server dies
        $server->server_loop('INT', sub { die("AAAAACK!!!");} );
    };

    print "Restarting loop!\n";
    exec($0, @ARGV);
}