From 1ba74320352df05645b94e37ef652e8e94bc7ac0 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 8 Sep 2011 19:31:07 +0000
Subject: [PATCH] Remove SPD dump (default output) and fix manufacturer id
 decode

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@10474 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/SPD.pm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/perl-xCAT/xCAT/SPD.pm b/perl-xCAT/xCAT/SPD.pm
index 322bb76e7..2fd107f4f 100644
--- a/perl-xCAT/xCAT/SPD.pm
+++ b/perl-xCAT/xCAT/SPD.pm
@@ -619,6 +619,7 @@ sub decode_manufacturer {
         }
     ];
     my $arr_index = shift;
+    $arr_index = $arr_index & 0x7f;
     my $code = shift;
     unless ($code) {
         return "Malformed SPD";
@@ -749,11 +750,11 @@ sub decode_spd {
 				push @{$rethash->{product}->{extra}},"CRC Invalid!";
 		}
 	}
-	my $rawspd="SPD Dump: ";
-	foreach (@spd) {
-		$rawspd .= sprintf("%02X ",$_);
-	}
-	push @{$rethash->{product}->{extra}},$rawspd;
+	#my $rawspd="SPD Dump: ";
+	#foreach (@spd) {
+	#	$rawspd .= sprintf("%02X ",$_);
+	#}
+	#push @{$rethash->{product}->{extra}},$rawspd;
     } else {
         $rethash->{product}->{model}="Unrecognized SPD";
     }