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	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')) {