Биллинговая система Nodeny

$type{ link_control } = {
  cfg => {
    Show => [
        sysDescr,
        sysLocation,
        sysUpTime,
        first_remote_ip,
        second_remote_ip,
    ],
  },
  obj => {
    sysDescr            => {
        oid  => '1.3.6.1.2.1.1.1',
        name => 'Описание',
    },
    sysUpTime           => {
        oid  => '1.3.6.1.2.1.1.3',
        name => 'Uptime',
    },
    sysLocation         => {
        oid  => '1.3.6.1.2.1.1.6',
        name => 'Расположение',
    },
    first_remote_ip     => {
        oid  => '1.3.6.1.4.1.12350.2.105.2.8',
        name => 'Пингует ip',
    },
    second_remote_ip    => {
        oid  => '1.3.6.1.4.1.12350.2.105.2.10',
        name => 'Потом пингует',
    },
  }
};

$c->Object('xxxxx',
    oid  => 'x.x.x.x.x.x.x.x',
    name => 'Сигнал RX',
    values => sub {
        my($value) = @_;
        return '' if $value == -65535;
        return $value / 10;
    }
);

$c->Object('xxxxx',
    oid  => 'x.x.x.x.x.x.x.x',
    name => 'Mac ONU',
    values => sub {
        my($value) = @_;
        $value =~ s/^0x//;
        return [ url->a($value, a => 'mac_info', mac => $value) ];
    }
);

Type of arg 1 to keys must be hash or array (not private variable) at /usr/local/nodeny/web/_ajSnmpInfo.pl line 92, near "$res or"
Compilation failed in require at /usr/local/nodeny/web/calls.pm line 1216.
Compilation failed in require at /usr/local/nodeny/web/calls.pm line 1216.

cd /usr/ports/net-mgmt/p5-Net-SNMPTrapd && make install clean
===>   p5-Net-SNMPTrapd-0.12 depends on package: p5-Convert-ASN1>=0.22 - not found
===>    Verifying install for p5-Convert-ASN1>=0.22 in /usr/ports/converters/p5-Convert-ASN1
===>   p5-Convert-ASN1-0.27 depends on package: p5-Math-BigInt>=1.997 - not found
===>    Verifying install for p5-Math-BigInt>=1.997 in /usr/ports/math/p5-Math-BigInt
===>  Installing for p5-Math-BigInt-1.997
===>   p5-Math-BigInt-1.997 depends on file: /usr/local/bin/perl5.12.4 - found
===>  Checking if p5-Math-BigInt already installed
===>   Registering installation for p5-Math-BigInt-1.997 as automatic
pkg-static: lstat(/usr/ports/math/p5-Math-BigInt/work/stage/usr/local/lib/perl5/site_perl/5.12/Math/BigFloat.pm): No such file or directory
pkg-static: lstat(/usr/ports/math/p5-Math-BigInt/work/stage/usr/local/lib/perl5/site_perl/5.12/Math/BigInt.pm): No such file or directory
pkg-static: lstat(/usr/ports/math/p5-Math-BigInt/work/stage/usr/local/lib/perl5/site_perl/5.12/Math/BigInt/Calc.pm): No such file or directory
pkg-static: lstat(/usr/ports/math/p5-Math-BigInt/work/stage/usr/local/lib/perl5/site_perl/5.12/Math/BigInt/CalcEmu.pm): No such file or directory
pkg-static: lstat(/usr/ports/math/p5-Math-BigInt/work/stage/usr/local/lib/perl5/site_perl/5.12/mach/auto/Math/BigInt/.packlist): No such file or directory
pkg-static: lstat(/usr/ports/math/p5-Math-BigInt/work/stage/usr/local/lib/perl5/5.12/man/man3/Math::BigFloat.3.gz): No such file or directory
pkg-static: lstat(/usr/ports/math/p5-Math-BigInt/work/stage/usr/local/lib/perl5/5.12/man/man3/Math::BigInt.3.gz): No such file or directory
pkg-static: lstat(/usr/ports/math/p5-Math-BigInt/work/stage/usr/local/lib/perl5/5.12/man/man3/Math::BigInt::Calc.3.gz): No such file or directory
pkg-static: lstat(/usr/ports/math/p5-Math-BigInt/work/stage/usr/local/lib/perl5/5.12/man/man3/Math::BigInt::CalcEmu.3.gz): No such file or directory
pkg-static: lstat(/usr/ports/math/p5-Math-BigInt/work/stage/usr/local/lib/perl5/site_perl/5.12/mach/auto/Math/BigInt/): No such file or directory
pkg-static: lstat(/usr/ports/math/p5-Math-BigInt/work/stage/usr/local/lib/perl5/site_perl/5.12/mach/auto/Math/): No such file or directory
pkg-static: lstat(/usr/ports/math/p5-Math-BigInt/work/stage/usr/local/lib/perl5/site_perl/5.12/Math/BigInt/): No such file or directory
pkg-static: lstat(/usr/ports/math/p5-Math-BigInt/work/stage/usr/local/lib/perl5/site_perl/5.12/Math/): No such file or directory
*** [fake-pkg] Error code 74

