1 |
wellsi |
1.1 |
diff -ruN qpsmtpd-0.83.old/plugins/require_resolvable_fromhost qpsmtpd-0.83/plugins/require_resolvable_fromhost |
2 |
|
|
--- qpsmtpd-0.83.old/plugins/require_resolvable_fromhost 2009-09-22 11:49:27.000000000 +0100 |
3 |
|
|
+++ qpsmtpd-0.83/plugins/require_resolvable_fromhost 2012-06-30 16:59:04.000000000 +0100 |
4 |
|
|
@@ -48,7 +48,7 @@ |
5 |
|
|
|
6 |
|
|
return 1 if $host =~ m/^\[(\d{1,3}\.){3}\d{1,3}\]$/; |
7 |
|
|
|
8 |
|
|
- my $res = new Net::DNS::Resolver; |
9 |
|
|
+ my $res = new Net::DNS::Resolver(dnsrch => 0); |
10 |
|
|
$res->tcp_timeout(30); |
11 |
|
|
$res->udp_timeout(30); |
12 |
|
|
my @mx = mx($res, $host); |
13 |
|
|
@@ -106,7 +106,7 @@ |
14 |
|
|
|
15 |
|
|
sub mx_valid { |
16 |
|
|
my ($self, $name, $host) = @_; |
17 |
|
|
- my $res = new Net::DNS::Resolver; |
18 |
|
|
+ my $res = new Net::DNS::Resolver(dnsrch => 0); |
19 |
|
|
# IP in MX |
20 |
|
|
return is_valid($name) if ip_is_ipv4($name) or ip_is_ipv6($name); |
21 |
|
|
|