From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sat, 29 May 2004 20:31:07 +0000 (+0000)
Subject: cut the cruft
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e5b29442570b49dfdb77f3eb6ab2749e8a02ff38;p=infobot.git

cut the cruft


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@945 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/blootbot/src/Modules/Kernel.pl b/blootbot/src/Modules/Kernel.pl
index 80eb388..3a97837 100644
--- a/blootbot/src/Modules/Kernel.pl
+++ b/blootbot/src/Modules/Kernel.pl
@@ -12,15 +12,29 @@ sub kernelGetInfo {
 }
 
 sub Kernel {
+    my $return = "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: */: /;
+	$return .= ", " . $line;
     }
+    &::msg($::who, $return);
 }
 
 sub kernelAnnounce {