Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-07 22:29:19 +00:00
Code

update CFM-LED handling

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@3472 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2013-07-22 10:12:15 +00:00
parent 079bba82a6
commit 47b042c50d
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
FHEM/10_CUL_HM.pm
View File

@ -2375,11 +2375,13 @@ sub CUL_HM_Set($@) {
} }
elsif($md eq "HM-OU-CFM-PL"){ elsif($md eq "HM-OU-CFM-PL"){
my %color = (redL =>18,greenL =>34,orangeL =>50, my %color = (redL =>18,greenL =>34,orangeL =>50,
redS =>17,greenS =>33,orangeS =>49); redS =>17,greenS =>33,orangeS =>49,
pause=>01);
my @itemList = split(',',$a[2]); my @itemList = split(',',$a[2]);
my $repeat = (defined $a[3] && $a[3] =~ m/^(\d+)$/)?$a[3]:1; my $repeat = (defined $a[3] && $a[3] =~ m/^(\d+)$/)?$a[3]:1;
my $itemCnt = int(@itemList); my $itemCnt = int(@itemList);
return "no more then 12 entries please" if ($itemCnt>12); return "no more then 10 entries please" if ($itemCnt>10);
return "at least one entry must be entered" if ($itemCnt<1);
return "repetition $repeat out of range [1..255]" return "repetition $repeat out of range [1..255]"
if($repeat < 1 || $repeat > 255); if($repeat < 1 || $repeat > 255);
#<entries><multiply><MP3><MP3> #<entries><multiply><MP3><MP3>
@ -2391,8 +2393,11 @@ sub CUL_HM_Set($@) {
$msgBytes .= sprintf("%02X",$color{$led}); $msgBytes .= sprintf("%02X",$color{$led});
} }
# need to fill up empty locations for LED channel # need to fill up empty locations for LED channel
$msgBytes = substr($msgBytes."000000000000000000000000",0,28); $msgBytes = substr($msgBytes."000000000000000000",0,(10+2)*2);
CUL_HM_PushCmdStack($hash,'++'.$flag.'11'.$id.$dst.'80'.$chn.$msgBytes); CUL_HM_PushCmdStack($hash,'++'.$flag.'11'.$id.$dst.'80'.$chn.$msgBytes);
CUL_HM_PushCmdStack($hash,'++'.$flag.'11'.$id.$dst.'80'.$chn.
"010101010000000000000000")
if ($itemCnt == 1);
} }
else{ else{
return "device for command cannot be identified"; return "device for command cannot be identified";
@ -4564,7 +4569,7 @@ sub CUL_HM_putHash($) {# provide data for HMinfo
<li>OutputUnit (HM-OU-CFM-PL) <li>OutputUnit (HM-OU-CFM-PL)
<ul> <ul>
<li><B>led &lt;color&gt;[,&lt;color&gt;..] [&lt;repeat&gt..]</B><br> <li><B>led &lt;color&gt;[,&lt;color&gt;..] [&lt;repeat&gt..]</B><br>
Possible colors are [redL|greenL|yellowL|redS|greenS|yellowS]. A Possible colors are [redL|greenL|yellowL|redS|greenS|yellowS|pause]. A
sequence of colors can be given separating the color entries by ','. sequence of colors can be given separating the color entries by ','.
White spaces must not be used in the list. 'S' indicates short and White spaces must not be used in the list. 'S' indicates short and
'L' long ilumination. <br> 'L' long ilumination. <br>