From 736b4584f566b1c6b269553b692a1a67d323523e Mon Sep 17 00:00:00 2001
From: justme-1968 <justme-1968@users.noreply.github.com>
Date: Fri, 13 Feb 2015 20:17:35 +0000
Subject: [PATCH] 30_LIGHTIFY.pm: preparation for partial messages

git-svn-id: https://svn.fhem.de/fhem/trunk@7963 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/30_LIGHTIFY.pm | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/30_LIGHTIFY.pm b/fhem/FHEM/30_LIGHTIFY.pm
index ec6614d26..8c35dc47f 100644
--- a/fhem/FHEM/30_LIGHTIFY.pm
+++ b/fhem/FHEM/30_LIGHTIFY.pm
@@ -95,6 +95,7 @@ LIGHTIFY_Connect($)
   my @send_queue = ();
   $hash->{SEND_QUEUE} = \@send_queue;
   $hash->{UNCONFIRMED} = 0;
+  $hash->{PARTIAL} = "";
 
   my $socket = IO::Socket::INET->new( PeerAddr => $hash->{Host},
                                       PeerPort => 4000, #AttrVal($name, "port", 4000)
@@ -356,6 +357,7 @@ LIGHTIFY_Parse($$)
   my $name = $hash->{NAME};
 
   $hex = uc($hex);
+  Log3 $name, 4, "$name: parsing: $hex";
 
   my $length = hex(substr($hex,2*1,2*1).substr($hex,2*0,2*1));
   my $response = substr($hex,2*3,2*1);
@@ -452,9 +454,21 @@ LIGHTIFY_Read($)
   }
 
   my $hex = unpack('H*', $buf);
-  Log3 $name, 4, "$name: received: $hex";
+  Log3 $name, 5, "$name: received: $hex";
 
   LIGHTIFY_Parse($hash, $hex);
+  return undef;
+
+  $hash->{PARTIAL} .= $hex;
+  my $length = hex(substr($hash->{PARTIAL},2*1,2*1).substr($hash->{PARTIAL},2*0,2*1));
+
+  while( $length*2 <= length($hash->{PARTIAL})  ) {
+    $hex = substr($hash->{PARTIAL},0,$length*2);
+    $hash->{PARTIAL} = substr($hash->{PARTIAL},$length*2);
+    $length = hex(substr($hash->{PARTIAL},2*1,2*1).substr($hash->{PARTIAL},2*0,2*1));
+
+    LIGHTIFY_Parse($hash, $hex);
+  }
 }
 
 1;