- now support verstats for those who don't reply to "CTCP VERSION

[infobot.git] / src / IRC / IrcHelpers.pl

diff --git a/src/IRC/IrcHelpers.pl b/src/IRC/IrcHelpers.pl
index 40a3e18976dfc7c65c26dc84d0927c1197f1482c..0bc344d982fe048e7ccc5e127f5c9197d944b1f2 100644 (file)
--- a/src/IRC/IrcHelpers.pl
+++ b/src/IRC/IrcHelpers.pl
@@ -239,7 +239,14 @@ sub hookMsg {
     foreach (@ignore) {
        s/\*/\\S*/g;
 
-       next unless (eval { $nuh =~ /^$_$/i });
+       next unless (eval { $nuh =~ /^$_$/i } );
+
+       # better to ignore an extra message than to allow one to get
+       # through, although it would be better to go through ignore
+       # checking again.
+       if (time() - $cache{ignoreCheckTime} > 60) {
+           &ignoreCheck();
+       }
 
        &status("IGNORE <$who> $message");
        return;