Stop in /usr/ports/math/p5-Math-BigInt.
*** [build-depends] Error code 1

Stop in /usr/ports/converters/p5-Convert-ASN1.
*** [build-depends] Error code 1

Stop in /usr/ports/net-mgmt/p5-Net-SNMPTrapd.

keys $res

keys %$res

Type of arg 1 to shift must be array (not anonymous list ([])) at /usr/local/nodeny/web/_ajSnmpSearchMac.pl line 102, near "]) "

Патчим nod/snmp.pl модулями snmp
Патчим cfg/snmp.cfg.pm модулями MyNetwork
  зависит от snmp:cfg/snmp.cfg.pm, который еще не обработан
Патчим web/ajNoMapInfo.pl модулями pingserver
  зависит от map:web/ajNoMapInfo.pl, который еще не обработан

nodeny/modules/MyNetwork # cat patch.cfg.snmp.cfg.pm
#<ACTION> file=>'cfg/snmp.cfg.pm',hook=>'end',after=>'snmp'

%connection = (
    Community => 'snmptti',
    Version   => 2,
);

$c = Get_config 'Planet';
$c->Set_connection( %connection );

$c = Get_config 'DLink';
$c->Set_connection( %connection );

$c = Get_config 'Switch';
$c->Set_connection( %connection );

$c->Object('sysContact',
    oid  => '1.3.6.1.2.1.1.4.0',
    name => 'Тестовый параметр',
);
$c->Add_show_param('sysContact');

$c = New_Config 'PING3', 'Switch';
$c->Set_connection( %connection );

$c->Param('Switch', 0);

$c->Object('firmwareVersion',
    oid  => '1.3.6.1.4.1.35160.1.1.0',
    name => 'Серийный номер',
);
$c->Object('uptimeSeconds',
    oid  => '1.3.6.1.4.1.35160.1.2.0',
    name => 'Время работы, сек',
);
$c->Object('deviceName',
    oid  => '1.3.6.1.4.1.35160.1.7.0',
    name => 'Имя',
    set  => 'string',
);
$c->Object('deviceDescription',
    oid  => '1.3.6.1.4.1.35160.1.8.0',
    name => 'Описание',
    set  => 'string',
);

$c->Param('Show', [
  'firmwareVersion', 'uptimeSeconds', 'deviceName', 'deviceDescription',
]);

huawei
.1.3.6.1.4.1.2011.6.10.1.2.4.1.2.1 i 1 
.1.3.6.1.4.1.2011.6.10.1.2.4.1.9.1 i 4

 Db->do("ALTER TABLE `data0` ADD `_snmp` VARCHAR(255) NOT NULL DEFAULT ''");
 Db->do("ALTER TABLE `data0` ADD INDEX (`_snmp`)");

+---------------+---------------------+------+-----+---------+----------------+
| Field         | Type                | Null | Key | Default | Extra          |
+---------------+---------------------+------+-----+---------+----------------+
| _snmp         | varchar(255)        | NO   | MUL |         |                |
| _mac          | varchar(255)        | NO   | MUL |         |                |
+---------------+---------------------+------+-----+---------+----------------+

