diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-07-02 13:51:30 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-07-02 13:51:30 +0000 |
| commit | 86822cfae2329829c6673f2e48135b3c4f6fee0d (patch) | |
| tree | e235ebdfb4fd1f980c442ec98162f835295507fa | |
| parent | be36660a2c51a2bbfdff83c1cf52a61aff0ebb62 (diff) | |
Remove debugging output
| -rw-r--r-- | Echolot/Scheduler.pm | 4 | ||||
| -rw-r--r-- | Echolot/Storage/File.pm | 4 |
2 files changed, 2 insertions, 6 deletions
diff --git a/Echolot/Scheduler.pm b/Echolot/Scheduler.pm index 711b9e0..1d5735c 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.5 2002/06/20 04:28:13 weasel Exp $ +# $Id: Scheduler.pm,v 1.6 2002/07/02 13:51:30 weasel Exp $ # =pod @@ -123,7 +123,6 @@ 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); }; @@ -138,7 +137,6 @@ 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"; last if ($what eq 'exit'); &$what(); $self->schedule($name, $now + $self->{'tasks'}->{$name}->{'interval'}) if diff --git a/Echolot/Storage/File.pm b/Echolot/Storage/File.pm index f036b6e..cf0fdf4 100644 --- a/Echolot/Storage/File.pm +++ b/Echolot/Storage/File.pm @@ -1,7 +1,7 @@ package Echolot::Storage::File; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: File.pm,v 1.12 2002/07/02 13:40:13 weasel Exp $ +# $Id: File.pm,v 1.13 2002/07/02 13:51:00 weasel Exp $ # =pod @@ -383,7 +383,6 @@ sub register_pingout($$$$) { cluck("Error when writing to $remailer_addr; type=$type; key=$key; out pings: $!"), return 0; $fh->flush(); -print "registering pingout at $sent_time for $remailer_addr ($type; $key)\n"; return 1; }; @@ -428,7 +427,6 @@ sub register_pingdone($$$$$) { cluck("Error when writing to outgoing pings file for remailer $remailer_addr; key=$key file: $!"), return 0; $fh->flush(); -print "registering pingdone from $sent_time with latency $latency for $remailer_addr ($type; $key)\n"; return 1; }; |