git.rot13.org Git - dell-switch/blob - neighbours.pl

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4 use autodie;
   5
   6 # ./sw-name-mac.sh
   7 # ./sw-names | xargs -i ./dell-switch.pl {} 'show lldp neighbors'
   8
   9 use Data::Dump qw(dump);
  10
  11 my $debug = $ENV{DEBUG} || 0;
  12
  13 my $mac2name;
  14
  15 open(my $f, '<'. '/dev/shm/sw-name-mac');
  16 while(<$f>) {
  17         chomp;
  18         #my ( $ip, $name, $mac ) = split(/ /,$_);
  19         my ( $name, $mac ) = split(/ /,$_);
  20         $mac = lc($mac);
  21         $mac2name->{$mac} = $name;
  22 }
  23
  24 sub mac2name {
  25         my ( $mac, $name ) = @_;
  26
  27         $mac = lc($mac);
  28
  29         if ( exists $mac2name->{$mac} ) {
  30                 my $mac_name = $mac2name->{$mac};
  31                 warn "ERROR: name different $name != $mac_name" if $name && $name ne $mac_name;
  32                 return ( $mac, $mac_name );
  33         }
  34         return ( $mac, $name );
  35 }
  36
  37 warn "# mac2name = ",dump($mac2name) if $debug;
  38
  39 open(my $n_fh, '>', '/dev/shm/neighbors.tab');
  40
  41 # parse Dell switch lldp neighbors output
  42
  43 foreach my $file ( glob('log/*lldp*') ) {
  44         my ( undef, $name, undef ) = split(/_/, $file);
  45         print "# $name $file\n" if $debug;
  46
  47         my $line_regex;
  48         my @ports;
  49
  50         open(my $f, '<', $file);
  51         while(<$f>) {
  52                 chomp;
  53                 #print "## $_<--\n";
  54                 next if ( /^$/ || /^\s+Port/ );
  55                 if ( /^--+/ ) {
  56                         $line_regex = $_;
  57                         $line_regex =~ s/\s+$//;
  58                         $line_regex =~ s/-/./g;
  59                         $line_regex =~ s/^/(/g;
  60                         $line_regex =~ s/ /) (/g;
  61                         $line_regex =~ s/$/)/g;
  62
  63                         if ( $file =~ m/remote-device/ ) {
  64                                 $line_regex =~ s{\) \(}{.)(}g;
  65                                 $line_regex =~ s{\(\.+\)$}{(.+)}g;
  66                         }
  67
  68                         print "## line_regex = $line_regex\n" if $debug;
  69                         next;
  70                 }
  71
  72                 s{^\s+}{} if $file =~ m/remote-device/; # remote left-over from pager
  73
  74                 my @v;
  75
  76                 if ( defined($line_regex) &&  /$line_regex/ ) {
  77                         # port, mac, remote_port, system_name, capabilities
  78                         @v = ( $1, $2, $3, $4, $5 );
  79
  80                         if ( $file =~ m/neighbors/ ) {
  81
  82                                 # show lldp neighbours
  83                                 # Port       Device ID          Port ID          System Name     Capabilities
  84
  85                         } elsif ( $file =~ m/remote-device/ ) {
  86
  87                                 # show lldp remote-device all
  88                                 # Interface RemID   Chassis ID          Port ID           System Name
  89
  90                                 @v = ( $v[0], $v[2], $v[3], $v[4], '' );
  91
  92                                 # move overflow numbers from system name to port id
  93                                 if ( $v[3] =~ s{^(\d+)}{} ) {
  94                                         $v[2] .= $1;
  95                                 }
  96
  97                         } else {
  98                                 die "don't know how to parse $file";
  99                         }
 100                 } elsif ( defined($line_regex) && $file =~ m/remote-device/ ) {
 101                         # if we don't have system name, line_regex is too long
 102                         my @s = split(/\s+/,$_);
 103                         @v = ( $s[0], $s[2], $s[3], '', '' ) if $#s == 3;
 104                 } elsif ( $debug ) {
 105                         my $l = $line_regex;
 106                         $l =~ s{[\(\)]}{}g;
 107                         print "# [$_]<-- LINE IGNORED\n# [$l]\n",dump($_);
 108                 }
 109
 110                 if (@v) {
 111                         print "# [$_] ",join('|',@v),$/ if $debug;
 112
 113                         @v = map { s/^\s+//; s/\s+$//; $_ } @v;
 114
 115                         if ( length($v[1]) == 6 ) { # decode text mac
 116                                 $v[1] = unpack('H*', $v[1]);
 117                                 $v[1] =~ s/(..)/$1:/g;
 118                                 $v[1] =~ s/:$//;
 119                         }
 120
 121                         ( $v[1], $v[3] ) = mac2name( $v[1], $v[3] );
 122
 123
 124                         #my ( $port, $device_id, $port_id, $system_name, $cap ) = @v;
 125                         if ( @ports && $v[0] =~ m/^$/ ) {
 126                                 my @old = @{ pop @ports };
 127                                 foreach my $i ( 0 .. $#old ) {
 128                                         $old[$i] .= $v[$i];
 129                                 }
 130                                 push @ports, [ @old ];
 131                         } else {
 132                                 push @ports, [ @v ];
 133                         }
 134                 } else {
 135                         if ( $debug ) {
 136                                 my $l = $line_regex;
 137                                 $l =~ s{[\(\)]}{}g;
 138                                 print "# [$_]<-- IGNORED no v\n# [$l]\n";
 139                         }
 140                 }
 141         }
 142
 143         foreach my $p ( @ports ) {
 144                 next if ( $p->[1] eq lc($p->[2]) && $p->[3] eq '' ); # FIXME hosts?
 145                 print "$name ", join(' | ', @$p ), "\n";
 146                 print $n_fh "$name\t", join("\t", @$p ), "\n";
 147         }
 148 }
 149
 150 # prase MikroTik /ip neighbor print detail terse
 151
 152 foreach my $file ( glob('../mikrotik-switch/out/*neighbor*'), glob('../tilera/out/*neighbor*') ) {
 153         my $name = $1 if $file =~ m{out/([\w\-]+)\.ip neighbor};
 154         print "## [$name] file $file\n" if $debug;
 155         open(my $f, '<', $file);
 156         while(<$f>) {
 157                 chomp;
 158                 next if m/^\s*$/;
 159                 s{^\s*\d+\s+}{}; # remote ordinal number
 160                 print "# $_\n" if $debug;
 161                 my $l;
 162                 foreach my $kv ( split(/ /, $_) ) {
 163                         my ($k,$v) = split(/=/, $kv);
 164                         $l->{$k} = $v if ( defined($v) && $v ne '""' );
 165                 }
 166
 167                 no warnings 'uninitialized';
 168
 169                 #warn "## l=",dump($l),$/;
 170                 # Port       Device ID          Port ID          System Name     Capabilities
 171                 my @v = (
 172                         $l->{interface},
 173                         $l->{'mac-address'},
 174                         $l->{'interface-name'},
 175                         $l->{'identity'},
 176                         #$l->{caps},
 177                         join(' ', $l->{address}, $l->{platform}, $l->{board}, $l->{version} ),
 178                 );
 179
 180                 ( $v[1], $v[3] ) = mac2name( $v[1], $v[3] );
 181
 182                 print "$name ", join(' | ', @v), $/;
 183                 print $n_fh "$name\t", join("\t", @v ), "\n";
 184         }
 185 }