2 # Kernel.pl: Frontend to linux.kernel.org.
4 # Version: v0.3 (19990919).
11 return &::getURL("http://www.kernel.org/kdist/finger_banner");
15 my $retval = 'Linux kernel versions';
16 my @now = &kernelGetInfo();
18 &::msg( $::who, "failed." );
22 foreach $line (@now) {
23 $line =~ s/The latest //;
24 $line =~ s/version //;
30 $line =~ s/ for stable//;
31 $line =~ s/ to stable kernels//;
32 $line =~ s/ for 2.4//;
33 $line =~ s/ for 2.2//;
34 $line =~ s/ is: */: /;
35 $retval .= ', ' . $line;
37 &::performStrictReply($retval);
41 my $file = "$::param{tempDir}/kernel.txt";
42 my @now = &kernelGetInfo();
46 &::DEBUG('kA: failure to retrieve.');
51 open( OUT, ">$file" );
69 for ( my $i = 0 ; $i < scalar(@old) ; $i++ ) {
70 next if ( $old[$i] eq $now[$i] );
71 push( @new, $now[$i] );
74 if ( scalar @now != scalar @old ) {
75 &::DEBUG("kA: scalar mismatch; removing and exiting.");
81 &::DEBUG("kA: no new kernels.");
85 open( OUT, ">$file" );
96 # vim:ts=4:sw=4:expandtab:tw=80