FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-25 15:59:21 +00:00
Code Issues Releases Wiki Activity

Patch from Matthias

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@2716 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2013-02-13 07:28:47 +00:00
parent 3aad251496
commit 23aaded58c
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fhem/FHEM/00_CUL.pm
View File

@ -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]*$' ], "uptime" => ["t", '^[0-9A-F]{8}[\r\n]*$' ],
"fhtbuf" => ["T03", '^[0-9A-F]+[\r\n]*$' ], "fhtbuf" => ["T03", '^[0-9A-F]+[\r\n]*$' ],
"cmds" => ["?", '.*Use one of[ 0-9A-Za-z]+[\r\n]*$' ], "cmds" => ["?", '.*Use one of[ 0-9A-Za-z]+[\r\n]*$' ],
"credit10ms" => [ "X", '^.. *\d*[\r\n]*$' ],
); );
my %sets = ( my %sets = (
@ -470,6 +471,8 @@ READEND:
$msg = hex($msg)/125; $msg = hex($msg)/125;
$msg = sprintf("%d %02d:%02d:%02d", $msg = sprintf("%d %02d:%02d:%02d",
$msg/86400, ($msg%86400)/3600, ($msg%3600)/60, $msg%60); $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; $msg =~ s/[\r\n]//g;
@ -1208,6 +1211,10 @@ CUL_Attr(@)
CUL to interpret the response of this command. See also the raw- CUL to interpret the response of this command. See also the raw-
command. command.
</li><br> </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> </ul>
<a name="CULattr"></a> <a name="CULattr"></a>