#!/usr/bin/perl

package CommandRunner;

use warnings;
use strict;
use vars qw(@ISA);

use CmdRun::Server;
@ISA = qw(CmdRun::Server);

%CmdRun::Server::commands = (
    fortune => [qw(/usr/games/fortune)],
    ls => [qw(/bin/ls)],
    head => [qw(/usr/bin/head)],
    tail => [qw(/usr/bin/tail)],
    top => [qw(/usr/bin/top)], 
    ps => [qw(/usr/bin/ps)],
    id => [qw(/usr/bin/id)],
);  

%CmdRun::Server::users = (
    anonymous => {
        password => '',
        allow => [qw(fortune)],
    },
    u => {
        password => 'p',
        allow => [keys %CmdRun::Server::commands],
    },
);

__PACKAGE__->run(
    proto => 'tcp',
    port => '127.0.0.1:8023',
    min_servers => 5,
    min_spare_servers => 5,
    max_spare_servers => 10,
    max_servers => 15,
    max_requests => 100,
    user => $>,
    group => $),
    log_level => 0,
);