From 23aaded58c0a0077aa97edb9821784f73541eb1e Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Wed, 13 Feb 2013 07:28:47 +0000
Subject: [PATCH] Patch from Matthias

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

diff --git a/fhem/FHEM/00_CUL.pm b/fhem/FHEM/00_CUL.pm
index 221845af3..b002b5ced 100755
--- a/fhem/FHEM/00_CUL.pm
+++ b/fhem/FHEM/00_CUL.pm
@@ -26,6 +26,7 @@ my %gets = (    # Name, Data to send to the CUL, Regexp for the answer
   "uptime"   => ["t", '^[0-9A-F]{8}[\r\n]*$' ],
   "fhtbuf"   => ["T03", '^[0-9A-F]+[\r\n]*$' ],
   "cmds"     => ["?", '.*Use one of[ 0-9A-Za-z]+[\r\n]*$' ],
+  "credit10ms" => [ "X", '^.. *\d*[\r\n]*$' ],
 );
 
 my %sets = (
@@ -470,6 +471,8 @@ READEND:
       $msg = hex($msg)/125;
       $msg = sprintf("%d %02d:%02d:%02d",
         $msg/86400, ($msg%86400)/3600, ($msg%3600)/60, $msg%60);
+    } elsif($a[1] eq "credit10ms") {
+      ($msg) = ($msg =~ /^.. *(\d*)[\r\n]*$/);
     }
 
     $msg =~ s/[\r\n]//g;
@@ -1208,6 +1211,10 @@ CUL_Attr(@)
         CUL to interpret the response of this command. See also the raw-
         command.
         </li><br>
+    <li>credit10ms<br>
+        One may send for a duration of credit10ms*10 ms before the send limit is reached and a LOVF is
+        generated.
+        </li><br>
   </ul>
 
   <a name="CULattr"></a>