Subversion Repositories sysadmin_scripts

# also set it up so it is a little more concise by combining redundant code into one routine, parseSNMPQuery, which

# also set it up so it is a little more concise by combining redundant code into one routine, parseSNMPQuery, which

# reads an snmp walk and returns the results as a hash

# reads an snmp walk and returns the results as a hash

# 20200301 RWR v2.1.0

# 20200301 RWR v2.1.0

# added some error checking in snmpwalk when a value is not returned, and also when the MAC address of the switch in

# added some error checking in snmpwalk when a value is not returned, and also when the MAC address of the switch in

# question show up as bridge 0, which has no port (or, actually, all ports). Also, fixed the ignoreports

# question show up as bridge 0, which has no port (or, actually, all ports). Also, fixed the ignoreports

use strict;

use strict;

use warnings;

use warnings;

use Data::Dumper; # only used for debugging

use Data::Dumper; # only used for debugging

use Socket; # for reverse dns entries

use Socket; # for reverse dns entries

my $DEBUG = 0;

my $DEBUG = 0;

# define the version number

# define the version number

# see https://metacpan.org/pod/release/JPEACOCK/version-0.97/lib/version.pod

# see https://metacpan.org/pod/release/JPEACOCK/version-0.97/lib/version.pod

use version;

use version;

# see https://perldoc.perl.org/Getopt/Long.html

# see https://perldoc.perl.org/Getopt/Long.html

use Getopt::Long;

use Getopt::Long;

# allow -vvn (ie, --verbose --verbose --dryrun)

# allow -vvn (ie, --verbose --verbose --dryrun)

Getopt::Long::Configure ("bundling");

Getopt::Long::Configure ("bundling");

# ensures a hash has $name with every value in @keys

# ensures a hash has $name with every value in @keys

# call with &initialize( \%hash, 'somename', 'key1','key2');

# call with &initialize( \%hash, 'somename', 'key1','key2');

# will ensure $hash->{somename}->{key1} and $hash->{somename}->{key2} exist

# will ensure $hash->{somename}->{key1} and $hash->{somename}->{key2} exist

sub initialize {

sub initialize {

   my ( $hash, $name, @keys ) = @_;

   my ( $hash, $name, @keys ) = @_;

   foreach my $key ( @keys ) {

   foreach my $key ( @keys ) {

      $hash->{$name}->{$key} = '' unless $hash->{$name}->{$key};

      $hash->{$name}->{$key} = '' unless $hash->{$name}->{$key};

   }

   }

}

}

# Now, try to match up the MAC address. Read the ARP table from the router(s)

# Now, try to match up the MAC address. Read the ARP table from the router(s)

foreach my $router ( keys %{$config{'routers'}} ) {

foreach my $router ( keys %{$config{'routers'}} ) {

   print "Working on $router\n" if $DEBUG;

   print "Working on $router\n" if $DEBUG;

   my $values = `snmpwalk -v1 -c $config{routers}{$router}{community} $router $ROUTERIPMACMIB`;

   my $values = `snmpwalk -v1 -c $config{routers}{$router}{community} $router $ROUTERIPMACMIB`;

   my @lines = split( "\n", $values );

   my @lines = split( "\n", $values );

   foreach my $line ( @lines ) {

   foreach my $line ( @lines ) {

      $line =~ m/$ROUTERIPMACMIB\.([0-9]+)\.([0-9.]+)\s=\sHex-STRING:\s([0-9a-z ]+)/i;

      $line =~ m/$ROUTERIPMACMIB\.([0-9]+)\.([0-9.]+)\s=\sHex-STRING:\s([0-9a-z ]+)/i;

      my $interface = $1;

      my $interface = $1;

      $mac =~ s/ //g;

      $mac =~ s/ //g;

      &updateIP( \%switchports, $ip, $mac );

      &updateIP( \%switchports, $ip, $mac );

   }

   }

}

}

#die Dumper( \%switchports );

#die Dumper( \%switchports );

# save the state file for later, so we can find things which disappear from the network

# save the state file for later, so we can find things which disappear from the network

my $yaml = YAML::Tiny->new( \%switchports );

my $yaml = YAML::Tiny->new( \%switchports );

$yaml->write( $STATEFILE );

$yaml->write( $STATEFILE );