tyler.durden
/
centreon-plugins
mirror of https://github.com/centreon/centreon-plugins.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

handle negative values in change_bytes method

This commit is contained in:
Colin Gagnaire 2019-03-19 15:51:43 +01:00
parent cf1613fe30
commit 723c2e2351
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
centreon/plugins/perfdata.pm
View File

@ -134,17 +134,23 @@ sub trim {
sub change_bytes {
my ($self, %options) = @_;
my $value = $options{value};
my $divide = defined($options{network}) ? 1000 : 1024;
my @units = ('K', 'M', 'G', 'T');
my $unit = '';
my $sign = '';
$sign = '-' if ($value != abs($value));
$value = abs($value);
for (my $i = 0; $i < scalar(@units); $i++) {
last if (($options{value} / $divide) < 1);
last if (($value / $divide) < 1);
$unit = $units[$i];
$options{value} = $options{value} / $divide;
$value = $value / $divide;
}
return (sprintf("%.2f", $options{value}), $unit . (defined($options{network}) ? 'b' : 'B'));
return (sprintf("%.2f", $sign . $value), $unit . (defined($options{network}) ? 'b' : 'B'));
}
1;