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

Fix for removed pseudo hash

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@563 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2005-11-13 23:46:03 +00:00
parent 2af297f49c
commit a46a0345d5
1 changed files with 3 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lib/Danga/DNS/Resolver.pm
View File

@ -98,7 +98,7 @@ sub query_type {
my $now = time(); 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) { foreach my $host (@hosts) {
$self->_query($asker, $host, $type, $now) || return; $self->_query($asker, $host, $type, $now) || return;
@ -110,31 +110,13 @@ sub query_type {
sub query_txt { sub query_txt {
my Danga::DNS::Resolver $self = shift; my Danga::DNS::Resolver $self = shift;
my ($asker, @hosts) = @_; my ($asker, @hosts) = @_;
return $self->query_type($asker, "TXT", @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;
} }
sub query_mx { sub query_mx {
my Danga::DNS::Resolver $self = shift; my Danga::DNS::Resolver $self = shift;
my ($asker, @hosts) = @_; my ($asker, @hosts) = @_;
return $self->query_type($asker, "MX", @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;
} }
sub query { sub query {