|
Lines 300-306
Link Here
|
| 300 |
dbg("RBL: success for " . ($total - @left) . " of $total queries", "rbl", 0); |
300 |
dbg("RBL: success for " . ($total - @left) . " of $total queries", "rbl", 0); |
| 301 |
# timeouts |
301 |
# timeouts |
| 302 |
for my $query (@left) { |
302 |
for my $query (@left) { |
| 303 |
my $rules = join(",", @{$query->[RULES]}); |
303 |
my $rules = "(unknown)"; |
|
|
304 |
if ($query->[RULES]) { |
| 305 |
$rules = join(",", @{$query->[RULES]}); |
| 306 |
} |
| 304 |
my $delay = time - $self->{rbl_launch}; |
307 |
my $delay = time - $self->{rbl_launch}; |
| 305 |
dbg("RBL: timeout for $rules after $delay seconds", "rbl", 0); |
308 |
dbg("RBL: timeout for $rules after $delay seconds", "rbl", 0); |
| 306 |
undef $query->[BGSOCK]; |
309 |
undef $query->[BGSOCK]; |
