mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 19:26:05 -04:00
27 lines
806 B
Perl
Executable file
27 lines
806 B
Perl
Executable file
#!/home/farnsworth/perl5/perlbrew/perls/perl-5.14.0/bin/perl
|
|
|
|
use lib '/home/farnsworth/perl5/lib/perl5/x86_64-linux-gnu-thread-multi';
|
|
use lib '/home/farnsworth/perl5/lib/perl5';
|
|
|
|
#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 lib '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;
|