Have ipmi do wire format, to match ipmitool and microsoft behavior in spite of the spec (which no one follows, not even prior xCAT code)

This commit is contained in:
Jarrod Johnson 2013-11-26 10:26:09 -05:00
parent f83c398450
commit d814b94bde

View File

@ -5996,7 +5996,10 @@ sub gotguid {
my $fru = FRU->new();
$fru->rec_type("guid");
$fru->desc("UUID/GUID");
$fru->value(sprintf("%02X%02X%02X%02X-%02X%02X-%02X%02X-%02X%02X-%02X%02X%02X%02X%02X%02X",@{$rsp->{data}}));
my $binuuid = pack("C*",@{$rsp->{data}});
my @pieces = unpack("VvvNNN",$binuuid);
my @uuid = unpack("C*",pack("NnnNNN",@pieces));
$fru->value(sprintf("%02X%02X%02X%02X-%02X%02X-%02X%02X-%02X%02X-%02X%02X%02X%02X%02X%02X",@uuid));
$sessdata->{fru_hash}->{guid} = $fru;
initfru_withguid($sessdata);
}