oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

properly daemonize spectre

Browse source
This commit is contained in:
Graham Knop 2008-02-28 15:53:24 +00:00
parent 8129bef2fb
commit fc524df15c
1 changed files with 15 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

22
sbin/spectre.pl
View file

@ -70,7 +70,8 @@ STOP
exit;
}
my $config = WebGUI::Config->new("..","spectre.conf",1);
require File::Spec;
my $config = WebGUI::Config->new(File::Spec->rel2abs(".."),"spectre.conf",1);
unless (defined $config) {
print <<STOP;
@ -106,12 +107,19 @@ if ($shutdown) {
} elsif ($run) {
Spectre::Admin->new($config, $debug);
} elsif ($daemon) {
my $res = ping();
print "Spectre is already running.\n" unless $res;
exit unless $res;
#fork and exit(sleep(1) and print((ping())?"Spectre failed to start!\n":"Spectre started successfully!\n")); #Can't have right now.
fork and exit;
Spectre::Admin->new($config, $debug);
if (!ping()) {
die "Spectre is already running.\n";
}
#fork and exit(sleep(1) and print((ping())?"Spectre failed to start!\n":"Spectre started successfully!\n")); #Can't have right now.
require POSIX;
fork and exit;
POSIX::setsid();
chdir "/";
open STDIN, "+>", File::Spec->devnull;
open STDOUT, "+>STDIN";
open STDERR, "+>STDIN";
fork and exit;
Spectre::Admin->new($config, $debug);
}
sub ping {