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

Added to_number to Tools.pm

This commit is contained in:
fbsanchez 2017-09-06 12:28:13 +02:00
parent ce4d898deb
commit 40dcf343d6
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
pandora_server/lib/PandoraFMS/Tools.pm
View File

@ -80,6 +80,7 @@ our @EXPORT = qw(
sqlWrap
is_numeric
is_metaconsole
to_number
clean_blank
pandora_sendmail
pandora_trash_ascii
@ -1471,6 +1472,26 @@ sub is_metaconsole ($) {
return 0;
}
###############################################################################
# Check if a given variable contents a number
###############################################################################
sub to_number($) {
my $n = shift;
if ($n =~ /[\d+,]*\d+\.\d+/) {
# American notation
$n =~ s/,//g;
}
elsif ($n =~ /[\d+\.]*\d+,\d+/) {
# Spanish notation
$n =~ s/\.//g;
$n =~ s/,/./g;
}
if(looks_like_number($n)) {
return $n;
}
return undef;
}
#######################
# ENCODE
#######################