summaryrefslogtreecommitdiff
path: root/Echolot/Conf.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Echolot/Conf.pm')
-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'};