mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 19:26:05 -04:00
25 lines
664 B
Perl
Executable file
25 lines
664 B
Perl
Executable file
#!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;
|