#!/usr/bin/env perl

use strict;
use warnings;
my $debug;
our $VERSION = '0.024';

BEGIN {
    use App::EvalServerAdvanced::Config;
    use Getopt::Long;

    sub displayhelp {
    print <<'EOH';
evalserveradvanced
  A sophisticated sandbox for running arbitrary code in a mostly safe manner.

  Options
    --config-dir  - Specify where to find all configuration files, and plugins
    --debug       - Enable debug mode
    --help        - Display this help
EOH
    exit(0);
}


    GetOptions(
        "config-dir=s" => \$App::EvalServerAdvanced::Config::config_dir,
        "debug" => \$debug,
        "help", sub {displayhelp()},
    );

}

use App::EvalServerAdvanced;

unless (defined $App::EvalServerAdvanced::Config::config_dir) {
    print "config-dir must be set\n\n";
    displayhelp;
}

my $es = App::EvalServerAdvanced->new();
$es->run();
#EvalServer->run();
