mir/lm-sensors
2
0
Fork 0
mirror of https://github.com/lm-sensors/lm-sensors synced 2025-09-05 08:45:26 +00:00
Code Issues Releases Wiki Activity

Display the BIOS version (from dmidecode). Not used for now, but

Browse Source 
may be later.


git-svn-id: http://lm-sensors.org/svn/lm-sensors/trunk@1650 7894878c-1315-0410-8ee3-d5d059ff63e0
This commit is contained in:
Jean Delvare
2002-11-26 17:03:02 +00:00
parent 4f973f2d89
commit f5728af145
1 changed files with 28 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
prog/detect/sensors-detect
View File

@@ -2900,17 +2900,37 @@ sub system_safeness_by_dmi
return 0;
}
my $line;
while (defined ($line = <DMI>) && $line !~ m/^\s*System Information/) {}
while (defined ($line = <DMI>) && $line !~ m/^\s*Vendor:/) {}
my ($dmitype, $biosversion, $systemvendor);
while (<DMI>)
{
if (m/^\s*DMI type (\d+),/)
{
$dmitype = $1;
next;
}
next unless defined $dmitype;
if ($dmitype == 1 && m/^\s*Vendor: (.*)$/)
{
$systemvendor = $1;
}
elsif ($dmitype == 0 && m/^\s*Version: (.*)$/)
{
$biosversion = $1;
}
last if (defined $biosversion && defined $systemvendor);
}
close (DMI);
if ((defined $line) && ($line =~ m/^\s*Vendor: (.*)$/) && ($1 !~ /^\s*$/))
if (defined $systemvendor && $systemvendor !~ m/^\s*$/)
{
my $vendor = $1;
$vendor =~ s/\s*$//;
print " System vendor (DMI): $vendor\n";
return 'IBM' if $vendor =~ /\bIBM\b/;
$systemvendor =~ s/\s*$//;
print " System vendor (DMI): $systemvendor\n";
if (defined $biosversion && $biosversion !~ m/^\s*$/)
{
$biosversion =~ s/\s*$//;
print " BIOS version (DMI): $biosversion\n";
}
return 'IBM' if $systemvendor =~ /\bIBM\b/;
return '1';
}