byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Date: Tue, 11 Mar 2003 08:08:16 +0000

Browse Source 
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
This commit is contained in:
Ask Bjørn Hansen 2003-03-18 09:20:26 +00:00
parent d06e5ca548
commit 4fd09264e8
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
plugins/dnsbl
View File

@ -51,9 +51,11 @@ sub process_sockets {
my @ready = $sel->can_read(5); my @ready = $sel->can_read(5);
$self->log(8, "DONE waiting for dnsbl dns, got " , scalar @ready, " answers ...") ; $self->log(8, "DONE waiting for dnsbl dns, got " , scalar @ready, " answers ...") ;
return '' unless @ready;
for my $socket (@ready) { for my $socket (@ready) {
my $query = $res->bgread($socket); my $query = $res->bgread($socket);
$sel->remove($socket);
undef $socket; undef $socket;
my $dnsbl; 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 # if there was more to read; then forget it
$conn->notes('dnsbl_sockets', undef); $conn->notes('dnsbl_sockets', undef);