|
@ -140,7 +140,7 @@ for $i ( 0 .. $#dimm_list ) { |
|
|
|
|
|
|
|
|
print "\t\t----=== Xeon ROM Cartridge Data ===----\n"; |
|
|
print "\t\t----=== Xeon ROM Cartridge Data ===----\n"; |
|
|
|
|
|
|
|
|
print "\tCartridge Revision:\t\t\t\t\""; |
|
|
|
|
|
|
|
|
print "\tCartridge Revision:\t\t\t\t\""; |
|
|
print pack("cccc",$bytes[2],$bytes[3],$bytes[4],$bytes[5]); |
|
|
print pack("cccc",$bytes[2],$bytes[3],$bytes[4],$bytes[5]); |
|
|
print "\"\n"; |
|
|
print "\"\n"; |
|
|
printf("\tSubstrate Rev. Software ID:\t\t\t0x%.2X\n", |
|
|
printf("\tSubstrate Rev. Software ID:\t\t\t0x%.2X\n", |
|
@ -148,9 +148,9 @@ for $i ( 0 .. $#dimm_list ) { |
|
|
|
|
|
|
|
|
print "\t\t----=== Xeon ROM Part Number Data ===----\n"; |
|
|
print "\t\t----=== Xeon ROM Part Number Data ===----\n"; |
|
|
|
|
|
|
|
|
print "\tProcessor Part Number:\t\t\t\t\""; |
|
|
|
|
|
|
|
|
print "\tProcessor Part Number:\t\t\t\t\""; |
|
|
print pack("ccccccc",$bytes[8],$bytes[9],$bytes[10], |
|
|
print pack("ccccccc",$bytes[8],$bytes[9],$bytes[10], |
|
|
$bytes[11],$bytes[12],$bytes[13],$bytes[14]); |
|
|
|
|
|
|
|
|
$bytes[11],$bytes[12],$bytes[13],$bytes[14]); |
|
|
print "\"\n"; |
|
|
print "\"\n"; |
|
|
$byte15=$byte[15]; |
|
|
$byte15=$byte[15]; |
|
|
|
|
|
|
|
@ -158,7 +158,7 @@ for $i ( 0 .. $#dimm_list ) { |
|
|
$_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/40`; |
|
|
$_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/40`; |
|
|
@bytes=split(" "); |
|
|
@bytes=split(" "); |
|
|
|
|
|
|
|
|
print "\tProcessor BOM ID:\t\t\t\t\""; |
|
|
|
|
|
|
|
|
print "\tProcessor BOM ID:\t\t\t\t\""; |
|
|
print pack("cccccccccccccc",$byte15,$bytes[0],$bytes[1], |
|
|
print pack("cccccccccccccc",$byte15,$bytes[0],$bytes[1], |
|
|
$bytes[2],$bytes[3],$bytes[4],$bytes[5],$bytes[6], |
|
|
$bytes[2],$bytes[3],$bytes[4],$bytes[5],$bytes[6], |
|
|
$bytes[7],$bytes[8],$bytes[9],$bytes[10],$bytes[11], |
|
|
$bytes[7],$bytes[8],$bytes[9],$bytes[10],$bytes[11], |
|
|