From c20580e674c261726994a9faf506c681052ec49c Mon Sep 17 00:00:00 2001 From: Marko Oldenburg Date: Mon, 30 Nov 2015 16:59:28 +0100 Subject: [PATCH] =?UTF-8?q?Analysepunkte=20zum=20Parsen=20des=20Fetchinger?= =?UTF-8?q?gebnis=20hinzugef=C3=BCgt?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 74_HOMEBOT.pm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/74_HOMEBOT.pm b/74_HOMEBOT.pm index 4fe50f5..e54905b 100644 --- a/74_HOMEBOT.pm +++ b/74_HOMEBOT.pm @@ -35,7 +35,7 @@ use Time::HiRes qw(gettimeofday); use HttpUtils; use TcpServerUtils; -my $version = "0.0.6"; +my $version = "0.0.8"; @@ -338,6 +338,8 @@ sub HOMEBOT_Parse_HomebotInfomations($$$) { my @valuestring = split( '=', $data ); + printf "\n\nfirstSplit\n@valuestring\n\n"; + my %buffer; foreach( @valuestring ) { my @values = split( '"' , $_ ); @@ -349,8 +351,12 @@ sub HOMEBOT_Parse_HomebotInfomations($$$) { my $t; my $v; + while( ( $t, $v ) = each %buffer ) { - $v =~ s/null//g; + #$v =~ s/null//g; + + printf "\nReading: $t - Value: $v\n"; + readingsBulkUpdate( $hash, $t, $v ) if( defined( $v ) ); }