FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-08 05:15:10 +00:00
Code Issues Releases Wiki Activity

update CFM-LED handling

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@3472 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2013-07-22 10:12:15 +00:00
parent 4e24b9df4c
commit 331385210d
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/FHEM/10_CUL_HM.pm
View File

@ -2375,11 +2375,13 @@ sub CUL_HM_Set($@) {
}
elsif($md eq "HM-OU-CFM-PL"){
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 $repeat = (defined $a[3] && $a[3] =~ m/^(\d+)$/)?$a[3]:1;
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]"
if($repeat < 1 || $repeat > 255);
#<entries><multiply><MP3><MP3>
@ -2391,8 +2393,11 @@ sub CUL_HM_Set($@) {
$msgBytes .= sprintf("%02X",$color{$led});
}
# 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.
"010101010000000000000000")
if ($itemCnt == 1);
}
else{
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)
<ul>
<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 ','.
White spaces must not be used in the list. 'S' indicates short and
'L' long ilumination. <br>