#!perl
use strict;
use ExtUtils::testlib;
use GTop::Server ();
my $gtops = GTop::Server->new;
my $config = shift || "server.conf";
if (-e $config) {
    print "reading server config from $config..\n";
    $gtops->read_config($config);
}
else {  
    print "$config not found, falling back to default config..\n";
    #same as server.conf
    $gtops->allow("127.0.0.1");
    $gtops->debug(1);
    $gtops->no_fork(1);
    $gtops->no_daemon(1);
}
$gtops->start;