* Dissallow kernel replies going to the entire channel [dpkg specific]

[infobot.git] / src / Modules / Kernel.pl

diff --git a/src/Modules/Kernel.pl b/src/Modules/Kernel.pl
index 45c1190751657efce5f5fca70f7cf258ecd9bf8f..1a762b886e0176ad6ca1fed03ba32348dd16af77 100644 (file)
--- a/src/Modules/Kernel.pl
+++ b/src/Modules/Kernel.pl
@@ -19,6 +19,11 @@ sub Kernel {
        return;
     }
 
+    if ($::who =~ /^\#/) {
+       &::msg($::who, "No, I won't harass the entire channel."); 
+       return undef;
+    }
+
     foreach $line (@now) {
        $line =~ s/The latest //;
        $line =~ s/version //;