From 121ea36dbea62a4caa50420d41d0ba916c5f5f25 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sat, 17 Apr 2010 12:54:42 +0000
Subject: [PATCH] Adapting for CUL V.137 (; separated commands)

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

diff --git a/fhem/FHEM/16_CUL_RFR.pm b/fhem/FHEM/16_CUL_RFR.pm
index d283929b3..27c2bc0ad 100755
--- a/fhem/FHEM/16_CUL_RFR.pm
+++ b/fhem/FHEM/16_CUL_RFR.pm
@@ -93,10 +93,9 @@ CUL_RFR_Parse($$)
   elsif($smsg =~ m/^K/) { $hash->{NR_KMSG}++ }
   else                  { $hash->{NR_RMSG}++ }
 
-  $smsg = $1 if($smsg =~ m/^(E[0-9A-F]{20})[REFHKT]/);   # Fixing a CUL/RFR bug
-  $smsg = $1 if($smsg =~ m/^(R[0-9A-F]{12})[REFHKT]/);
-
-  CUL_Parse($hash, $iohash, $hash->{NAME}, $smsg, "X21");
+  foreach my $m (split(";", $smsg)) {
+    CUL_Parse($hash, $iohash, $hash->{NAME}, $m, "X21");
+  }
   return "";
 }
 
@@ -107,6 +106,7 @@ CUL_RFR_DelPrefix($)
   while($msg =~ m/^\d{4}U/) {
     (undef, $msg) = split("U", $msg, 2);
   }
+  $msg =~ s/;([\r\n]*)$/$1/;
   return $msg;
 }