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

git-svn-id: https://svn.code.sf.net/p/infobot/code/branches/don/dpkg@1277 c11ca15a-4712-0410-83d8-924469b57eb5

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 //;