From 314d649d175beb87d63555e49f4c35c00e5be20a Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sun, 22 Jul 2012 09:13:52 +0000
Subject: [PATCH] culfw version 1.46 FHT_compress changes

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

diff --git a/fhem/FHEM/16_CUL_RFR.pm b/fhem/FHEM/16_CUL_RFR.pm
index e52eba002..1732101b4 100755
--- a/fhem/FHEM/16_CUL_RFR.pm
+++ b/fhem/FHEM/16_CUL_RFR.pm
@@ -93,6 +93,16 @@ CUL_RFR_Parse($$)
   my @m = split(";", $smsg, -1);  # process only messages terminated with ;
   for(my $i = 0; $i < $#m; $i++) {
     my $m = $m[$i];
+
+    # Compressed FHT messages
+    while($m =~ m/^T(....)(..)(..)(..)(..)(..)(.*)(..)$/) {
+      my ($fhtid, $cmd, $source, $val, $cmd2, $val2, $rest, $rssi) =
+         ($1, $2, $3, $4, $5, $6, $7, $8);
+      my $firstmsg = "T$fhtid$cmd$source$val$rssi";
+      $m = "T$fhtid$cmd2$source$val2$rest$rssi";
+      CUL_Parse($hash, $iohash, $hash->{NAME}, $firstmsg, "X21");
+    }
+
     CUL_Parse($hash, $iohash, $hash->{NAME}, $m, "X21");
        if($m =~ m/^T/) { $hash->{NR_TMSG}++ }
     elsif($m =~ m/^F/) { $hash->{NR_FMSG}++ }