src/lib/Torrus/DevDiscover/RFC2011_IP_MIB.pm

   1 #  Copyright (C) 2005  Stanislav Sinyagin
   2 #
   3 #  This program is free software; you can redistribute it and/or modify
   4 #  it under the terms of the GNU General Public License as published by
   5 #  the Free Software Foundation; either version 2 of the License, or
   6 #  (at your option) any later version.
   7 #
   8 #  This program is distributed in the hope that it will be useful,
   9 #  but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 #  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 #  GNU General Public License for more details.
  12 #
  13 #  You should have received a copy of the GNU General Public License
  14 #  along with this program; if not, write to the Free Software
  15 #  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
  16
  17 # Stanislav Sinyagin <ssinyagin@yahoo.com>
  18
  19 # Discovery module for IP-MIB (RFC 2011)
  20 # This module does not generate any XML, but provides information
  21 # for other discovery modules. For the sake of discovery time and traffic,
  22 # it is not implicitly executed during the normal discovery process.
  23
  24 package Torrus::DevDiscover::RFC2011_IP_MIB;
  25
  26 use strict;
  27 use warnings;
  28
  29 use Torrus::Log;
  30
  31 our $VERSION = 1.0;
  32
  33 our %oiddef =
  34     (
  35      # IP-MIB
  36      'ipNetToMediaTable'       => '1.3.6.1.2.1.4.22',
  37      'ipNetToMediaPhysAddress' => '1.3.6.1.2.1.4.22.1.2',
  38      );
  39
  40
  41
  42
  43 sub discover
  44 {
  45     my $dd = shift;
  46     my $devdetails = shift;
  47
  48     my $data = $devdetails->data();
  49     my $session = $dd->session();
  50
  51     my $table = $session->get_table( -baseoid =>
  52                                      $dd->oiddef('ipNetToMediaPhysAddress'));
  53
  54     if( not defined($table) or scalar(keys %{$table}) == 0 )
  55     {
  56         return 0;
  57     }
  58
  59     $devdetails->storeSnmpVars( $table );
  60
  61     for my $INDEX
  62         ( $devdetails->
  63           getSnmpIndices( $dd->oiddef('ipNetToMediaPhysAddress') ) )
  64     {
  65         my( $ifIndex, @ipAddrOctets ) = split( '\.', $INDEX );
  66         my $ipAddr = join('.', @ipAddrOctets);
  67
  68         my $interface = $data->{'interfaces'}{$ifIndex};
  69         next if not defined( $interface );
  70
  71         my $phyAddr =
  72             $devdetails->snmpVar($dd->oiddef('ipNetToMediaPhysAddress') .
  73                                  '.' . $INDEX);
  74
  75         $interface->{'ipNetToMedia'}{$ipAddr} = $phyAddr;
  76         $interface->{'mediaToIpNet'}{$phyAddr} = $ipAddr;
  77
  78         # Cisco routers assign ARP to subinterfaces, but MAC accounting
  79         # to main interfaces. Let them search in a global table
  80         $data->{'ipNetToMedia'}{$ipAddr} = $phyAddr;
  81         $data->{'mediaToIpNet'}{$phyAddr} = $ipAddr;
  82     }
  83
  84     return 1;
  85 }
  86
  87
  88
  89 1;
  90
  91
  92 # Local Variables:
  93 # mode: perl
  94 # indent-tabs-mode: nil
  95 # perl-indent-level: 4
  96 # End: