From ffe8fc180f23a451c744df95d9223911df60eee2 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Sat, 6 May 2017 16:15:57 +0100
Subject: [PATCH] add daemon files which exec to backend equivalents

---
 bin/netdisco-daemon    | 19 +++++++++++++++++++
 bin/netdisco-daemon-fg | 19 +++++++++++++++++++
 2 files changed, 38 insertions(+)
 create mode 100755 bin/netdisco-daemon
 create mode 100755 bin/netdisco-daemon-fg

diff --git a/bin/netdisco-daemon b/bin/netdisco-daemon
new file mode 100755
index 00000000..7591827e
--- /dev/null
+++ b/bin/netdisco-daemon
@@ -0,0 +1,19 @@
+#!/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;
diff --git a/bin/netdisco-daemon-fg b/bin/netdisco-daemon-fg
new file mode 100755
index 00000000..fefbe258
--- /dev/null
+++ b/bin/netdisco-daemon-fg
@@ -0,0 +1,19 @@
+#!/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-fg');
+
+exec {$backend} 'netdisco-backend-fg', @ARGV;