From 1103649ce0cd47987c2a911916eb1e4cd8a55b18 Mon Sep 17 00:00:00 2001
From: mgehre <>
Date: Sun, 9 Dec 2012 15:00:36 +0000
Subject: [PATCH] CUL_MAX: misc

git-svn-id: https://svn.fhem.de/fhem/trunk@2293 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/14_CUL_MAX.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/14_CUL_MAX.pm b/fhem/FHEM/14_CUL_MAX.pm
index c8e410ae4..69540bad4 100644
--- a/fhem/FHEM/14_CUL_MAX.pm
+++ b/fhem/FHEM/14_CUL_MAX.pm
@@ -119,6 +119,7 @@ my @waitForAck = ();
 sub
 CUL_MAX_Parse($$)
 {
+  #Attention: there is a limit in the culfw firmware: It only receives messages shorter than 30 bytes (see rf_moritz.h)
   my ($hash, $rmsg) = @_;
 
   if(!exists($modules{CUL_MAX}{defptr})) {
@@ -180,7 +181,7 @@ CUL_MAX_Parse($$)
       Log 5, "CUL_MAX_Parse: Got PairPing (pairmode $shash->{pairmode}), unk1 $unk1, type $type, unk2 $unk2, serial $serial";
       if($shash->{pairmode}) {
         Log 3, "CUL_MAX_Parse: Pairing device $src of type $device_types{$type} with serial $serial";
-        CUL_MAX_Send($shash, "PairPong", $src, "00", "00000000");
+        CUL_MAX_Send($shash, "PairPong", $src, "00");
         #TODO: wait for Ack
         Dispatch($shash, "MAX,define,$src,$device_types{$type},$serial,0,0", {RAWMSG => $rmsg});
         if($device_types{$type} eq "HeatingThermostat" or $device_types{$type} eq "WallMountedThermostat") {
@@ -201,8 +202,6 @@ CUL_MAX_Parse($$)
   return undef;
 }
 
-sub
-
 #All inputs are hex strings, $cmd is one from %msgCmd2Id
 sub
 CUL_MAX_Send(@)