#!/usr/bin/perl
$VERSION = "/proc/version";
@DISTRIBUTION = (
"plamo", "/usr/lib/setup/plamo-version",
"slackware", "/usr/lib/setup/slack-version",
"debian", "/etc/debian_version",
"vine", "/etc/vine-release",
"suse", "/etc/SuSE-release",
"turbo", "/etc/turbolinux-release",
"kondara", "/etc/kondara-release",
"redhat", "/etc/redhat-release",
);
sub IsLinux {
open(VER, $VERSION) || return undef;
while (<VER>) {
return 1 if (($k_ver[0], $k_ver[1], $k_ver[2], $_)
= /^Linux version (\d*)\.(\d*)\.(\d*)\s*(.*)/i);
}
return undef;
}
sub Distribution {
for ($i=0;$i<$#DISTRIBUTION;$i+=2) {
($system, $file) = @DISTRIBUTION[$i, $i+1];
return $system if (<$file*>);
}
return undef;
}
#
# Sample Main
#
unless (IsLinux()) {
printf("not linux system.\n");
exit(-1);
}
unless ($system = Distribution()) {
$system = "other";
}
printf("%s linux kernel version=%d.%d.%d\n",
$system, $k_ver[0], $k_ver[1], $k_ver[2]);
PR
[PR]
by at 08:34
