Subversion Repositories sysadmin_scripts

            next if $connection eq 'alias' or $connection eq 'description';

            next if $connection eq 'alias' or $connection eq 'description';

            &initialize( $thisPort,$connection,'mac','ip','hostname','lastseen' );

            &initialize( $thisPort,$connection,'mac','ip','hostname','lastseen' );

            if ( $switchports->{$switch}->{'ports'}->{$port}->{$connection}->{'mac'} eq $mac ) {

            if ( $switchports->{$switch}->{'ports'}->{$port}->{$connection}->{'mac'} eq $mac ) {

               my $modified = &updateValue( \$switchports->{$switch}->{'ports'}->{$port}->{$connection}->{'ip'}, $ip );

               my $modified = &updateValue( \$switchports->{$switch}->{'ports'}->{$port}->{$connection}->{'ip'}, $ip );

               $modified |= &updateValue( \$switchports->{$switch}->{'ports'}->{$port}->{$connection}->{'hostname'},gethostbyaddr( inet_aton( $ip ), AF_INET ));

               $modified |= &updateValue( \$switchports->{$switch}->{'ports'}->{$port}->{$connection}->{'hostname'},gethostbyaddr( inet_aton( $ip ), AF_INET ));

               return;

               return;

            } # if we found it

            } # if we found it

         } # for connection

         } # for connection

      } # for port

      } # for port

   } # for switch

   } # for switch

   use File::Basename;

   use File::Basename;

   print basename($0) . " $VERSION\n";

   print basename($0) . " $VERSION\n";

   print <<END

   print <<END

$0 [options]

$0 [options]

Options:

Options:

   --debug          - set debug level

   --debug          - set debug level

   --version        - display version and exit

   --version        - display version and exit

   --help           - This page

   --help           - This page

END

END

}

}

# handle any command line parameters that may have been passed in

# handle any command line parameters that may have been passed in

my $version = 0; # just used to determine if we should display the version

my $version = 0; # just used to determine if we should display the version

my $help = 0; # also if we want help

my $help = 0; # also if we want help

GetOptions (

GetOptions (

            'debug|d=i'     => \$DEBUG,

            'debug|d=i'     => \$DEBUG,

            'help|h'        => \$help,

            'help|h'        => \$help,

            'version|v'     => \$version,

            'version|v'     => \$version,

            ) or die "Error parsing command line\n";

            ) or die "Error parsing command line\n";

   %switchports = %{ $yaml->[0] };

   %switchports = %{ $yaml->[0] };

}

}

# first, get all of the MAC/Port assignments from the switches

# first, get all of the MAC/Port assignments from the switches

foreach my $switch ( keys %{$config{'switches'}} ) {

foreach my $switch ( keys %{$config{'switches'}} ) {

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

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

   &initialize( \%switchports, $switch, 'name','location' );

   &initialize( \%switchports, $switch, 'name','location' );

   &updateValue(

   &updateValue(

      \$switchports{$switch}{'name'},

      \$switchports{$switch}{'name'},

      &getOneSNMPValue( $DEVICENAMEMIB,$config{'switches'}{$switch}{'community'},$switch, qr/= STRING: "?([^"]*)"?/ )

      &getOneSNMPValue( $DEVICENAMEMIB,$config{'switches'}{$switch}{'community'},$switch, qr/= STRING: "?([^"]*)"?/ )

#print Dumper( \%switchports ); die;

#print Dumper( \%switchports ); die;

# 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;

   print "snmpwalk -v1 -c $config{routers}{$router}{community} $router $ROUTERIPMACMIB\n" if $DEBUG > 1;

   print "snmpwalk -v1 -c $config{routers}{$router}{community} $router $ROUTERIPMACMIB\n" if $DEBUG > 1;

   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;

      my $ip = $2;

      my $ip = $2;

      #$mac =~ s/ //g;

      #$mac =~ s/ //g;

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

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

   }

   }

}

}

   foreach my $portnum (keys %{ $switchports{$switch}{'ports'} } ) {

   foreach my $portnum (keys %{ $switchports{$switch}{'ports'} } ) {

      foreach my $connection ( keys %{ $switchports{$switch}{'ports'}{$portnum} } ) {

      foreach my $connection ( keys %{ $switchports{$switch}{'ports'}{$portnum} } ) {

         next if $connection eq 'description' or $connection eq 'alias';

         next if $connection eq 'description' or $connection eq 'alias';

         my $mac = $switchports{$switch}{'ports'}{$portnum}{$connection}{'mac'};

         my $mac = $switchports{$switch}{'ports'}{$portnum}{$connection}{'mac'};

         # we already have a hostname and IP, so skip to next one

         # we already have a hostname and IP, so skip to next one

         # print "Looking up $switch, port $portnum with mac address $mac\n";

         # print "Looking up $switch, port $portnum with mac address $mac\n";

            }

            }

            }

            }

      } # checking each connection

      } # checking each connection

   } # checking each port number

   } # checking each port number

} # checking each switch

} # checking each switch

#die Dumper( \%switchports );

#die Dumper( \%switchports );