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

Forward porting spectre stop fix. Moved from IKC to interrupt based.

Browse source
This commit is contained in:
Colin Kuskie 2009-07-29 23:30:52 +00:00
parent 10755c3b83
commit f8b8f9da37
5 changed files with 59 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

40
sbin/spectre.pl
View file

@ -68,17 +68,22 @@ STOP
}
if ($shutdown) {
my $remote = create_ikc_client(
port=>$config->get("port"),
ip=>$config->get("ip"),
name=>rand(100000),
timeout=>10
);
die $POE::Component::IKC::ClientLite::error unless $remote;
my $result = $remote->post('admin/shutdown');
die $POE::Component::IKC::ClientLite::error unless defined $result;
$remote->disconnect;
undef $remote;
local $/;
my $pidFileName = $config->get('pidFile');
if (! $pidFileName) {
die "No pidFile specified in spectre.conf\n";
}
open my $pidFile, '<', $pidFileName or
die "Unable to open pidFile ($pidFileName) for writing: $!\n";
my $spectrePid = <$pidFile>;
close $pidFile or
die "Unable to close pidFile ($pidFileName) after writing: $!\n";
chomp $spectrePid;
kill 15, $spectrePid;
sleep 1;
kill 9, $spectrePid;
unlink $pidFileName or
die "Unable to remove PID file\n";
}
elsif ($ping) {
my $res = ping();
@ -95,18 +100,31 @@ elsif ($run) {
Spectre::Admin->new($config, $debug);
}
elsif ($daemon) {
my $pidFileName = $config->get('pidFile');
if (!ping()) {
die "Spectre is already running.\n";
}
elsif (-e $pidFileName){
die "pidFile $pidFileName already exists\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();
##Write the PID file
if (! $pidFileName) {
die "No pidFile specified in spectre.conf\n";
}
open my $pidFile, '>', $pidFileName or
die "Unable to open pidFile ($pidFileName) for writing: $!\n";
chdir "/";
open STDIN, "+>", File::Spec->devnull;
open STDOUT, "+>&STDIN";
open STDERR, "+>&STDIN";
fork and exit;
print $pidFile $$."\n";
close $pidFile or
die "Unable to close pidFile ($pidFileName) after writing: $!\n";
Spectre::Admin->new($config, $debug);
}