2009-10-20 Sancho Lerena <slerena@artica.es>

* tools.pm, core.pm: Float data with "," will be replace this
        character with "." and manage it properly as float.




git-svn-id: https://svn.code.sf.net/p/pandora/code/trunk@2035 c3f86ba8-e40f-0410-aaad-9ba5e7f4b01f

pandora_server/ChangeLog

@@ -1,3 +1,9 @@
+2009-10-20  Sancho Lerena <slerena@artica.es>
+
+        * tools.pm, core.pm: Float data with "," will be replace this
+        character with "." and manage it properly as float.
+
+
 2009-10-16  Sancho Lerena <slerena@artica.es>
 
 	* util/pandora_server: Updated error string when service cannot startup

pandora_server/lib/PandoraFMS/Core.pm

@@ -1010,6 +1010,9 @@ sub process_data ($$$$$) {
 		return undef;
 	}
 
+	# If is a number, we need to replace "," for "."
+	$data =~ s/\,/\./;
+
 	# Out of bounds
 	return undef if (($module->{'max'} != $module->{'min'}) &&
 	                 ($data > $module->{'max'} || $data < $module->{'min'}));
@@ -1027,6 +1030,8 @@ sub process_data ($$$$$) {
 		$data = $data * $module->{'post_process'};
 	}
 
+	# TODO: Float precission should be adjusted here in the future with a global
+	# config parameter
 	# Format data
 	$data = sprintf("%.2f", $data);
 

pandora_server/lib/PandoraFMS/Tools.pm

@@ -191,6 +191,8 @@ sub is_numeric {
 	if (!defined($val)){
 		return 0;
 	}
+	# Replace "," for "."
+	$val =~ s/\,/\./;
 	
 	my $DIGITS = qr{ \d+ (?: [.] \d*)? | [.] \d+ }xms;
 	my $SIGN   = qr{ [+-] }xms;