infiniband-diags/scripts/ibdiscover.pl

#!/usr/bin/perl

printf (STDERR "*** WARNING ***; this command is deprecated;\n");
printf (STDERR "                 see ibnetdiscover cache features\n");
printf (STDERR "                 and/or iblinkinfo \"check\" features\n\n");

#
# Read mapfile
#
open(MAP, "< ibdiscover.map");

while (<MAP>) {
	($pre, $port, $desc) = split /\|/;
	$val{$pre} = $desc;
	#		print "Ack1 - $pre - $port - $desc\n";
}
close(MAP);

#
# Read old topo map in
#
open(TOPO, "< ibdiscover.topo");
$topomap = 0;

while (<TOPO>) {
	$topomap = 1;
	($localPort, $localGuid, $remotePort, $remoteGuid) = split /\|/;
	chomp $remoteGuid;
	$var = sprintf("%s|%2s|%2s|%s", $localGuid, $localPort, $remotePort,
		$remoteGuid);
	$topo{$var} = 1;
	#	${$pre} = $desc;
	#		print "Ack1 - $pre - $port - $desc\n";
}
close(TOPO);

#
# Read stdin and output enhanced output
#
# Search and replace =0x???? with value
# Search and replace -000???? with value

open(TOPO2, " >ibdiscover.topo.new");
while (<STDIN>) {
	($a, $b, $local, $d) = /([sh])([\s\S]*)=0x([a-f\d]*)([\s\S]*)/;
	if ($local ne "") {
		printf(
			"\n%s GUID: %s  %s\n",
			($a eq "s" ? "Switch" : "Host"),
			$local, $val{$local}
		);
		chomp $local;
		$localGuid = $local;
	} else {
		($localPort, $type, $remoteGuid, $remotePort) =
		  /([\s\S]*)"([SH])\-000([a-f\d]*)"([\s\S]*)\n/;
		($localPort)  = $localPort  =~ /\[(\d*)]/;
		($remotePort) = $remotePort =~ /\[(\d*)]/;
		if ($remoteGuid ne "" && $localPort ne "") {
			printf(TOPO2 "%d|%s|%d|%s\n",
				$localPort, $localGuid, $remotePort, $remoteGuid);
			$var = sprintf("%s|%2s|%2s|%s",
				$localGuid, $localPort, $remotePort, $remoteGuid);
			$topo{$var} += 1;
			printf(
				"Local: %2s  Remote: %2s  %7s  GUID: %s  Location: %s\n",
				$localPort,
				$remotePort,
				($type eq "H" ? "Host" : "Switch"),
				$remoteGuid,
				($val{$remoteGuid} ne "" ? $val{$remoteGuid} : $remoteGuid)
			);
		}
	}
}
close(STDIN);
close(TOPO2);

printf("\nDelta change in topo (change between successive runs)\n\n");

foreach $el (keys %topo) {
	if ($topo{$el} < 2 || $topomap == 0) {
		($lg, $lp, $rp, $rg) = split(/\|/, $el);
		printf(
"Link change:  Local/Remote Port %2d/%2d Local/Remote GUID: %s/%s\n",
			$lp, $rp, $lg, $rg);
		printf("\tLocations: Local/Remote\n\t\t%s\n\t\t%s\n\n",
			$val{$lg}, $val{$rg});
	}
}

printf (STDERR "*** WARNING ***; this command is deprecated;\n");
printf (STDERR "                 see ibnetdiscover cache features\n");
printf (STDERR "                 and/or iblinkinfo \"check\" features\n\n");