#!/usr/bin/perl
##################################################
# calcfork - Mike Schilli, 2001(m@perlmeister.com)
##################################################
use warnings;
use strict;

use Jap;
use NetServer::Generic;

my $PORT = 9002;

my ($server) = new NetServer::Generic;
$server->port($PORT);

    # Für jetzt nur den lokalen Host zulassen
$server->allowed(["127.0.0.1"]);

$server->callback(\&Jap::shell);
$server->mode("forking");
print "Starting server on port $PORT\n";
$server->run();