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