FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-20 19:36:02 +00:00
Code Issues Releases Wiki Activity

10_SOMFY: new RTS commands 0x9 und 0xA (set wind_sun_9/wind_only_a)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@12918 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
viegener 2016-12-31 10:10:47 +00:00
parent 4f2791efed
commit 9c7e8fbb95
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fhem/CHANGED
View File

@ -1,5 +1,6 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
# Do not insert empty lines here, update check depends on it. # Do not insert empty lines here, update check depends on it.
- feature: 10_SOMFY: new RTS commands 0x9 und 0xA (set wind_sun_9/wind_only_a)
- bugfix: 93_DbRep: importFromFile format problem if UNIT-field wasn't set - bugfix: 93_DbRep: importFromFile format problem if UNIT-field wasn't set
- feature: 98_fhemdebug, to aid "Error: >< no TYPE" debugging. - feature: 98_fhemdebug, to aid "Error: >< no TYPE" debugging.
- feature: 70_Jabber Added possibility to change componentname via - feature: 70_Jabber Added possibility to change componentname via

11
fhem/FHEM/10_SOMFY.pm
View File

@ -88,6 +88,7 @@
# 2016-10-30 viegener - FIX: remove wrong attribute up-time-to-close - typo in attr setter # 2016-10-30 viegener - FIX: remove wrong attribute up-time-to-close - typo in attr setter
# 2016-10-14 viegener - FIX: Use of uninitialized value $updateState in concatenation # 2016-10-14 viegener - FIX: Use of uninitialized value $updateState in concatenation
# #
# 2016-12-30 viegener - New sets / code-commands 9 / a - wind_sun_9 / wind_only_a
# #
# #
############################################################################### ###############################################################################
@ -121,6 +122,8 @@ my %codes = (
"20" => "off", # go "up" "20" => "off", # go "up"
"40" => "on", # go "down" "40" => "on", # go "down"
"80" => "prog", # finish pairing "80" => "prog", # finish pairing
"90" => "wind_sun_9", # wind and sun (sun + flag)
"A0" => "wind_only_a", # wind only (flag)
"100" => "on-for-timer", "100" => "on-for-timer",
"101" => "off-for-timer", "101" => "off-for-timer",
"XX" => "z_custom", # custom control code "XX" => "z_custom", # custom control code
@ -135,6 +138,8 @@ my %sets = (
"on-for-timer" => "textField", "on-for-timer" => "textField",
"off-for-timer" => "textField", "off-for-timer" => "textField",
"z_custom" => "textField", "z_custom" => "textField",
"wind_sun_9" => "noArg",
"wind_only_a" => "noArg",
"pos" => "0,10,20,30,40,50,60,70,80,90,100" "pos" => "0,10,20,30,40,50,60,70,80,90,100"
); );
@ -144,7 +149,9 @@ my %sendCommands = (
"on" => "on", "on" => "on",
"close" => "on", "close" => "on",
"prog" => "prog", "prog" => "prog",
"stop" => "stop" "stop" => "stop",
"wind_sun_9" => "wind_sun_9",
"wind_only_a" => "wind_only_a",
); );
my %inverseCommands = ( my %inverseCommands = (
@ -779,7 +786,7 @@ sub SOMFY_InternalSet($@) {
my $cmd = lc($args[0]); my $cmd = lc($args[0]);
# just a number provided, assume "pos" command # just a number provided, assume "pos" command
if ($cmd =~ m/\d{1,3}/) { if ($cmd =~ m/^\d{1,3}$/) {
pop @args; pop @args;
push @args, "pos"; push @args, "pos";
push @args, $cmd; push @args, $cmd;