GRANT ALL PRIVILEGES ON *.* TO '***'@'localhost' IDENTIFIED BY PASSWORD '********************' WITH GRANT OPTION 

66-5544332211

mysql> select _mac,id from data0 where _mac='665544332211';
+--------------+------+
| _mac         | id   |
+--------------+------+
| 665544332211 | 7034 |
+--------------+------+
1 row in set (0.01 sec)

mysql> select uid,device_mac from mac_uid where device_mac='665544332211';
+------+--------------+
| uid  | device_mac   |
+------+--------------+
| 5305 | 665544332211 |
+------+--------------+
1 row in set (0.01 sec)

mysql> select _mac,id from data0 where id=7034;
+--------------+------+
| _mac         | id   |
+--------------+------+
| 000000006611 | 7034 |
+--------------+------+
1 row in set (0.00 sec)

mysql> select uid,device_mac from mac_uid where uid=5305;
+------+------------+
| uid  | device_mac |
+------+------------+
| 5305 | 6611       |
+------+------------+
1 row in set (0.00 sec)

grep devive_mac_field /usr/local/nodeny/cfg/RU/_tune.cfg

IF-MIB::ifDescr.1 = STRING: InLoopBack0
IF-MIB::ifDescr.2 = STRING: NULL0
IF-MIB::ifDescr.5 = STRING: Ethernet0/0/1
IF-MIB::ifDescr.6 = STRING: Ethernet0/0/2
IF-MIB::ifDescr.7 = STRING: Ethernet0/0/3
IF-MIB::ifDescr.8 = STRING: Ethernet0/0/4
IF-MIB::ifDescr.9 = STRING: Ethernet0/0/5
IF-MIB::ifDescr.10 = STRING: Ethernet0/0/6
IF-MIB::ifDescr.11 = STRING: Ethernet0/0/7
IF-MIB::ifDescr.12 = STRING: Ethernet0/0/8
IF-MIB::ifDescr.13 = STRING: Ethernet0/0/9
IF-MIB::ifDescr.14 = STRING: Ethernet0/0/10
IF-MIB::ifDescr.15 = STRING: Ethernet0/0/11
IF-MIB::ifDescr.16 = STRING: Ethernet0/0/12
IF-MIB::ifDescr.17 = STRING: Ethernet0/0/13
IF-MIB::ifDescr.18 = STRING: Ethernet0/0/14
IF-MIB::ifDescr.19 = STRING: Ethernet0/0/15
IF-MIB::ifDescr.20 = STRING: Ethernet0/0/16
IF-MIB::ifDescr.21 = STRING: Ethernet0/0/17
IF-MIB::ifDescr.22 = STRING: Ethernet0/0/18
IF-MIB::ifDescr.23 = STRING: Ethernet0/0/19
IF-MIB::ifDescr.24 = STRING: Ethernet0/0/20
IF-MIB::ifDescr.25 = STRING: Ethernet0/0/21
IF-MIB::ifDescr.26 = STRING: Ethernet0/0/22
IF-MIB::ifDescr.27 = STRING: Ethernet0/0/23
IF-MIB::ifDescr.28 = STRING: Ethernet0/0/24
IF-MIB::ifDescr.29 = STRING: GigabitEthernet0/0/1
IF-MIB::ifDescr.30 = STRING: GigabitEthernet0/0/2
IF-MIB::ifDescr.31 = STRING: Vlanif2349

.1.3.6.1.2.1.17.1.4.1.2 (ifIndex)

