Changeset 5694

Show
Ignore:
Timestamp:
03/20/09 15:10:14 (6 years ago)
Author:
khali
Message:

Carry the path to eeprom data files around, instead of hard-coding it
in several places. This makes the code less fragile and easier to
modify.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • i2c-tools/trunk/eeprom/decode-dimms

    r5693 r5694  
    14831483        } elsif ($use_sysfs) { 
    14841484                # Kernel 2.6 with sysfs 
    1485                 sysopen(HANDLE, "/sys/bus/i2c/drivers/eeprom/$dimm_i/eeprom", O_RDONLY) 
    1486                         or die "Cannot open /sys/bus/i2c/drivers/eeprom/$dimm_i/eeprom"; 
     1485                sysopen(HANDLE, "$dimm_i/eeprom", O_RDONLY) 
     1486                        or die "Cannot open $dimm_i/eeprom"; 
    14871487                binmode HANDLE; 
    14881488                sysseek(HANDLE, $offset, SEEK_SET); 
     
    14941494                for my $i (0 .. ($size-1)/16) { 
    14951495                        my $hexoff = sprintf('%02x', $offset + $i * 16); 
    1496                         push @bytes, split(" ", `cat /proc/sys/dev/sensors/$dimm_i/$hexoff`); 
     1496                        push @bytes, split(" ", `cat $dimm_i/$hexoff`); 
    14971497                } 
    14981498        } 
     
    16281628                        next if $use_sysfs && $file !~ /^\d+-[\da-f]+$/i; 
    16291629                        next if !$use_sysfs && $file !~ /^eeprom-/; 
    1630                         push @files, $file; 
     1630                        push @files, "$dir/$file"; 
    16311631                } 
    16321632                close(DIR); 
     
    16561656 
    16571657        print "<b><u>" if $opt_html; 
    1658         printl2("\n\nDecoding EEPROM", 
    1659                 $use_hexdump ? $dimm_list[$i] : ($use_sysfs ? 
    1660                 "/sys/bus/i2c/drivers/eeprom/$dimm_list[$i]" : 
    1661                 "/proc/sys/dev/sensors/$dimm_list[$i]")); 
     1658        printl2("\n\nDecoding EEPROM", $dimm_list[$i]); 
    16621659        print "</u></b>" if $opt_html; 
    16631660        print "<table border=1>\n" if $opt_html;