spamassassin-botnet/P/spamassassin-botnet-0.8-dnsresolver.patch

diff -Nur -x '*.orig' -x '*.rej' spamassassin-botnet-0.8/Botnet.pm mezzanine_patched_spamassassin-botnet-0.8/Botnet.pm
--- spamassassin-botnet-0.8/Botnet.pm   2007-08-05 19:53:55.000000000 -0600
+++ mezzanine_patched_spamassassin-botnet-0.8/Botnet.pm 2007-08-27 14:18:43.000000000 -0600
@@ -710,7 +710,16 @@
         ($type =~ /^(?:A|MX)$/) &&
         (defined $max) &&
         ($max =~ /^-?\d+$/) ) {
-      $resolver = Net::DNS::Resolver->new();
+       $resolver = Net::DNS::Resolver->new(
+               udp_timeout => 5,
+               tcp_timeout => 5,
+               retrans => 0,
+               retry => 1,
+               persistent_tcp => 0,
+               persistent_udp => 0,
+               dnsrch => 0,
+               defnames => 0,
+       );
       if ($query = $resolver->search($name, $type)) {
          # found matches
          $i = 0;
@@ -833,7 +842,16 @@
 sub get_rdns {
    my ($ip) = @_;
    my ($query, @answer, $rr);
-   my $resolver = Net::DNS::Resolver->new();
+   my $resolver = Net::DNS::Resolver->new(
+       udp_timeout => 5,
+       tcp_timeout => 5,
+       retrans => 0,
+       retry => 1,
+       persistent_tcp => 0,
+       persistent_udp => 0,
+       dnsrch => 0,
+       defnames => 0,
+       );
    my $name = "";
 
    if ($query = $resolver->query($ip, 'PTR', 'IN')) {
1	gregswallow	1.1	diff -Nur -x '.orig' -x '.rej' spamassassin-botnet-0.8/Botnet.pm mezzanine_patched_spamassassin-botnet-0.8/Botnet.pm
2			--- spamassassin-botnet-0.8/Botnet.pm 2007-08-05 19:53:55.000000000 -0600
3			+++ mezzanine_patched_spamassassin-botnet-0.8/Botnet.pm 2007-08-27 14:18:43.000000000 -0600
4			@@ -710,7 +710,16 @@
5			($type =~ /^(?:A\|MX)$/) &&
6			(defined $max) &&
7			($max =~ /^-?\d+$/) ) {
8			- $resolver = Net::DNS::Resolver->new();
9			+ $resolver = Net::DNS::Resolver->new(
10			+ udp_timeout => 5,
11			+ tcp_timeout => 5,
12			+ retrans => 0,
13			+ retry => 1,
14			+ persistent_tcp => 0,
15			+ persistent_udp => 0,
16			+ dnsrch => 0,
17			+ defnames => 0,
18			+ );
19			if ($query = $resolver->search($name, $type)) {
20			# found matches
21			$i = 0;
22			@@ -833,7 +842,16 @@
23			sub get_rdns {
24			my ($ip) = @_;
25			my ($query, @answer, $rr);
26			- my $resolver = Net::DNS::Resolver->new();
27			+ my $resolver = Net::DNS::Resolver->new(
28			+ udp_timeout => 5,
29			+ tcp_timeout => 5,
30			+ retrans => 0,
31			+ retry => 1,
32			+ persistent_tcp => 0,
33			+ persistent_udp => 0,
34			+ dnsrch => 0,
35			+ defnames => 0,
36			+ );
37			my $name = "";
38
39			if ($query = $resolver->query($ip, 'PTR', 'IN')) {