summaryrefslogtreecommitdiff
path: root/perldaemon.pl
diff options
context:
space:
mode:
authorPaul Buetow <paul@buetow.org>2011-02-06 09:55:57 +0000
committerPaul Buetow <paul@buetow.org>2011-02-06 09:55:57 +0000
commitef8d41048c51078ad27ee2f29d0e667073aeee98 (patch)
tree962def7d0bdf7aacb92423599270b1e3d31e2e62 /perldaemon.pl
parente2f5ca5af526f787b07fd23d5acd9205976d9390 (diff)
removed version option
Diffstat (limited to 'perldaemon.pl')
-rw-r--r--perldaemon.pl6
1 files changed, 4 insertions, 2 deletions
diff --git a/perldaemon.pl b/perldaemon.pl
index 2873c85..c5580da 100644
--- a/perldaemon.pl
+++ b/perldaemon.pl
@@ -6,6 +6,8 @@ use strict;
use warnings;
use POSIX qw(setsid);
+use constant VERSION => 1;
+
$| = 1;
sub trimstr (@) {
@@ -91,7 +93,7 @@ sub readconfig ($) {
# Check
my $msg = 'Missing property:';
- foreach (qw(wd pidfile logfile truncatelog version)) {
+ foreach (qw(wd pidfile logfile truncatelog)) {
my $key = "daemon.$_";
die "$msg $key\n" unless exists $config{$key};
}
@@ -134,7 +136,7 @@ sub daemonloop ($) {
my $loop = shift;
for (my $i = 1;;++$i) {
- logmsg $config => $config->{'daemon.version'} . ": Hello $i";
+ logmsg $config => VERSION . ": Hello $i";
sleep 3;
}
}