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.
+
  • credit10ms
    + One may send for a duration of credit10ms*10 ms before the send limit is reached and a LOVF is + generated. +