- fixed up message flood message (still not ideal)

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

diff --git a/src/IRC/IrcHelpers.pl b/src/IRC/IrcHelpers.pl
index 893011f2af1d1931be73b1fbb1e4a4b0f9311561..18ff34a8b31a32d7fc469a9067db73cbe8a41e78 100644 (file)
--- a/src/IRC/IrcHelpers.pl
+++ b/src/IRC/IrcHelpers.pl
@@ -6,7 +6,7 @@
 #        NOTE: Based on code by Kevin Lenzo & Patrick Cole  (c) 1997
 #
 
-if (&IsParam("useStrict")) { use strict; }
+# use strict;  # TODO
 
 #######################################################################
 ####### IRC HOOK HELPERS   IRC HOOK HELPERS   IRC HOOK HELPERS ########
@@ -196,10 +196,12 @@ sub hookMsg {
 
        my $i = scalar keys %{ $flood{$floodwho} };
        if ($i > $count) {
-           &msg($who,"overflow of messages ($i > $count)");
+           my $expire = $param{'ignoreAutoExpire'} || 5;
+
+#          &msg($who,"overflow of messages ($i > $count)");
+           &msg($who,"Too many queries from you, ignoring for $expire minutes.");
            &status("FLOOD overflow detected from $floodwho; ignoring");
 
-           my $expire = $param{'ignoreAutoExpire'} || 5;
            &ignoreAdd("*!$uh", $chan, $expire, "flood overflow auto-detected.");
            return;
        }