SNMPv2-SMI::mib-2.17.1.4.1.2.1 = INTEGER: 5
SNMPv2-SMI::mib-2.17.1.4.1.2.2 = INTEGER: 6
SNMPv2-SMI::mib-2.17.1.4.1.2.3 = INTEGER: 7
SNMPv2-SMI::mib-2.17.1.4.1.2.4 = INTEGER: 8
SNMPv2-SMI::mib-2.17.1.4.1.2.5 = INTEGER: 9
SNMPv2-SMI::mib-2.17.1.4.1.2.6 = INTEGER: 10
SNMPv2-SMI::mib-2.17.1.4.1.2.7 = INTEGER: 11
SNMPv2-SMI::mib-2.17.1.4.1.2.8 = INTEGER: 12
SNMPv2-SMI::mib-2.17.1.4.1.2.9 = INTEGER: 13
SNMPv2-SMI::mib-2.17.1.4.1.2.10 = INTEGER: 14
SNMPv2-SMI::mib-2.17.1.4.1.2.11 = INTEGER: 15
SNMPv2-SMI::mib-2.17.1.4.1.2.12 = INTEGER: 16
SNMPv2-SMI::mib-2.17.1.4.1.2.13 = INTEGER: 17
SNMPv2-SMI::mib-2.17.1.4.1.2.14 = INTEGER: 18
SNMPv2-SMI::mib-2.17.1.4.1.2.15 = INTEGER: 19
SNMPv2-SMI::mib-2.17.1.4.1.2.16 = INTEGER: 20
SNMPv2-SMI::mib-2.17.1.4.1.2.17 = INTEGER: 21
SNMPv2-SMI::mib-2.17.1.4.1.2.18 = INTEGER: 22
SNMPv2-SMI::mib-2.17.1.4.1.2.19 = INTEGER: 23
SNMPv2-SMI::mib-2.17.1.4.1.2.20 = INTEGER: 24
SNMPv2-SMI::mib-2.17.1.4.1.2.21 = INTEGER: 25
SNMPv2-SMI::mib-2.17.1.4.1.2.22 = INTEGER: 26
SNMPv2-SMI::mib-2.17.1.4.1.2.23 = INTEGER: 27
SNMPv2-SMI::mib-2.17.1.4.1.2.24 = INTEGER: 28
SNMPv2-SMI::mib-2.17.1.4.1.2.25 = INTEGER: 29
SNMPv2-SMI::mib-2.17.1.4.1.2.26 = INTEGER: 30

patch.cfg.snmp.cfg.pm

my $_config_planet = New_Config 'Planet', 'Switch';
$_config_planet->{cfg}{Modify_port} = sub{ $_[0]>100? $_[0] - 100 : undef };

 dot1dTpFdbPort  => {                                # получение порта по маку юзера
        oid  => '1.3.6.1.2.1.17.4.3.1.2.',
        name => 'Порт по маку',
    },

 snmpwalk -v2c -c public ipAddress 1.3.6.1.2.1.17.4.3.1.1.n

	0.233376	
125 _snmp.pl::get
error = 'Received tooBig(1) error-status at error-index 0'
oid = '1.3.6.1.2.1.31.1.1.1.18'
+	0.244256	
125 _snmp.pl::get
error = 'Received tooBig(1) error-status at error-index 0'
oid = '1.3.6.1.2.1.2.2.1.8'
+	0.255181	
125 _snmp.pl::get
error = 'Received tooBig(1) error-status at error-index 0'
oid = '1.3.6.1.2.1.2.2.1.7'
+	0.266659	
125 _snmp.pl::get
error = 'Received tooBig(1) error-status at error-index 0'
oid = '1.3.6.1.2.1.2.2.1.14'
+	0.278703	
125 _snmp.pl::get
error = 'Received tooBig(1) error-status at error-index 0'
oid = '1.3.6.1.2.1.2.2.1.5'

