CVS: blootbot/src/Modules Kernel.pl,1.8,1.9

[Tim R. <tim...@us...>]

Update of /cvsroot/blootbot/blootbot/src/Modules
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3127/src/Modules

Modified Files:
	Kernel.pl 
Log Message:
cut the cruft

Index: Kernel.pl
===================================================================
RCS file: /cvsroot/blootbot/blootbot/src/Modules/Kernel.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- Kernel.pl	6 Nov 2003 20:09:40 -0000	1.8
+++ Kernel.pl	29 May 2004 20:31:07 -0000	1.9
@@ -12,15 +12,29 @@
 }
 
 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 {