diff options
| author | Paul Buetow <paul@buetow.org> | 2011-02-06 09:34:22 +0000 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2011-02-06 09:34:22 +0000 |
| commit | 93e3a0775cc9a5b0da83708654bdde124825cc57 (patch) | |
| tree | 3fdf7577ce6baeb5fe86d8d3b7cd7b1be62b76d9 | |
| parent | 5634929873af2581afd46164a57fedc0f65aa2c9 (diff) | |
added daemon.version property
| -rw-r--r-- | perldaemon.conf | 1 | ||||
| -rw-r--r-- | perldaemon.pl | 4 |
2 files changed, 3 insertions, 2 deletions
diff --git a/perldaemon.conf b/perldaemon.conf index f54f546..40be314 100644 --- a/perldaemon.conf +++ b/perldaemon.conf @@ -3,3 +3,4 @@ daemon.wd = ./ daemon.pidfile = ./perldaemon.pid daemon.logfile = ./perldaemon.log daemon.truncatelog = yes +daemon.version = v1 diff --git a/perldaemon.pl b/perldaemon.pl index d2897cd..c2289ab 100644 --- a/perldaemon.pl +++ b/perldaemon.pl @@ -89,7 +89,7 @@ sub readconfig ($) { # Check my $msg = 'Missing property:'; - foreach (qw(wd pidfile logfile truncatelog)) { + foreach (qw(wd pidfile logfile truncatelog version)) { my $key = "daemon.$_"; die "$msg $key\n" unless exists $config{$key}; } @@ -132,7 +132,7 @@ sub daemonloop ($) { my $loop = shift; for (my $i = 1;;++$i) { - logmsg $config => "Hello $i"; + logmsg $config => $config->{'daemon.version'} . ": Hello $i"; sleep 3; } } |