From 4fd09264e8413ea79eab948216b14eca5886ae57 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ask=20Bj=C3=B8rn=20Hansen?= <ask@develooper.com>
Date: Tue, 18 Mar 2003 09:20:26 +0000
Subject: [PATCH] Date: Tue, 11 Mar 2003 08:08:16 +0000 From: Matt Sergeant
 <matt@sergeant.org> To: qpsmtpd@perl.org Subject: [PATCH] Get all dnsbl
 results

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@118 958fd67b-6ff1-0310-b445-bb7760255be9
---
 plugins/dnsbl | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/plugins/dnsbl b/plugins/dnsbl
index 051181a..7e5c0fb 100644
--- a/plugins/dnsbl
+++ b/plugins/dnsbl
@@ -51,9 +51,11 @@ sub process_sockets {
   my @ready = $sel->can_read(5);
 
   $self->log(8, "DONE waiting for dnsbl dns, got " , scalar @ready, " answers ...") ;
+  return '' unless @ready;
 
   for my $socket (@ready) {
     my $query = $res->bgread($socket);
+    $sel->remove($socket);
     undef $socket;
 
     my $dnsbl;
@@ -81,6 +83,11 @@ sub process_sockets {
 
   }
 
+  if ($sel->count) {
+    # loop around if we have dns blacklists left to see results from
+    return $self->process_sockets();
+  }
+
   # if there was more to read; then forget it
   $conn->notes('dnsbl_sockets', undef);