Disable extraneous printing unless in debug mode

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};