diff options
Diffstat (limited to 'modules/classes.pl')
| -rw-r--r-- | modules/classes.pl | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/modules/classes.pl b/modules/classes.pl index bdde77f..b7f6323 100644 --- a/modules/classes.pl +++ b/modules/classes.pl @@ -82,15 +82,13 @@ sub dnsbl my $strip; if (@dnsbl) { $strip = sprintf("%s.%s.%s.%s", @dnsbl); - print "found host (rev $rev) in $chk->{content} - $strip\n"; + print "found host (rev $rev) in $chk->{content} - $strip\n" unless ($strip eq '216.234.246.150'); } if ((@dnsbl) && (defined($::dnsbl->{query}->{$chk->{content}}->{response}->{$strip}))) { $::lastlookup=$::dnsbl->{query}->{$chk->{content}}->{response}->{$strip}->{content}; print "chk->content: $chk->{content}\n"; print "strip: $strip\n"; print "result: " . $::dnsbl->{query}->{$chk->{content}}->{response}->{$strip}->{content} . "\n"; - print "just part of that: "; - print Dumper( $::dnsbl->{query}->{$chk->{content}} ); # lol really icky hax return 1; } |