Daemons now log to ~/logs/netdisco-{web,daemon}.log

2013-01-05 20:34:21 +00:00
parent 43ca40e28c
commit 16ffbd455e
3 changed files with 13 additions and 0 deletions
--- a/Netdisco/bin/netdisco-daemon
+++ b/Netdisco/bin/netdisco-daemon
@@ -10,10 +10,16 @@ BEGIN {
  }
 }

+use Path::Class;
+my $log_dir = dir($ENV{HOME}, 'logs');
+mkdir $log_dir if ! -d $log_dir;
+
 my $program = "$ENV{HOME}/bin/netdisco-daemon-fg";

 Daemon::Control->new({
  name => 'Netdisco Daemon',
  program  => ($ENV{NETDISCO_DAEMON} || $program),
  pid_file => "$ENV{HOME}/netdisco-daemon.pid",
+  stderr_file => file($log_dir, 'netdisco-daemon.log'),
+  stdout_file => file($log_dir, 'netdisco-daemon.log'),
 })->run;