mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 10:35:41 -04:00
21 lines
540 B
Perl
Executable file
21 lines
540 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# 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/;
|
|
|
|
# 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;
|