X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2FKernel.pl;h=52c5c108ea5aebff69d1dd819e4bee285d4a9341;hb=b7a878cdc2e3a3b07067b7fa6961f7983ce7c5d3;hp=3a978372feeaa72eb6278876337c231c6f049564;hpb=ed3cbd91ba9fd584a982c60518c43c16d34f1ba2;p=infobot.git

diff --git a/src/Modules/Kernel.pl b/src/Modules/Kernel.pl
index 3a97837..52c5c10 100644
--- a/src/Modules/Kernel.pl
+++ b/src/Modules/Kernel.pl
@@ -12,29 +12,29 @@ sub kernelGetInfo {
 }
 
 sub Kernel {
-    my $return = "Linux kernel versions";
-    my @now = &kernelGetInfo();
-    if (!scalar @now) {
-	&::msg($::who, "failed.");
-	return;
+    my $retval = 'Linux kernel versions';
+    my @now    = &kernelGetInfo();
+    if ( !scalar @now ) {
+        &::msg( $::who, "failed." );
+        return;
     }
 
     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;
+        $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;
     }
-    &::msg($::who, $return);
+    &::performStrictReply($retval);
 }
 
 sub kernelAnnounce {
@@ -42,48 +42,49 @@ sub kernelAnnounce {
     my @now  = &kernelGetInfo();
     my @old;
 
-    if (!scalar @now) {
-	&::DEBUG("kA: failure to retrieve.");
-	return;
+    if ( !scalar @now ) {
+        &::DEBUG('kA: failure to retrieve.');
+        return;
     }
 
-    if (! -f $file) {
-	open(OUT, ">$file");
-	foreach (@now) {
-	    print OUT "$_\n";
-	}
-	close OUT;
+    if ( !-f $file ) {
+        open( OUT, ">$file" );
+        foreach (@now) {
+            print OUT "$_\n";
+        }
+        close OUT;
 
-	return;
-    } else {
-	open(IN, $file);
-	while (<IN>) {
-	    chop;
-	    push(@old,$_);
-	}
-	close IN;
+        return;
+    }
+    else {
+        open( IN, $file );
+        while (<IN>) {
+            chop;
+            push( @old, $_ );
+        }
+        close IN;
     }
 
     my @new;
-    for(my $i=0; $i<scalar(@old); $i++) {
-	next if ($old[$i] eq $now[$i]);
-	push(@new, $now[$i]);
+    for ( my $i = 0 ; $i < scalar(@old) ; $i++ ) {
+        next if ( $old[$i] eq $now[$i] );
+        push( @new, $now[$i] );
     }
 
-    if (scalar @now != scalar @old) {
-	&::DEBUG("kA: scalar mismatch; removing and exiting.");
-	unlink $file;
-	return;
+    if ( scalar @now != scalar @old ) {
+        &::DEBUG("kA: scalar mismatch; removing and exiting.");
+        unlink $file;
+        return;
     }
 
-    if (!scalar @new) {
-	&::DEBUG("kA: no new kernels.");
-	return;
+    if ( !scalar @new ) {
+        &::DEBUG("kA: no new kernels.");
+        return;
     }
 
-    open(OUT, ">$file");
+    open( OUT, ">$file" );
     foreach (@now) {
-	print OUT "$_\n";
+        print OUT "$_\n";
     }
     close OUT;
 
@@ -91,3 +92,5 @@ sub kernelAnnounce {
 }
 
 1;
+
+# vim:ts=4:sw=4:expandtab:tw=80