From ea4290ec4cf2dca514acf11e8eb13f476982c428 Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 13 Feb 2001 15:35:16 +0000
Subject: [PATCH] on-ban reason does not work... added debugging

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@393 c11ca15a-4712-0410-83d8-924469b57eb5
---
 blootbot/src/IRC/IrcHooks.pl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/blootbot/src/IRC/IrcHooks.pl b/blootbot/src/IRC/IrcHooks.pl
index a5a8156..baa7454 100644
--- a/blootbot/src/IRC/IrcHooks.pl
+++ b/blootbot/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;
 	}
-- 
2.39.5