Blog Gallery Geek Travels Home Contact Archives Links

Geek : Kernel Watch

Kernel Watch

Friday April 5th, 2002

The "Kernel Watch" tells you what the latest versions of the Linux Kernel are. This information can always be found at kernel.org. I get it using PERL.

What's happening here is a classic LWP::Get, which:

1. hits www.kernel.org and pulls in the HTML source from their index page,
2. does some Regex pattern matching to grab the version numbers and their URLs,
3. writes this info to a text file.

We execute this script from a PHP file and then we use to source in the resulting text, and voila!

#!/usr/bin/perl -w
use LWP::Simple;
use strict;
$|=1;
my $kw;
my $safe;
my $sane;
my $nutty;
my $url = "http://www.kernel.org/";
my $tmpfile = "/path/to/data/file";
my $content = get($url);
my $text = $content;
$text=~s/n//g;
if ($text =~ /latest stable version of the Linux kernel is.*?(<a href.*?</a>)/gi) {
   $sane = "Sane: $1<br>";
}
if ($text =~ /latest beta version of the Linux kernel is.*?(<a href.*?</a>)/gi) {
   $nutty = "Nutty: $1<br>";
}
if ($text =~ /latest 2.2 version of the Linux kernel is.*?(<a href.*?</a>)/gi) {
   $safe = "Safe: $1<br>";
}
$text = "$nutty"."n$sane"."n$safe"."n";
open (KW,">$tmpfile");
print KW "$textn";
close KW;
exit;

Posted by Jamie
Comments: 1

Comments: (1)

In the interest of bandwidth conservation, I removed this include from the php file, where it would execute the kernel fetch on demand, and instead am running it only twice a day -- would you believe on my windows box, using ActiveState Perl? When it's done I FTP the text file to the mother ship. I'm actually making use of "windows task scheduler" and old-fashioned BAT files. Please don't hack me.
Teehehe

Posted by bustamelon on 5/7/02 at 10:52 PM EST

Your 2¢ (comments subject to approval)

Home > Geek > 110


Wed December 3rd 2008 8:24 pm	Blog \| Gallery \| Geek \| Travels \| Home \| Contact \| Archives \| Links