25 lines
626 B
Perl
Executable File
25 lines
626 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use FindBin;
|
|
FindBin::again();
|
|
|
|
use File::Spec;
|
|
use Path::Class;
|
|
use Cwd 'realpath';
|
|
use File::Copy 'move';
|
|
|
|
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;
|