* Merge changes from prposed changes

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

diff --git a/src/Modules/Kernel.pl b/src/Modules/Kernel.pl
index 3a978372feeaa72eb6278876337c231c6f049564..12ae9d0d6eb53f75aada6ffd213cf42a8837ce94 100644 (file)
--- a/src/Modules/Kernel.pl
+++ b/src/Modules/Kernel.pl
@@ -12,13 +12,18 @@ sub kernelGetInfo {
 }
 
 sub Kernel {
-    my $return = "Linux kernel versions";
+    my $retval = 'Linux kernel versions';
     my @now = &kernelGetInfo();
     if (!scalar @now) {
        &::msg($::who, "failed.");
        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 //;
@@ -32,9 +37,9 @@ sub Kernel {
        $line =~ s/ for 2.4//;
        $line =~ s/ for 2.2//;
        $line =~ s/ is: */: /;
-       $return .= ", " . $line;
+       $retval .= ', ' . $line;
     }
-    &::msg($::who, $return);
+    &::performStrictReply($retval);
 }
 
 sub kernelAnnounce {
@@ -43,7 +48,7 @@ sub kernelAnnounce {
     my @old;
 
     if (!scalar @now) {
-       &::DEBUG("kA: failure to retrieve.");
+       &::DEBUG('kA: failure to retrieve.');
        return;
     }
 
@@ -91,3 +96,5 @@ sub kernelAnnounce {
 }
 
 1;
+
+# vim:ts=4:sw=4:expandtab:tw=80