fix float format

1 files changed, 9 insertions, 3 deletions

diff --git a/elv-weather b/elv-weather
index b993a4c..4413b9c 100755
--- a/elv-weather
+++ b/elv-weather
@@ -46,7 +46,7 @@ my @paths = (
 my $host = shift;
 my $base = shift;
 my $port = shift;
-my ($elv,$mqtt,$line,@data,@prev,$updates);
+my ($elv,$mqtt,$line,@data,@prev,$updates,$topic,$value);
 
 # handle args
 my @devs = glob("/dev/serial/by-id/usb-*ELV_USB-WDE1*");
@@ -111,11 +111,17 @@ while (1) {
 		next;
 	}
 
-	# update mqtt
 	$updates = 0;
 	for my $i (0 .. (scalar(@paths) - 1)) {
 		next if $paths[$i] eq "unused";
-		$mqtt->retain( "$base/$paths[$i]" => "$data[$i]");
+
+		# update mqtt
+		$topic = $base . "/" . $paths[$i];
+		$value = $data[$i];
+		$value =~ s/,/./;	# de -> us float format
+		$mqtt->retain( $topic => $value );
+
+		# log changes
 		if ((!defined($prev[$i]) || $data[$i] ne $prev[$i]) && $verbose) {
 			$updates++;
 			if ($updates == 1) {