new scripts which self-localenv, and a daemon web server

2013-01-05 20:13:48 +00:00
parent e10ee4f520
commit 43ca40e28c
6 changed files with 55 additions and 23 deletions
--- a/Netdisco/bin/netdisco-daemon
+++ b/Netdisco/bin/netdisco-daemon
@@ -3,7 +3,12 @@
 use strict;
 use warnings FATAL => 'all';

-use Daemon::Control;
+BEGIN {
+  eval "use Daemon::Control";
+  if ($@) {
+      exec("$ENV{HOME}/bin/localenv", $0, @ARGV);
+  }
+}

 my $program = "$ENV{HOME}/bin/netdisco-daemon-fg";