From 9cf6f49d36a406e159dac52ad9686f03852fee0c Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sat, 22 Mar 2014 11:36:32 +0000
Subject: [PATCH] CUL: speed changes by Martin

git-svn-id: https://svn.fhem.de/fhem/trunk@5286 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_CUL.pm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/fhem/FHEM/00_CUL.pm b/fhem/FHEM/00_CUL.pm
index 25d6d8fce..b13789ac4 100755
--- a/fhem/FHEM/00_CUL.pm
+++ b/fhem/FHEM/00_CUL.pm
@@ -10,7 +10,7 @@ sub CUL_Attr(@);
 sub CUL_Clear($);
 sub CUL_HandleCurRequest($$);
 sub CUL_HandleWriteQueue($);
-sub CUL_Parse($$$$;$);
+sub CUL_Parse($$$$@);
 sub CUL_Read($);
 sub CUL_ReadAnswer($$$$);
 sub CUL_Ready($);
@@ -617,13 +617,12 @@ CUL_WriteTranslate($$$)
     $msg = substr($msg,6,4) . substr($msg,10);
 
   } elsif($fn eq "cmd") {                                  # internal command
-    $fn = "";
     if($msg eq "speed100") { 
-      $msg = "AR";
+      $fn = "AR";
     } elsif($msg eq "speed10") {
-      $msg = "Ar";
+      $fn = "Ar";
     } else {                                        # by default rewrite init
-      $msg = $hash->{initString};
+      $fn = $hash->{initString};
     }
 
   } else {
@@ -763,7 +762,7 @@ CUL_Read($)
 }
 
 sub
-CUL_Parse($$$$;$)
+CUL_Parse($$$$@)
 {
   my ($hash, $iohash, $name, $rmsg, $initstr) = @_;