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 a5a81566d902789c4da7b48d0dcd6ceb6b5d80a1..baa7454752dcc874358adda6a5abc5dca3104f39 100644 (file)
--- 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;
        }