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