diff options
-rw-r--r-- | Echolot/Scheduler.pm | 5 | ||||
-rw-r--r-- | NEWS | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/Echolot/Scheduler.pm b/Echolot/Scheduler.pm index 1331aff..7b71e80 100644 --- a/Echolot/Scheduler.pm +++ b/Echolot/Scheduler.pm @@ -1,7 +1,7 @@ package Echolot::Scheduler; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Scheduler.pm,v 1.12 2002/08/23 07:54:53 weasel Exp $ +# $Id: Scheduler.pm,v 1.13 2002/10/11 16:56:21 weasel Exp $ # =pod @@ -21,6 +21,7 @@ the ping daemon. use strict; use Carp qw{cluck confess}; +use English; my $ORDER = 1; @@ -132,6 +133,7 @@ sub run($) { warn("Task $task->{'name'} could not be started on time\n"); } else { print "zZzZZzz at $now\n" if Echolot::Config::get()->{'verbose'}; + $PROGRAM_NAME = "pingd [sleeping]"; sleep ($task->{'start'} - $now); }; @@ -142,6 +144,7 @@ sub run($) { do { $task = shift @{ $self->{'schedule'} }; my $name = $task->{'name'}; + $PROGRAM_NAME = "pingd [executing $name]"; (defined $self->{'tasks'}->{$name}) or warn("Task $task->{'name'} is not defined\n"); @@ -1,3 +1,6 @@ +Changes in version + * Set program name according to current action. + Changes in version 2.0.2 - 2002-09-21 * Die immeditatly if there is no Version information in metadata. * Make regular backups of metadata and rotate them properly. |