#!/home/ryan/perl5/perlbrew/perls/perlbot-inuse/bin/perl

#use local::lib;
# Guess we're being activated inside bin/, so go up a directory.
BEGIN { if( not -e 'lib' and not -e 'etc' and -e 'bb3' ) { chdir ".."; } }

use FindBin;
use lib "$FindBin::Bin/../lib";
use EvalServer;
use POSIX qw/setsid/;

#$ENV{PATH}="/home/farnsworth/perl5/perlbrew/perls/perl-5.14.0/bin:/usr/bin/:/bin/";

# Only daemonize if we're asked to.
if( $ARGV[0] eq '-d' ) {
	# Crude daemonization
	setsid();
	fork and exit;

	open STDOUT, ">var/evalserver.stdout" or die "Tried to reopen STDOUT to bb3.stdout: $!";
	open STDERR, ">var/evalserver.stderr" or die "Tried to reopen STDERR to bb3.stdout: $!";
	close STDIN;
}

EvalServer->start;