summaryrefslogtreecommitdiff
path: root/Echolot
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2002-08-23 06:03:56 +0000
committerPeter Palfrader <peter@palfrader.org>2002-08-23 06:03:56 +0000
commitfbf609a87c67f642dbdf41bd4b2ed0f55874f2f5 (patch)
tree972f342b6e4587d6886c57ed43e7cb4bf0d16c0f /Echolot
parentf2b073b2c8814633cd8810214b650821f1dd6216 (diff)
Fix a major bug introduced in 2.0beta31 that resulted in no remailer-xxx queries beeing sent out.
Diffstat (limited to 'Echolot')
-rw-r--r--Echolot/Conf.pm13
1 files changed, 10 insertions, 3 deletions
diff --git a/Echolot/Conf.pm b/Echolot/Conf.pm
index 1b0ad9d..8af10f3 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.25 2002/08/18 06:18:00 weasel Exp $
+# $Id: Conf.pm,v 1.26 2002/08/23 06:03:56 weasel Exp $
#
=pod
@@ -54,11 +54,18 @@ sub send_requests($;$) {
next unless ($remailer->{'status'} eq 'active');
next unless ($remailer->{'fetch'});
my $address = $remailer->{'address'};
- next if ($which ne 'all' && $which ne $address );
+
+ next unless (
+ $which eq 'all' ||
+ $which eq $address ||
+ $which eq '');
for my $type (qw{conf key help stats adminkey}) {
- next if ($which ne $address && $this_call_id ne (Echolot::Tools::makeShortNumHash($address.$type) % $send_every_n_calls));
+ next unless (
+ $which eq $address ||
+ $which eq 'all' ||
+ ($which eq '' && $this_call_id eq (Echolot::Tools::makeShortNumHash($address.$type) % $send_every_n_calls)));
print "Sending $type requests to ".$address."\n"
if Echolot::Config::get()->{'verbose'};