John, > Botnet 0.8 is up and available. It took me a while (things have been > REALLY busy at work for the last 6 months), but it's there. > http://people.ucsc.edu/~jrudd/spamassassin/Botnet-0.8.tar
Thanks, very nice. > What changed between 0.7 and 0.8: It seems a patch by Daniel J McDonald was left out. See: http://marc.info/?t=118133681000003 http://marc.info/?l=spamassassin-users&m=118194701009930 Here it is, applicable to Botnet-0.8: --- Botnet.pm.ori Mon Aug 6 15:59:16 2007 +++ Botnet.pm Mon Aug 6 16:02:43 2007 @@ -711,5 +711,14 @@ (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 @@ -834,5 +843,14 @@ 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 = ""; Mark
