infiniband-diags/scripts/ibidsverify.pl

62 	my ($lid)      = shift(@_);
66 	if ($lid eq 0) {
75 	my ($lid)      = shift(@_);
80 		print "$nodetype GUID 0x0 found with LID $lid\n";
92 	my ($lid)      = shift(@_);
98 	$status = validate_non_zero_lid($lid, $nodeguid, $nodetype);
100 		if (defined($insert_lid::lids{$lid})) {
102 "LID $lid already defined for NodeGUID $insert_lid::lids{$lid}->{nodeguid}\n";
104 			$rec = {lid => $lid, nodeguid => $nodeguid};
105 			$insert_lid::lids{$lid} = $rec;
112 	my ($lid)      = shift(@_);
118 	$status = validate_non_zero_guid($lid, $nodeguid, $nodetype);
122 "NodeGUID $nodeguid already defined for LID $insert_nodeguid::nodeguids{$nodeguid}->{lid}\n";
124 			$rec = {lid => $lid, nodeguid => $nodeguid};
144 	my ($lid)       = shift(@_);
151 	$status = validate_non_zero_guid($lid, $portguid, $nodetype);
155 "PortGUID $portguid already defined for LID $insert_portguid::portguids{$portguid}->{lid}\n";
157 			$rec = {lid => $lid, portguid => $portguid};
178 	my $lid       = "";
199 		if ($line =~ /^Switch.*\"S-(.*)\"\s+# (.*) port.* lid (\d+) .*/) {
202 			$lid       = $3;
203 			insert_lid($lid, $nodeguid, $nodetype);
204 			insert_nodeguid($lid, $nodeguid, $nodetype);
206 				insert_portguid($lid, $portguid, $nodetype, $firstport);
219 			if ($line =~ /"S-(.*)\# lid (\d+) .*/) {
220 				$lid = $2;
221 				insert_lid($lid, $nodeguid, $nodetype);
223 					insert_nodeguid($lid, $nodeguid, $nodetype);
227 			if ($line =~ /^.*"H-(.*)\# lid (\d+) .*/) {
228 				$lid = $2;
229 				insert_lid($lid, $nodeguid, $nodetype);
231 					insert_nodeguid($lid, $nodeguid, $nodetype);
235 			if ($line =~ /^.*"R-(.*)\# lid (\d+) .*/) {
236 				$lid = $2;
237 				insert_lid($lid, $nodeguid, $nodetype);
239 					insert_nodeguid($lid, $nodeguid, $nodetype);
245 				insert_portguid($lid, $portguid, $nodetype, $firstport);