* Add vim formatting comments ( # vim:ts=4:sw=4:expandtab:tw=80 )

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

diff --git a/src/Modules/Kernel.pl b/src/Modules/Kernel.pl
index 43312ded1999f8652d6dc3ff9d1c9ead86f7112c..fe842a68bf54854a914ae3dbf92610da70e434c4 100644 (file)
--- a/src/Modules/Kernel.pl
+++ b/src/Modules/Kernel.pl
@@ -8,19 +8,33 @@
 package Kernel;
 
 sub kernelGetInfo {
-    return &getURL("http://www.kernel.org/kdist/finger_banner");
+    return &::getURL("http://www.kernel.org/kdist/finger_banner");
 }
 
 sub Kernel {
+    my $retval = 'Linux kernel versions';
     my @now = &kernelGetInfo();
     if (!scalar @now) {
        &::msg($::who, "failed.");
        return;
     }
 
-    foreach (@now) {
-       &::msg($::who, $_);
+    foreach $line (@now) {
+       $line =~ s/The latest //;
+       $line =~ s/version //;
+       $line =~ s/of //;
+       $line =~ s/the //;
+       $line =~ s/Linux //;
+       $line =~ s/kernel //;
+       $line =~ s/tree //;
+       $line =~ s/ for stable//;
+       $line =~ s/ to stable kernels//;
+       $line =~ s/ for 2.4//;
+       $line =~ s/ for 2.2//;
+       $line =~ s/ is: */: /;
+       $retval .= ', ' . $line;
     }
+    &::performStrictReply($retval);
 }
 
 sub kernelAnnounce {
@@ -29,7 +43,7 @@ sub kernelAnnounce {
     my @old;
 
     if (!scalar @now) {
-       &::DEBUG("kA: failure to retrieve.");
+       &::DEBUG('kA: failure to retrieve.');
        return;
     }
 
@@ -77,3 +91,5 @@ sub kernelAnnounce {
 }
 
 1;
+
+# vim:ts=4:sw=4:expandtab:tw=80