From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 13 Feb 2001 15:35:16 +0000 (+0000)
Subject: on-ban reason does not work... added debugging
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f14f76444b8b0f5c9d838af4e5702e53313736b0;p=infobot.git

on-ban reason does not work... added debugging


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@393 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/src/IRC/IrcHooks.pl b/src/IRC/IrcHooks.pl
index a5a8156..baa7454 100644
--- a/src/IRC/IrcHooks.pl
+++ b/src/IRC/IrcHooks.pl
@@ -443,6 +443,9 @@ sub on_join {
 	    next unless (exists $bans{$_}{$mask});
 
 	    my @array	= @{ $bans{$_}{$mask} };
+	    foreach (@array) {
+		&DEBUG("on_join: ban: array => '$_'");
+	    }
 	    $reason	||= $array[4];
 	    last;
 	}