From 2c97c560a45e0d99ac73a151d743f2ba7a6fc125 Mon Sep 17 00:00:00 2001 From: ntruchsess <> Date: Thu, 6 Jun 2013 22:15:14 +0000 Subject: [PATCH] fix OWCOUNT error parsing midnight data when using OWSERVER git-svn-id: https://svn.fhem.de/fhem/trunk@3253 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/21_OWCOUNT.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/fhem/FHEM/21_OWCOUNT.pm b/fhem/FHEM/21_OWCOUNT.pm index 00c3371ad..fcdeedfb0 100644 --- a/fhem/FHEM/21_OWCOUNT.pm +++ b/fhem/FHEM/21_OWCOUNT.pm @@ -80,7 +80,7 @@ use strict; use warnings; sub Log($$); -my $owx_version="3.25"; +my $owx_version="3.26"; #-- fixed raw channel name, flexible channel name my @owg_fixed = ("A","B"); my @owg_channel = ("A","B"); @@ -1027,7 +1027,7 @@ sub OWFSCOUNT_GetPage($$) { $owg_val[0] = $vval; #-- parse float from midnight - $owg_str =~ /([\d\.]+)/; + $owg_str =~ s/[^\d\.]+//g; $owg_str = int($owg_str*100)/100; $owg_str = 0.0 if(!(defined($owg_str))); $owg_midnight[0] = $owg_str; @@ -1044,7 +1044,7 @@ sub OWFSCOUNT_GetPage($$) { $owg_val[1] = $vval; #-- parse float from midnight - $owg_str =~ /([\d\.]+)/; + $owg_str =~ s/[^\d\.]+//g; $owg_str = int($owg_str*100)/100; $owg_str = 0.0 if(!(defined($owg_str))); $owg_midnight[1] = $owg_str;