diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-08-23 06:03:56 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-08-23 06:03:56 +0000 |
| commit | fbf609a87c67f642dbdf41bd4b2ed0f55874f2f5 (patch) | |
| tree | 972f342b6e4587d6886c57ed43e7cb4bf0d16c0f /Echolot | |
| parent | f2b073b2c8814633cd8810214b650821f1dd6216 (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.pm | 13 |
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'}; |