From 45a0461a9696a3bf07aafb58a84f3150c7c396ec Mon Sep 17 00:00:00 2001 From: William Heimbigner Date: Thu, 26 Jan 2012 07:25:42 +0000 Subject: Disable extraneous printing unless in debug mode --- modules/classes.pl | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'modules/classes.pl') 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}; -- cgit v1.2.3