From 1428f5b249567a2c02c599e5e61b256d92cfb76f Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sat, 4 Aug 2012 08:11:57 +0000
Subject: [PATCH] Fix for slow fhem-hosts (data is delivered faster, then it is
 parsed)

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@1784 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/00_TCM.pm | 51 +++++++++++++++++++++++++-------------------------
 1 file changed, 25 insertions(+), 26 deletions(-)

diff --git a/FHEM/00_TCM.pm b/FHEM/00_TCM.pm
index 8afa6fe86..1130462f7 100755
--- a/FHEM/00_TCM.pm
+++ b/FHEM/00_TCM.pm
@@ -192,14 +192,16 @@ TCM_Read($)
 
   #############################
   if($hash->{MODEL} == 120) {
-    if($data =~ m/^A55A(.B.{20})(..)/) {
+
+    while($data =~ m/^A55A(.B.{20})(..)/) {
       my ($net, $crc) = ($1, $2);
       my $mycrc = TCM_CSUM($net);
-      $hash->{PARTIAL} = substr($data, 28);
+      my $rest = substr($data, 28);
 
       if($crc ne $mycrc) {
         Log $ll2, "$name: wrong checksum: got $crc, computed $mycrc" ;
-        return;
+        $data = $rest;
+        next;
       }
 
       # Receive Radio Telegram (RRT)
@@ -219,28 +221,24 @@ TCM_Read($)
         TCM_Parse120($hash, $net, 0);
 
       }
+      $data = $rest;
+    }
 
-
-    } else {
-      if(length($data) >= 4) {
-        $data =~ s/.*A55A/A55A/ if($data !~ m/^A55A/);
-        $data = "" if($data !~ m/^A55A/);
-      }
-      $hash->{PARTIAL} = $data;
-
+    if(length($data) >= 4) {
+      $data =~ s/.*A55A/A55A/ if($data !~ m/^A55A/);
+      $data = "" if($data !~ m/^A55A/);
     }
 
   #############################
   } else {                              # TCM310 / ESP3
-    if($data =~ m/^55(....)(..)(..)(..)/) {
+
+    while($data =~ m/^55(....)(..)(..)(..)/) {
       my ($l1, $l2, $t, $crc) = (hex($1), hex($2), $3, $4);
 
       my $tlen = 2*(7+$l1+$l2);
-      if(length($data) < $tlen) {
-        $hash->{PARTIAL} = $data;
-        return;
-      }
-      $hash->{PARTIAL} = substr($data, $tlen);
+      last if(length($data) < $tlen);
+
+      my $rest = substr($data, $tlen);
       $data = substr($data, 0, $tlen);
 
       my $hdr = substr($data, 2, 8);
@@ -250,13 +248,15 @@ TCM_Read($)
       my $mycrc = TCM_CRC8($hdr);
       if($mycrc ne $crc) {
         Log $ll2, "$name: wrong header checksum: got $crc, computed $mycrc" ;
-        return;
+        $data = $rest;
+        next;
       }
       $mycrc = TCM_CRC8($mdata . $odata);
       $crc  = substr($data, -2);
       if($mycrc ne $crc) {
         Log $ll2, "$name: wrong data checksum: got $crc, computed $mycrc" ;
-        return;
+        $data = $rest;
+        next;
       }
 
       if($t eq "01") { # Radio
@@ -287,17 +287,16 @@ TCM_Read($)
 
       }
 
-    } else {
-      if(length($data) >= 4) {
-        $data =~ s/.*55/55/ if($data !~ m/^55/);
-        $data = "" if($data !~ m/^55/);
-      }
-      $hash->{PARTIAL} = $data;
-
+      $data = $rest;
     }
 
+    if(length($data) >= 4) {
+      $data =~ s/.*55/55/ if($data !~ m/^55/);
+      $data = "" if($data !~ m/^55/);
+    }
 
   }
+  $hash->{PARTIAL} = $data;
 }
 
 #####################################