use first destination port

Author: dpavlin

gv-neighbours.pl

@@ -5,7 +5,10 @@
 use Storable;
 use Data::Dump qw(dump);
 
+$|=1;
+
 my $gv = Storable::retrieve( '/tmp/gv.storable' );
+delete $gv->{'sw-core'}->{$_} foreach 7 .. 10; # remove sw-b101 lacp
 warn "# gv = ",dump( $gv );
 
 my @sw = qw( sw-core );
@@ -28,7 +31,12 @@
 warn "XX $sw";
 	foreach my $port ( sort { $a <=> $b } keys %$s ) {
 		my $to_sw   = ( keys %{ $s->{$port}           } )[0];
-		my $to_port = ( keys %{ $s->{$port}->{$to_sw} } )[0];
+		my @to_ports=   keys %{ $s->{$port}->{$to_sw} } ;
+		my $to_port = $to_ports[0];
+
+		if ( scalar @to_ports > 1 ) {
+			warn "ERROR $sw $port -- $to_sw more than one destination port ",dump( @to_ports );
+		}
 
 		next if $to_port eq 'no_port';
 
@@ -38,6 +46,8 @@
 
 		print "$prefix $sw $port $to_sw $to_port\n";
 
+		next if $done_sw->{$to_sw};
+
 		if ( $to_sw =~ m/^sw-/ ) {
 			push @prefix, "$prefix $sw $port $to_sw $to_port";
 			push @sw, $to_sw;