tyler.durden/centreon-plugins
1
0
Fork 0
mirror of https://github.com/centreon/centreon-plugins.git synced 2025-07-25 14:44:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fix Big integers

Browse Source
This commit is contained in:
garnier-quentin 2015-08-21 11:38:11 +02:00
parent cbf79fb49d
commit 846adb3a7c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
network/alcatel/isam/snmp/mode/vlantraffic.pm
View File

@ -27,6 +27,7 @@ use warnings;
use centreon::plugins::values; use centreon::plugins::values;
use centreon::plugins::statefile; use centreon::plugins::statefile;
use Digest::MD5 qw(md5_hex); use Digest::MD5 qw(md5_hex);
use bigint qw/hex/; # Need it because we have big counters in octet strings
my $maps_counters = { my $maps_counters = {
vlan => { vlan => {
@ -269,8 +270,8 @@ sub manage_selection {
next if ($_ !~ /^$oid_extendPortVlanCurrent1DayUpFwdByteCounter\.(\d+)\.(\d+)$/); next if ($_ !~ /^$oid_extendPortVlanCurrent1DayUpFwdByteCounter\.(\d+)\.(\d+)$/);
my $vlan_index = $2; my $vlan_index = $2;
my $in = oct("0b". unpack('b*', $self->{results}->{$oid_extendPortVlanCurrent1DayDnFwdByteCounter . '.' . $1 . '.' . $vlan_index})); my $in = hex(unpack('H*', $self->{results}->{$oid_extendPortVlanCurrent1DayDnFwdByteCounter . '.' . $1 . '.' . $vlan_index}));
my $out = oct("0b". unpack('b*', $self->{results}->{$_})); my $out = hex(unpack('H*', $self->{results}->{$_}));
$self->{vlan}->{$vlan_index}->{in} += $in * 8; $self->{vlan}->{$vlan_index}->{in} += $in * 8;
$self->{vlan}->{$vlan_index}->{out} += $out * 8; $self->{vlan}->{$vlan_index}->{out} += $out * 8;