fix hide hosts, remove empty values from microtik
authorDobrica Pavlinusic <dpavlin@rot13.org>
Tue, 5 Apr 2022 13:14:35 +0000 (15:14 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Tue, 5 Apr 2022 13:14:35 +0000 (15:14 +0200)
neighbors.pl

index caec745..e799ab3 100755 (executable)
@@ -139,7 +139,7 @@ foreach my $file ( glob('log/*lldp*') ) {
        }
 
        foreach my $p ( @ports ) {
-               next if ( $p->[1] eq $p->[2] && $p->[3] eq '' ); # FIXME hosts?
+               next if ( $p->[1] eq lc($p->[2]) && $p->[3] eq '' ); # FIXME hosts?
                print "$name ", join(' | ', @$p ), "\n";
        }
 }
@@ -158,7 +158,7 @@ foreach my $file ( glob('../mikrotik-switch/out/*neighbor*'), glob('../tilera/ou
                my $l;
                foreach my $kv ( split(/ /, $_) ) {
                        my ($k,$v) = split(/=/, $kv);
-                       $l->{$k} = $v;
+                       $l->{$k} = $v if ( defined($v) && $v ne '""' );
                }
 
                no warnings 'uninitialized';