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.");
73 for(my $i=0; $i<scalar(@old); $i++) {
74 next if ($old[$i] eq $now[$i]);
78 if (scalar @now != scalar @old) {
79 &::DEBUG("kA: scalar mismatch; removing and exiting.");
85 &::DEBUG("kA: no new kernels.");