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

enhance convert_bytes

This commit is contained in:
garnier-quentin 2020-06-04 13:36:31 +02:00
parent 6c2dbf46c4
commit e36520402c
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
centreon-plugins/centreon/plugins/misc.pm
View File

@ -430,9 +430,15 @@ sub convert_bytes {
my (%options) = @_; my (%options) = @_;
my %expo = (k => 1, m => 2, g => 3, t => 4, p => 5); my %expo = (k => 1, m => 2, g => 3, t => 4, p => 5);
my $value = $options{value}; my ($value, $unit) = ($options{value}, $options{unit});
if (defined($options{pattern})) {
return undef if ($value !~ /$options{pattern}/);
$value = $1;
$unit = $2;
}
my $base = defined($options{network}) ? 1000 : 1024; my $base = defined($options{network}) ? 1000 : 1024;
if ($options{unit} =~ /([kmgt])b/i) { if ($unit =~ /([kmgtp])i?b/i) {
$value = $value * ($base ** $expo{lc($1)}); $value = $value * ($base ** $expo{lc($1)});
} }