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 if ($::who =~ /^\#/) {
23 &::msg($::who, "No, I won't harass the entire channel.");
27 foreach $line (@now) {
28 $line =~ s/The latest //;
29 $line =~ s/version //;
35 $line =~ s/ for stable//;
36 $line =~ s/ to stable kernels//;
37 $line =~ s/ for 2.4//;
38 $line =~ s/ for 2.2//;
39 $line =~ s/ is: */: /;
40 $retval .= ', ' . $line;
42 &::performStrictReply($retval);
46 my $file = "$::param{tempDir}/kernel.txt";
47 my @now = &kernelGetInfo();
51 &::DEBUG('kA: failure to retrieve.');
56 open( OUT, ">$file" );
74 for ( my $i = 0 ; $i < scalar(@old) ; $i++ ) {
75 next if ( $old[$i] eq $now[$i] );
76 push( @new, $now[$i] );
79 if ( scalar @now != scalar @old ) {
80 &::DEBUG("kA: scalar mismatch; removing and exiting.");
86 &::DEBUG("kA: no new kernels.");
90 open( OUT, ">$file" );
101 # vim:ts=4:sw=4:expandtab:tw=80