summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Echolot/Conf.pm3
-rw-r--r--Echolot/Scheduler.pm3
2 files changed, 4 insertions, 2 deletions
diff --git a/Echolot/Conf.pm b/Echolot/Conf.pm
index ad60f13..be26d62 100644
--- a/Echolot/Conf.pm
+++ b/Echolot/Conf.pm
@@ -1,7 +1,7 @@
package Echolot::Conf;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Conf.pm,v 1.3 2002/06/10 06:24:31 weasel Exp $
+# $Id: Conf.pm,v 1.4 2002/06/13 15:27:45 weasel Exp $
#
=pod
@@ -26,6 +26,7 @@ sub send_requests() {
Echolot::Globals::get()->{'storage'}->delay_commit();
for my $remailer (Echolot::Globals::get()->{'storage'}->get_addresses()) {
next unless ($remailer->{'status'} eq 'active');
+ print "Sending requests to ".$remailer->{'address'}."\n";
for my $type (qw{conf key help stats}) {
Echolot::Tools::send_message(
'To' => $remailer->{'address'},
diff --git a/Echolot/Scheduler.pm b/Echolot/Scheduler.pm
index 3c4342a..e54eef1 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.3 2002/06/11 11:06:32 weasel Exp $
+# $Id: Scheduler.pm,v 1.4 2002/06/13 15:27:25 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";
sleep ($task->{'start'} - $now);
};