Changeset 1491 for lm-sensors/trunk/prog/detect/sensors-detect

Timestamp:

08/11/02 23:53:21 (11 years ago)

Author:

khali

Message:

Added dmidecode call to sensors-detect to detect IBM systems.

Files:

• lm-sensors/trunk/prog/detect/sensors-detect (modified) (3 diffs)

lm-sensors/trunk/prog/detect/sensors-detect

@@ -34 +34 @@
 #########################
 
-use vars qw(@pci_adapters @chip_ids @undetectable_adapters);
-
-@undetectable_adapters = ( "i2c-elektor","i2c-elv", "i2c-philips-par",
-                           "i2c-velleman" );
+use vars qw(@pci_adapters @chip_ids @undetectable_adapters @dmidecode);
+
+@dmidecode = ( '/usr/local/sbin/dmidecode', '/usr/sbin/dmidecode' );
+
+@undetectable_adapters = ( 'i2c-elektor', 'i2c-elv', 'i2c-philips-par',
+                           'i2c-velleman' );
 
 # This is the list of SMBus or I2C adapters we recognize by their PCI
@@ -2768 +2770 @@
 }
 
+sub safe_system_vendor
+{
+  if ($> != 0)
+  {
+        print " As you are not root, we can't run dmidecode to determine your system vendor.\n";
+        return 0;
+  }
+
+  my $opened = 0;
+  foreach my $dmidecode (@dmidecode)
+  {
+    last if (-r $dmidecode && ($opened = open (DMI, "$dmidecode |")));
+  }
+
+  unless ($opened)
+  {
+    print " Could not find dmidecode, which should have been installed with lm_sensors.\n",
+          " Runing dmidecode would help us determining your system vendor, which allows\n",
+          " safer operations. Please provide one of the following:\n  ";
+    print join ("\n  ", @dmidecode);
+    print "\nYou can still go on, but you are encouraged to fix the problem first.\n";
+    return 0;
+  }
+
+  my $line;
+  while (<DMI>)
+  {
+        next unless m/System Information Block/;
+    $line = <DMI>;    
+    last;
+  }
+  close (DMI);
+
+  if ((defined $line) && ($line =~ m/^\s*Vendor: (.*)$/) && ($1 !~ /^\s*$/))
+  {
+    my $vendor = $1;
+        $vendor =~ s/\s*$//;
+        print " System vendor: $vendor\n";
+    if ($vendor =~ /\bIBM\b/)
+    {
+      print " Sorry, we won't let you go on. IBM systems are known to have serious\n",
+            " problems with lm_sensors, resulting in hardware failures.\n";
+      exit;
+    }
+    return 1;
+  }
+  
+  print " Could not determine system vendor, due to some problem with dmidecode. Please\n",
+        " have it fixed, we use it for safer operations.\n".
+  return 0;
+}
+
 sub main
 {
@@ -2796 +2850 @@
         " seem a bit confusing, but they will still work.\n\n";
 
-  print " IF THIS IS AN IBM THINKPAD, PRESS CTRL-C NOW!\n";
-  print " IBM Thinkpads have a severely broken i2c/SMBus implementation, ";
-  print " just scanning\n";
-  print " the bus will break your thinkpad forever!\n\n";
+  unless (safe_system_vendor ())
+  {
+    print " IF THIS IS AN IBM THINKPAD, PRESS CTRL-C NOW!\n";
+    print " IBM Thinkpads have a severely broken i2c/SMBus implementation, ";
+    print "just scanning\n";
+    print " the bus will break your Thinkpad forever!\n";
+    print " If this is a non-Thinkpad IBM, we still suggest you press CTRL+C. We have\n";
+    print " had users reporting system breakage on other IBM systems as well.\n\n";
+  }
 
   print " We can start with probing for (PCI) I2C or SMBus adapters.\n";