From a46a0345d5b3547be5f3236249d2fd7b03d4283a Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Sun, 13 Nov 2005 23:46:03 +0000
Subject: [PATCH] Fix for removed pseudo hash

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@563 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Danga/DNS/Resolver.pm | 24 +++---------------------
 1 file changed, 3 insertions(+), 21 deletions(-)

diff --git a/lib/Danga/DNS/Resolver.pm b/lib/Danga/DNS/Resolver.pm
index 473d0c4..ce9fb7f 100644
--- a/lib/Danga/DNS/Resolver.pm
+++ b/lib/Danga/DNS/Resolver.pm
@@ -98,7 +98,7 @@ sub query_type {
     
     my $now = time();
     
-    trace(2, "[" . keys(%{$self->{id_to_asker}}) . "] trying to resolve $type: @hosts\n");
+    trace(2, "Trying to resolve $type: @hosts\n");
 
     foreach my $host (@hosts) {
         $self->_query($asker, $host, $type, $now) || return;
@@ -110,31 +110,13 @@ sub query_type {
 sub query_txt {
     my Danga::DNS::Resolver $self = shift;
     my ($asker, @hosts) = @_;
-    
-    my $now = time();
-    
-    trace(2, "trying to resolve TXT: @hosts\n");
-
-    foreach my $host (@hosts) {
-        $self->_query($asker, $host, 'TXT', $now) || return;
-    }
-    
-    return 1;
+    return $self->query_type($asker, "TXT", @hosts);
 }
 
 sub query_mx {
     my Danga::DNS::Resolver $self = shift;
     my ($asker, @hosts) = @_;
-    
-    my $now = time();
-    
-    trace(2, "trying to resolve MX: @hosts\n");
-
-    foreach my $host (@hosts) {
-        $self->_query($asker, $host, 'MX', $now) || return;
-    }
-    
-    return 1;
+    return $self->query_type($asker, "MX", @hosts);
 }
 
 sub query {