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 @now = &kernelGetInfo();
17 &::msg($::who, "failed.");
27 my $file = "$::param{tempDir}/kernel.txt";
28 my @now = &kernelGetInfo();
32 &::DEBUG("kA: failure to retrieve.");
54 for(my $i=0; $i<scalar(@old); $i++) {
55 next if ($old[$i] eq $now[$i]);
59 if (scalar @now != scalar @old) {
60 &::DEBUG("kA: scalar mismatch; removing and exiting.");
66 &::DEBUG("kA: no new kernels.");