diff options
Diffstat (limited to 'modules')
| -rw-r--r-- | modules/classes.pl | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/modules/classes.pl b/modules/classes.pl index 74a5b1c..832951d 100644 --- a/modules/classes.pl +++ b/modules/classes.pl @@ -84,13 +84,17 @@ sub dnsbl my $strip; if (@dnsbl) { $strip = sprintf("%s.%s.%s.%s", @dnsbl); - print "found host (rev $rev) in $chk->{content} - $strip\n" unless ($strip eq '216.234.246.150'); + if ($::debug) { + 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"; + if ($::debug) { + print "chk->content: $chk->{content}\n"; + print "strip: $strip\n"; + print "result: " . $::dnsbl->{query}->{$chk->{content}}->{response}->{$strip}->{content} . "\n"; + } $::sn{lc $event->{nick}}->{dnsbl} = 1; # lol really icky hax return $::dnsbl->{query}->{$chk->{content}}->{response}->{$strip}->{content}; |