From fc4d413fded67385a76049684d335854149ecabf Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Tue, 2 Jul 2002 13:57:09 +0000 Subject: Put back in some debugging output for --verbose --- Echolot/Scheduler.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Echolot/Scheduler.pm') diff --git a/Echolot/Scheduler.pm b/Echolot/Scheduler.pm index 1d5735c..99730e1 100644 --- a/Echolot/Scheduler.pm +++ b/Echolot/Scheduler.pm @@ -1,7 +1,7 @@ package Echolot::Scheduler; # (c) 2002 Peter Palfrader -# $Id: Scheduler.pm,v 1.6 2002/07/02 13:51:30 weasel Exp $ +# $Id: Scheduler.pm,v 1.7 2002/07/02 13:57:09 weasel Exp $ # =pod @@ -123,6 +123,7 @@ sub run($) { if ($task->{'start'} < $now) { warn("Task $task->{'name'} could not be started on time\n"); } else { + print "zZzZZzz at $now\n" if Echolot::Config::get()->{'verbose'}; sleep ($task->{'start'} - $now); }; @@ -137,6 +138,7 @@ sub run($) { warn("Task $task->{'name'} is not defined\n"); my $what = $self->{'tasks'}->{$name}->{'what'}; + print "Running $name at ".(time())." (scheduled for $now)\n" if Echolot::Config::get()->{'verbose'}; last if ($what eq 'exit'); &$what(); $self->schedule($name, $now + $self->{'tasks'}->{$name}->{'interval'}) if -- cgit v1.2.3