From 021456d323a8d3ea465ecbddc4ab79ef54bcc7be Mon Sep 17 00:00:00 2001
From: sailor-fhem <sailor-fhem@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 2 Feb 2016 14:07:23 +0000
Subject: [PATCH] 73_km200.pm: Bugfix

git-svn-id: https://svn.fhem.de/fhem/trunk@10695 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/73_km200.pm | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

diff --git a/fhem/FHEM/73_km200.pm b/fhem/FHEM/73_km200.pm
index 724e5e3c4..9d5c63e08 100644
--- a/fhem/FHEM/73_km200.pm
+++ b/fhem/FHEM/73_km200.pm
@@ -478,7 +478,7 @@ sub km200_Attr(@)
 		push @temp, "";
 		
 		### Transform string entries seperated by blank into array
-		@KM200_DONOTPOLL = split(/ /, $temp[0]);
+		@KM200_DONOTPOLL = split(/\s+/, $temp[0]);
 
 		### Remove trailing slash of each item if available
 		
@@ -749,7 +749,7 @@ sub km200_Decrypt($)
     $decryptData = decode_base64($decryptData);
 
 	# Check whether the length of the decryptData is NOT multiplies of 16
-	if (length($decryptData)&0xF != 0)
+	if ((length($decryptData)&0xF) != 0)
 	{
 		# Return nothing which will end this subroutine
 		return "";
@@ -800,7 +800,6 @@ sub km200_Decrypt($)
 }
 ####END####### Subroutine Decrypt Data #########################################################################END#####
 
-
 ###START###### Subroutine set individual data value ###########################################################START####
 sub km200_PostSingleService($)
 {
@@ -852,44 +851,44 @@ sub km200_PostSingleService($)
 			   $TempReadingVal		= ReadingsVal($name,($Service . "/1-Mo"),"");
 			   $TempReadingVal		=~ s/\s+/ /g;
 			   $TempReadingVal		=~ s/\s+$//g;
-			my @TempReadingMo 	    = split(/ /, $TempReadingVal,0);
+			my @TempReadingMo 	    = split(/\s+/, $TempReadingVal,0);
 			   
 			   $TempReadingVal		= ReadingsVal($name,($Service . "/2-Tu"),"");
 			   $TempReadingVal		=~ s/\s+/ /g;
 			   $TempReadingVal		=~ s/\s+$//g;
-			my @TempReadingTu 		= split(/ /, $TempReadingVal,0);
+			my @TempReadingTu 		= split(/\s+/, $TempReadingVal,0);
 			   
 			   $TempReadingVal		= ReadingsVal($name,($Service . "/3-We"),"");
 			   $TempReadingVal		=~ s/\s+/ /g;
 			   $TempReadingVal		=~ s/\s+$//g;
-			my @TempReadingWe 		= split(/ /, $TempReadingVal,0);
+			my @TempReadingWe 		= split(/\s+/, $TempReadingVal,0);
 
 			   $TempReadingVal		= ReadingsVal($name,($Service . "/4-Th"),"");
 			   $TempReadingVal		=~ s/\s+/ /g;
 			   $TempReadingVal		=~ s/\s+$//g;
-			my @TempReadingTh 		= split(/ /, $TempReadingVal,0);
+			my @TempReadingTh 		= split(/\s+/, $TempReadingVal,0);
 			
 			   $TempReadingVal		= ReadingsVal($name,($Service . "/5-Fr"),"");
 			   $TempReadingVal		=~ s/\s+/ /g;
 			   $TempReadingVal		=~ s/\s+$//g;
-			my @TempReadingFr 		= split(/ /, $TempReadingVal,0);
+			my @TempReadingFr 		= split(/\s+/, $TempReadingVal,0);
 			
 			   $TempReadingVal		= ReadingsVal($name,($Service . "/6-Sa"),"");
 			   $TempReadingVal		=~ s/\s+/ /g;
 			   $TempReadingVal		=~ s/\s+$//g;
-			my @TempReadingSa 		= split(/ /, $TempReadingVal,0);
+			my @TempReadingSa 		= split(/\s+/, $TempReadingVal,0);
 			
 			   $TempReadingVal		= ReadingsVal($name,($Service . "/7-Su"),"");
 			   $TempReadingVal		=~ s/\s+/ /g;
 			   $TempReadingVal		=~ s/\s+$//g;
-			my @TempReadingSu 		= split(/ /, $TempReadingVal,0);
+			my @TempReadingSu 		= split(/\s+/, $TempReadingVal,0);
 
 			
 			### For value to be written, delete all unnecessary blanks and transform to array and get length of array
 			my $ReturnString		= $hash->{temp}{postdata};
 			   $ReturnString 		=~ s/\s+/ /g;
 			   $ReturnString 		=~ s/\s+$//g;
-			my @TempReading			= split(/ /, $ReturnString);
+			my @TempReading			= split(/\s+/, $ReturnString);
 			my $TempReadingLength	= @TempReading;