135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

more fixes for LSB init functionality

Browse Source
This commit is contained in:
Oliver Gorwits
2014-04-18 22:00:32 +00:00
parent 52b754ed0c
commit 9fa855ceb8
3 changed files with 24 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Netdisco/bin/netdisco-daemon
View File

@@ -9,12 +9,15 @@ BEGIN {
use FindBin;
FindBin::again();
$home = ($ENV{NETDISCO_HOME} || $ENV{HOME});
my $me = File::Spec->catfile($FindBin::RealBin, $FindBin::RealScript);
my $uid = (stat($me))[4] || 0;
$home = ($ENV{NETDISCO_HOME} || (getpwuid($uid))[7] || $ENV{HOME});
# try to find a localenv if one isn't already in place.
if (!exists $ENV{PERL_LOCAL_LIB_ROOT}) {
use File::Spec;
my $localenv = File::Spec->catfile($FindBin::RealBin, 'localenv');
my $localenv = File::Spec->catfile($FindBin::Bin, 'localenv');
exec($localenv, $0, @ARGV) if -f $localenv;
$localenv = File::Spec->catfile($home, 'perl5', 'bin', 'localenv');
exec($localenv, $0, @ARGV) if -f $localenv;
@@ -58,6 +61,7 @@ Daemon::Control->new({
pid_file => file($home, 'netdisco-daemon.pid'),
stderr_file => file($log_dir, 'netdisco-daemon.log'),
stdout_file => file($log_dir, 'netdisco-daemon.log'),
redirect_before_fork => 0,
uid => $uid, gid => $gid,
})->run;
@@ -66,7 +70,7 @@ Daemon::Control->new({
sub restarter {
my ($daemon, @program_args) = @_;
my $child = fork_and_start(@program_args);
my $child = fork_and_start($daemon, @program_args);
exit(1) unless $child;
my $watcher = Filesys::Notify::Simple->new([$ENV{DANCER_ENVDIR}]);
@@ -95,11 +99,12 @@ sub restarter {
}
sub fork_and_start {
my @daemon_args = @_;
my ($daemon, @daemon_args) = @_;
my $pid = fork;
die "Can't fork: $!" unless defined $pid;
if ($pid == 0) { # child
$daemon->redirect_filehandles();
exec( $netdisco->stringify, @daemon_args );
}
else {