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