#snmpwalk -v 2c -c *****  192.168.*.* 1.3.6.1.2.1.2.2.1.8
IF-MIB::ifOperStatus.1 = INTEGER: up(1)
IF-MIB::ifOperStatus.2 = INTEGER: up(1)
IF-MIB::ifOperStatus.3 = INTEGER: up(1)
IF-MIB::ifOperStatus.4 = INTEGER: up(1)
IF-MIB::ifOperStatus.5 = INTEGER: up(1)
IF-MIB::ifOperStatus.6 = INTEGER: up(1)
IF-MIB::ifOperStatus.7 = INTEGER: up(1)
IF-MIB::ifOperStatus.8 = INTEGER: up(1)
IF-MIB::ifOperStatus.9 = INTEGER: up(1)
IF-MIB::ifOperStatus.10 = INTEGER: up(1)
IF-MIB::ifOperStatus.11 = INTEGER: up(1)
IF-MIB::ifOperStatus.12 = INTEGER: up(1)
IF-MIB::ifOperStatus.13 = INTEGER: up(1)
IF-MIB::ifOperStatus.14 = INTEGER: up(1)
IF-MIB::ifOperStatus.15 = INTEGER: up(1)
IF-MIB::ifOperStatus.16 = INTEGER: up(1)
IF-MIB::ifOperStatus.17 = INTEGER: up(1)
IF-MIB::ifOperStatus.18 = INTEGER: up(1)
IF-MIB::ifOperStatus.19 = INTEGER: up(1)
IF-MIB::ifOperStatus.20 = INTEGER: up(1)
IF-MIB::ifOperStatus.21 = INTEGER: up(1)
IF-MIB::ifOperStatus.22 = INTEGER: up(1)
IF-MIB::ifOperStatus.23 = INTEGER: up(1)
IF-MIB::ifOperStatus.24 = INTEGER: up(1)
IF-MIB::ifOperStatus.1024 = INTEGER: up(1)
IF-MIB::ifOperStatus.1146 = INTEGER: up(1)
IF-MIB::ifOperStatus.1800 = INTEGER: up(1)
IF-MIB::ifOperStatus.2043 = INTEGER: up(1)
IF-MIB::ifOperStatus.2047 = INTEGER: up(1)
IF-MIB::ifOperStatus.2051 = INTEGER: up(1)
IF-MIB::ifOperStatus.2052 = INTEGER: up(1)
IF-MIB::ifOperStatus.2053 = INTEGER: up(1)
IF-MIB::ifOperStatus.2054 = INTEGER: up(1)
IF-MIB::ifOperStatus.2055 = INTEGER: up(1)
IF-MIB::ifOperStatus.2083 = INTEGER: up(1)
IF-MIB::ifOperStatus.2096 = INTEGER: up(1)
IF-MIB::ifOperStatus.2112 = INTEGER: up(1)
IF-MIB::ifOperStatus.2113 = INTEGER: up(1)
IF-MIB::ifOperStatus.2237 = INTEGER: up(1)
IF-MIB::ifOperStatus.2238 = INTEGER: up(1)
IF-MIB::ifOperStatus.2239 = INTEGER: up(1)
IF-MIB::ifOperStatus.2240 = INTEGER: up(1)
IF-MIB::ifOperStatus.2241 = INTEGER: up(1)
IF-MIB::ifOperStatus.2242 = INTEGER: up(1)
IF-MIB::ifOperStatus.2243 = INTEGER: up(1)
IF-MIB::ifOperStatus.2244 = INTEGER: up(1)
IF-MIB::ifOperStatus.2246 = INTEGER: up(1)
IF-MIB::ifOperStatus.2248 = INTEGER: up(1)
IF-MIB::ifOperStatus.2257 = INTEGER: up(1)
IF-MIB::ifOperStatus.2258 = INTEGER: up(1)
IF-MIB::ifOperStatus.2259 = INTEGER: up(1)
IF-MIB::ifOperStatus.2260 = INTEGER: up(1)
IF-MIB::ifOperStatus.2261 = INTEGER: up(1)
IF-MIB::ifOperStatus.2262 = INTEGER: up(1)
IF-MIB::ifOperStatus.2280 = INTEGER: up(1)
IF-MIB::ifOperStatus.2281 = INTEGER: up(1)
IF-MIB::ifOperStatus.2282 = INTEGER: up(1)
IF-MIB::ifOperStatus.2286 = INTEGER: up(1)
IF-MIB::ifOperStatus.2886 = INTEGER: up(1)
IF-MIB::ifOperStatus.2887 = INTEGER: up(1)
IF-MIB::ifOperStatus.5121 = INTEGER: down(2)
IF-MIB::ifOperStatus.5122 = INTEGER: up(1)

$session->max_msg_size(100000);