src/lib/Torrus/DevDiscover/Thomson_xDSL.pm

   1 #  Copyright (C) 2011 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., 675 Mass Ave, Cambridge, MA 02139, USA.
  16
  17 # Technicolor Thomson xDSL gateways
  18 # Only interface indexing and naming is handled here.
  19
  20 package Torrus::DevDiscover::Thomson_xDSL;
  21
  22 use strict;
  23 use warnings;
  24
  25 use Torrus::Log;
  26
  27 our $VERSION = 1.0;
  28
  29 $Torrus::DevDiscover::registry{'Thomson_xDSL'} = {
  30     'sequence'     => 500,
  31     'checkdevtype' => \&checkdevtype,
  32     'discover'     => \&discover,
  33     'buildConfig'  => \&buildConfig
  34     };
  35
  36
  37 our %oiddef =
  38     (
  39      'thomson_xDSL_products'     => '1.3.6.1.4.1.2863.405',
  40      );
  41
  42
  43 sub checkdevtype
  44 {
  45     my $dd = shift;
  46     my $devdetails = shift;
  47
  48     if( not $dd->oidBaseMatch
  49         ( 'thomson_xDSL_products',
  50           $devdetails->snmpVar( $dd->oiddef('sysObjectID') ) ) )
  51     {
  52         return 0;
  53     }
  54
  55     $devdetails->setCap('interfaceIndexingPersistent');
  56
  57     &Torrus::DevDiscover::RFC2863_IF_MIB::addInterfaceFilter
  58         ($devdetails,
  59          {
  60              'BRG' => {
  61                  'ifType'  => 6,   # ethernetCsmacd
  62                  'ifDescr' => '^BRG:' } });
  63
  64     return 1;
  65 }
  66
  67
  68 sub discover
  69 {
  70     my $dd = shift;
  71     my $devdetails = shift;
  72
  73     my $data = $devdetails->data();
  74     my $session = $dd->session();
  75
  76     $data->{'nameref'}{'ifSubtreeName'} = 'ifNameT';
  77     $data->{'nameref'}{'ifReferenceName'} = 'ifName';
  78     $data->{'nameref'}{'ifNick'} = 'ifIndex';
  79     $data->{'nameref'}{'ifNodeid'} = 'ifIndex';
  80
  81     undef $data->{'nameref'}{'ifComment'};
  82
  83     $data->{'param'}{'snmp-oids-per-pdu'} = 10;
  84     return 1;
  85 }
  86
  87
  88 sub buildConfig
  89 {
  90     my $devdetails = shift;
  91     my $cb = shift;
  92     my $devNode = shift;
  93     return;
  94 }
  95
  96
  97
  98 1;
  99
 100
 101 # Local Variables:
 102 # mode: perl
 103 # indent-tabs-mode: nil
 104 # perl-indent-level: 4
 105 # End: