From ed16a535f957a2d09ccfaf557ce2e2734227947b Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Wed, 2 Jan 2013 20:08:59 +0000
Subject: [PATCH] add daemon daemonizer

---
 Netdisco/bin/netdisco-daemon | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 Netdisco/bin/netdisco-daemon

diff --git a/Netdisco/bin/netdisco-daemon b/Netdisco/bin/netdisco-daemon
new file mode 100755
index 00000000..4141a816
--- /dev/null
+++ b/Netdisco/bin/netdisco-daemon
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings FATAL => 'all';
+
+use Daemon::Control;
+
+my $program = "$ENV{HOME}/bin/netdisco-daemon-fg";
+
+Daemon::Control->new({
+  name => 'Netdisco Daemon',
+  user => 'netdisco',
+  program  => ($ENV{NETDISCO_DAEMON} || $program),
+  pid_file => "$ENV{HOME}/netdisco-daemon.pid",
+})->run;