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

move old PID file to new name

Browse Source
This commit is contained in:
Oliver Gorwits
2017-05-30 21:23:20 +01:00
parent 3aa34f12dc
commit 585a442b64
2 changed files with 23 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
bin/netdisco-daemon
View File

@@ -3,17 +3,22 @@
use strict; use strict;
use warnings; use warnings;
use File::Spec;
use Cwd 'realpath';
use FindBin; use FindBin;
FindBin::again(); FindBin::again();
my $backend = use File::Spec;
File::Spec->catfile( use Path::Class;
(File::Spec->splitpath( use Cwd 'realpath';
realpath(File::Spec->catfile( $FindBin::RealBin, $FindBin::RealScript )) use File::Copy 'move';
))[1],
'netdisco-backend');
my $me = realpath(File::Spec->catfile($FindBin::RealBin, $FindBin::RealScript));
my $uid = (stat($me))[4] || 0;
my $home = ($ENV{NETDISCO_HOME} || (getpwuid($uid))[7] || $ENV{HOME});
my $old_pid = file($home, 'netdisco-daemon.pid');
my $new_pid = file($home, 'netdisco-backend.pid');
if (-f $old_pid) { move( $old_pid, $new_pid ) }
my $backend =
File::Spec->catfile((File::Spec->splitpath( $me ))[1], 'netdisco-backend');
exec {$backend} 'netdisco-backend', @ARGV; exec {$backend} 'netdisco-backend', @ARGV;

18
bin/netdisco-daemon-fg
View File

@@ -3,17 +3,17 @@
use strict; use strict;
use warnings; use warnings;
use File::Spec;
use Cwd 'realpath';
use FindBin; use FindBin;
FindBin::again(); FindBin::again();
my $backend = use File::Spec;
File::Spec->catfile( use Path::Class;
(File::Spec->splitpath( use Cwd 'realpath';
realpath(File::Spec->catfile( $FindBin::RealBin, $FindBin::RealScript ))
))[1],
'netdisco-backend-fg');
my $me = realpath(File::Spec->catfile($FindBin::RealBin, $FindBin::RealScript));
my $uid = (stat($me))[4] || 0;
my $home = ($ENV{NETDISCO_HOME} || (getpwuid($uid))[7] || $ENV{HOME});
my $backend =
File::Spec->catfile((File::Spec->splitpath( $me ))[1], 'netdisco-backend-fg');
exec {$backend} 'netdisco-backend-fg', @ARGV; exec {$backend} 'netdisco-backend-fg', @ARGV;