20 lines
339 B
Perl
Executable File
20 lines
339 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use File::Spec;
|
|
use Cwd 'realpath';
|
|
|
|
use FindBin;
|
|
FindBin::again();
|
|
|
|
my $backend =
|
|
File::Spec->catfile(
|
|
(File::Spec->splitpath(
|
|
realpath(File::Spec->catfile( $FindBin::RealBin, $FindBin::RealScript ))
|
|
))[1],
|
|
'netdisco-backend');
|
|
|
|
exec {$backend} 'netdisco-backend', @ARGV;
|