mir/lm-sensors
2
0
Fork 0
mirror of https://github.com/lm-sensors/lm-sensors synced 2025-09-04 16:25:18 +00:00
Code Issues Releases Wiki Activity

Use dmidecode to find IPMI interfaces if available. This is required

Browse Source 
if non-standard address or register width are used. And anyway it is
always better to avoid access to random I/O ports.


git-svn-id: http://lm-sensors.org/svn/lm-sensors/trunk@5681 7894878c-1315-0410-8ee3-d5d059ff63e0
This commit is contained in:
Jean Delvare
2009-03-12 16:44:27 +00:00
parent 046c76d4a0
commit 3fce211736
2 changed files with 77 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

82
prog/detect/sensors-detect
View File

@@ -5003,6 +5003,73 @@ sub w83781d_isa_detect
return 8;
}
########
# IPMI #
########
# Returns: number of IPMI interfaces found
sub ipmi_from_smbios
{
my ($version, $if, @ipmi_if);
if (open(local *DMIDECODE, "dmidecode --version 2>/dev/null |")) {
$version = <DMIDECODE>;
close(DMIDECODE);
chomp $version if defined $version;
}
if (!defined $version
|| !($version =~ m/^(\d+).(\d+)$/)
|| !(($1 == 2 && $2 >= 7) || $1 > 2)) {
print "# DMI data unavailable, please consider installing dmidecode 2.7\n".
"# or later for better results.\n";
return;
}
# Parse the output of dmidecode into an array of IPMI interfaces.
# Each entry is a hash with the following keys: type and addr.
$if = -1;
open(local *DMIDECODE, "dmidecode -t 38 2>/dev/null |") or return 0;
while (<DMIDECODE>) {
if (m/^IPMI Device Information/) {
$if++;
next;
}
next unless $if >= 0;
if (m/^\tInterface Type: (.*)$/) {
$ipmi_if[$if]->{type} = "IPMI BMC $1";
$ipmi_if[$if]->{type} =~ s/ \(.*//;
next;
}
if (m/^\tBase Address: (0x[0-9A-Fa-f]+) \(I\/O\)$/) {
$ipmi_if[$if]->{addr} = oct($1);
next;
}
}
close(DMIDECODE);
foreach $if (@ipmi_if) {
if (exists $if->{addr}) {
printf("\%-60s", sprintf("Found `\%s' at 0x\%x... ",
$if->{type}, $if->{addr}));
} else {
printf("\%-60s", sprintf("Found `\%s'... ",
$if->{type}));
}
print "Success!\n".
" (confidence 8, driver `ipmisensors')\n";
my $new_hash = {
conf => 8,
isa_addr => $if->{addr} || 0,
chipname => $if->{type},
};
add_isa_to_chips_detected("ipmisensors", $new_hash);
}
return scalar @ipmi_if;
}
# We simply look for a register at standard locations.
# For KCS, use the STATUS register. For SMIC, use the FLAGS register.
# Incidentally they live at the same offset.
@@ -5461,13 +5528,16 @@ sub main
unless (is_laptop()) {
print "Some systems (mainly servers) implement IPMI, a set of common interfaces\n".
"through which system health data may be retrieved, amongst other things.\n".
"We have to read from arbitrary I/O ports to probe for such interfaces.\n".
"This is normally safe. Do you want to scan for IPMI interfaces?\n".
"(YES/no): ";
"We first try to get the information from SMBIOS. If we don't find it\n".
"there, we have to read from arbitrary I/O ports to probe for such\n".
"interfaces. This is normally safe. Do you want to scan for IPMI\n".
"interfaces? (YES/no): ";
unless (<STDIN> =~ /^\s*n/i) {
initialize_ioports();
scan_isa_bus(\@ipmi_ifs);
close_ioports();
if (!ipmi_from_smbios()) {
initialize_ioports();
scan_isa_bus(\@ipmi_ifs);
close_ioports();
}
}
print "\n";
}