1#!/usr/bin/env perl
2
3use strict;
4use warnings;
5
6use FindBin;
7FindBin::again();
8
9use File::Spec;
10use Cwd 'realpath';
11use File::Copy 'move';
12
13my $me = realpath(File::Spec->catfile($FindBin::RealBin, $FindBin::RealScript));
14my $uid = (stat($me))[4] || 0;
15my $home = ($ENV{NETDISCO_HOME} || (getpwuid($uid))[7] || $ENV{HOME});
16
17my $old_pid = File::Spec->catfile($home, 'netdisco-daemon.pid');
18my $new_pid = File::Spec->catfile($home, 'netdisco-backend.pid');
19if (-f $old_pid) { move( $old_pid, $new_pid ) }
20
21my $backend =
22  File::Spec->catfile((File::Spec->splitpath( $me ))[1], 'netdisco-backend');
23exec {$backend} 'netdisco-backend', @ARGV;
24