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

46_TRX_LIGHT.pm: Added subtype ASA for RFY

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@19054 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
KernSani 2019-03-27 22:16:06 +00:00
parent 82ba532039
commit d12111802d
1 changed files with 51 additions and 79 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
fhem/FHEM/46_TRX_LIGHT.pm
View File

@ -34,10 +34,8 @@
############################################################################## ##############################################################################
# #
# CHANGELOG # CHANGELOG
# 26.12.2018 Support for CUVEO devices #
# 09.12.2018 Additional commands for RFY (forum #36451) # 21.03.2019 Added subtype ASA for RFY
# Support for Cuevo (not tested)
# Fix for Selectplus (forum #71568)
# 25.03.2018 Summary for Commandref # 25.03.2018 Summary for Commandref
# Use SetExtensions # Use SetExtensions
# Fix to trigger events (userreadings) - topic #65899 # Fix to trigger events (userreadings) - topic #65899
@ -73,6 +71,7 @@ my %light_device_codes = ( # HEXSTRING => "NAME", "name of reading",
0x1100 => [ "AC", "light" ], 0x1100 => [ "AC", "light" ],
0x1101 => [ "HOMEEASY", "light" ], 0x1101 => [ "HOMEEASY", "light" ],
0x1102 => [ "ANSLUT", "light" ], 0x1102 => [ "ANSLUT", "light" ],
# 0x12: Lighting3 # 0x12: Lighting3
0x1200 => [ "KOPPLA", "light" ], # IKEA Koppla 0x1200 => [ "KOPPLA", "light" ], # IKEA Koppla
# 0x13: Lighting4 # 0x13: Lighting4
@ -87,7 +86,6 @@ my %light_device_codes = ( # HEXSTRING => "NAME", "name of reading",
0x1406 => [ "TRC02", "light" ], # RGB TRC02 0x1406 => [ "TRC02", "light" ], # RGB TRC02
# 0x15: Lighting6 # 0x15: Lighting6
0x1500 => [ "BLYSS", "light" ], # Blyss 0x1500 => [ "BLYSS", "light" ], # Blyss
0x1501 => [ "CUVEO", "light" ], # Cuveo
# 0x16: Chime # 0x16: Chime
0x1600 => [ "BYRONSX", "light" ], # Byron SX 0x1600 => [ "BYRONSX", "light" ], # Byron SX
0x1601 => [ "BYRONMP", "chime" ], # Byron MP001 0x1601 => [ "BYRONMP", "chime" ], # Byron MP001
@ -109,6 +107,7 @@ my %light_device_codes = ( # HEXSTRING => "NAME", "name of reading",
0x1907 => [ "FOREST", "light" ], # Forest 0x1907 => [ "FOREST", "light" ], # Forest
0x1A00 => [ "RFY", "light" ], # RTS RFY 0x1A00 => [ "RFY", "light" ], # RTS RFY
0x1A01 => [ "RFY_ext", "light" ], # RTS RFY ext 0x1A01 => [ "RFY_ext", "light" ], # RTS RFY ext
0x1A03 => [ "ASA", "light" ], # ASA
); );
my %light_device_commands = ( # HEXSTRING => commands my %light_device_commands = ( # HEXSTRING => commands
@ -150,7 +149,6 @@ my %light_device_commands = ( # HEXSTRING => commands
0x1406 => [ "off", "on", "bright", "dim", "vivid", "pale", "color" ], # TRC02 0x1406 => [ "off", "on", "bright", "dim", "vivid", "pale", "color" ], # TRC02
# 0x15: Lighting6 # 0x15: Lighting6
0x1500 => [ "on", "off", "all_on", "all_off" ], # Blyss 0x1500 => [ "on", "off", "all_on", "all_off" ], # Blyss
0x1501 => [ "on", "off", "all_on", "all_off" ], # Cuveo
# 0x16: Chime # 0x16: Chime
0x1600 => [ 0x1600 => [
"", "tubular3_1", "solo1", "bigben1", "", "tubular2_1", "", "tubular3_1", "solo1", "bigben1", "", "tubular2_1",
@ -178,8 +176,9 @@ my %light_device_commands = ( # HEXSTRING => commands
0x1905 => [ "down", "up", "stop" ], # Media Mount 0x1905 => [ "down", "up", "stop" ], # Media Mount
0x1906 => [ "open", "close", "stop", "confirm" ], # DC/RMF/Yooda 0x1906 => [ "open", "close", "stop", "confirm" ], # DC/RMF/Yooda
0x1907 => [ "open", "close", "stop", "confirm_pair" ], # Forest 0x1907 => [ "open", "close", "stop", "confirm_pair" ], # Forest
0x1A00 => [ "stop", "up", "", "down", "", "", "", "program", "", "", "", "", "", "", "", "up<0.5s", "down<0.5s", "up>2s", "down>2s", "enable_sun+wind", "disable_sun"], #RFY, forum #36451 0x1A00 => [ "stop", "up", "", "down", "", "", "", "program" ], # RTS RFY
0x1A01 => [ "stop", "up", "", "down", "", "", "", "program" ], # RTS RFY ext 0x1A01 => [ "stop", "up", "", "down", "", "", "", "program" ], # RTS RFY ext
0x1A01 => [ "stop", "up", "", "down", "", "", "", "program" ], # ASA
); );
my %light_device_c2b; # DEVICE_TYPE->hash (reverse of light_device_codes) my %light_device_c2b; # DEVICE_TYPE->hash (reverse of light_device_codes)
@ -233,7 +232,8 @@ sub TRX_LIGHT_Set($@) {
my ( $err, $h, $m, $s, $fb ) = GetTimeSpec( $a[1] ); my ( $err, $h, $m, $s, $fb ) = GetTimeSpec( $a[1] );
if ( !defined($err) ) { if ( !defined($err) ) {
$a[1] = $h * 3600 + $m * 60 + $s; $a[1] = $h * 3600 + $m * 60 + $s;
Log3 $name, 1, "TRX_LIGHT is now using SetExtensions. Consider changing [Set $name $command] to a numeric value (seconds) instead of a TimeSpec"; Log3 $name, 1,
"TRX_LIGHT is now using SetExtensions. Consider changing [Set $name $command] to a numeric value (seconds) instead of a TimeSpec";
} }
} }
@ -290,10 +290,9 @@ sub TRX_LIGHT_Set($@) {
else { else {
Log3 $name, 5, "TRX_LIGHT_Set() PT2262: else arg=$command l='$l'"; Log3 $name, 5, "TRX_LIGHT_Set() PT2262: else arg=$command l='$l'";
#my $error = "Unknown command $command, choose one of $l "; my $error = "Unknown command $command, choose one of $l ";
return SetExtensions( $hash, $l, $name, @a ); Log3 $name, 1, "TRX_LIGHT_Set() PT2262" . $error if ( $command ne "?" );
#Log3 $name, 1, "TRX_LIGHT_Set() PT2262" . $error if ( $command ne "?" ); return $error;
#return $error;
} }
} }
} }
@ -306,12 +305,14 @@ sub TRX_LIGHT_Set($@) {
$l =~ s/ color / color:slider,14,2,128 /; $l =~ s/ color / color:slider,14,2,128 /;
} }
if ( $l =~ /^[on|off]$/ ) {
#my $error = "Unknown command $command, choose one of $l"; Log3 $name, 1, "TRX_LIGHT_Set() using setExtensions";
return SetExtensions( $hash, $l, $name, @a ); return SetExtensions( $hash, $l, $name, @a );
}
#Log3 $name, 1, "TRX_LIGHT_Set()" . $error if ( $command ne "?" ); else {
#return $error; Log3 $name, 1, "TRX_LIGHT_Set() NOT using setExtensions";
return "Unknown command $command, choose one of $l";
}
} }
my $seqnr = 0; my $seqnr = 0;
@ -453,32 +454,6 @@ sub TRX_LIGHT_Set($@) {
Log3 $name, 5, Log3 $name, 5,
"TRX_LIGHT_Set() lighting5 name=$name device_type=$device_type, deviceid=$deviceid command=$command"; "TRX_LIGHT_Set() lighting5 name=$name device_type=$device_type, deviceid=$deviceid command=$command";
Log3 $name, 5, "TRX_LIGHT_Set() lighting5 hexline=$hex_prefix$hex_command"; Log3 $name, 5, "TRX_LIGHT_Set() lighting5 hexline=$hex_prefix$hex_command";
}
# Lighting6
elsif ( $protocol_type == 0x15 ) {
my $id1;
my $id2;
my $unit;
my $group;
if ( $deviceid =~ /(..)(..)(.)(.)/ ) {
$id1 = $1;
$id2 = $2;
$group = $3;
$unit = $4;
}
else {
Log3 $name, 1,
"TRX_LIGHT_Set() lighting6 wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid";
return "error set name=$name deviceid=$deviceid";
}
$hex_prefix = sprintf "0B15";
$hex_command = sprintf "%02x%02x%s%s%02x%02x%02x%02x0070", $device_type_num & 0xff, $seqnr, $id1, $id2, $group, $unit, $cmnd,$cmnd;
Log3 $name, 5,
"TRX_LIGHT_Set() lighting6 name=$name device_type=$device_type, deviceid=$deviceid command=$command $id1$id2";
Log3 $name, 5, "TRX_LIGHT_Set() lighting2 hexline=$hex_prefix$hex_command";
} }
elsif ( $protocol_type == 0x16 ) { elsif ( $protocol_type == 0x16 ) {
@ -563,6 +538,11 @@ sub TRX_LIGHT_Set($@) {
$unitcode = $2; $unitcode = $2;
if ( ( $device_type_num == 0x1A00 ) && !( $unitcode =~ /^0[0-4]$/ ) ) { if ( ( $device_type_num == 0x1A00 ) && !( $unitcode =~ /^0[0-4]$/ ) ) {
Log3 $name, 1, Log3 $name, 1,
"TRX_LIGHT_Set() RFY wrong unitcode: name=$name device_type=$device_type, unitid=$unitid unitcode=$unitcode";
return "error set name=$name deviceid=$deviceid";
}
elsif ( ( $device_type_num == 0x1A03 ) && !( $unitcode =~ /^0[1-5]$/ ) ) {
Log3 $name, 1,
"TRX_LIGHT_Set() RFY wrong unitcode: name=$name device_type=$device_type, unitid=$unitid unitcode=$unitcode"; "TRX_LIGHT_Set() RFY wrong unitcode: name=$name device_type=$device_type, unitid=$unitid unitcode=$unitcode";
return "error set name=$name deviceid=$deviceid"; return "error set name=$name deviceid=$deviceid";
} }
@ -654,7 +634,6 @@ sub TRX_LIGHT_Define($$) {
&& $type ne "RSL2" && $type ne "RSL2"
&& $type ne "LIVOLO" && $type ne "LIVOLO"
&& $type ne "BLYSS" && $type ne "BLYSS"
&& $type ne "CUVEO"
&& $type ne "BYRONSX" && $type ne "BYRONSX"
&& $type ne "SIEMENS_SF01" && $type ne "SIEMENS_SF01"
&& $type ne "HARRISON" && $type ne "HARRISON"
@ -796,12 +775,7 @@ sub TRX_LIGHT_parse_X10 ($$) {
$data = $bytes->[7]; $data = $bytes->[7];
} }
elsif ( $type == 0x15 ) { elsif ( $type == 0x15 ) {
if ($subtype == 0x00 ) { #Blyss
$device = sprintf '%02x%02x%c%d', $bytes->[3], $bytes->[4], $bytes->[5], $bytes->[6]; $device = sprintf '%02x%02x%c%d', $bytes->[3], $bytes->[4], $bytes->[5], $bytes->[6];
}
else { #Cuveo
$device = sprintf '%02x%02x%d%d', $bytes->[3], $bytes->[4], $bytes->[5], $bytes->[6];
}
$data = $bytes->[7]; $data = $bytes->[7];
} }
elsif ( $type == 0x16 ) { #Chime elsif ( $type == 0x16 ) { #Chime
@ -810,7 +784,7 @@ sub TRX_LIGHT_parse_X10 ($$) {
$data = $bytes->[5]; $data = $bytes->[5];
} }
else { else {
$device = sprintf '%04x', $bytes->[4], $bytes->[5]; #forum #71568 $device = sprintf '%02x', $bytes->[3], $bytes->[4];
$data = 0; $data = 0;
} }
} }
@ -860,7 +834,6 @@ sub TRX_LIGHT_parse_X10 ($$) {
my $firstdevice = 1; my $firstdevice = 1;
my $def = $modules{TRX_LIGHT}{defptr}{$device_name}; my $def = $modules{TRX_LIGHT}{defptr}{$device_name};
#Log3 $hash, 1, "TRX_LIGHT_parse_X10() device $device_name";
if ( !$def ) { if ( !$def ) {
$firstdevice = 0; $firstdevice = 0;
$def = $modules{TRX_LIGHT}{defptr2}{$device_name}; $def = $modules{TRX_LIGHT}{defptr2}{$device_name};
@ -910,7 +883,7 @@ sub TRX_LIGHT_parse_X10 ($$) {
readingsBeginUpdate($def); readingsBeginUpdate($def);
if ( $type == 0x10 || $type == 0x11 || $type == 0x14 || $type == 0x16 || $type==0x15) { if ( $type == 0x10 || $type == 0x11 || $type == 0x14 || $type == 0x16 ) {
# try to use it for all types: # try to use it for all types:
$current = $command; $current = $command;
@ -1197,7 +1170,6 @@ KlikAanKlikUit, NEXA, CHACON, HomeEasy UK. <br> You need to define an RFXtrx433
<li> <code>LIVOLO</code> (Livolo devices. Commands ["all_off", "on_off", "dim+", "dim-"].)</li> <li> <code>LIVOLO</code> (Livolo devices. Commands ["all_off", "on_off", "dim+", "dim-"].)</li>
<li> <code>TRC02</code> (RGB TRC02 devices. Commands ["off", "on", "bright", "dim", "vivid", "pale", "color"].)</li> <li> <code>TRC02</code> (RGB TRC02 devices. Commands ["off", "on", "bright", "dim", "vivid", "pale", "color"].)</li>
<li> <code>BLYSS</code> (Blyss devices. deviceid: [A-P][1-5]. Commands ["off", "on", "all_off", "all_on"].)</li> <li> <code>BLYSS</code> (Blyss devices. deviceid: [A-P][1-5]. Commands ["off", "on", "all_off", "all_on"].)</li>
<li> <code>CUVEO</code> (Blyss devices. deviceid: [A-P][1-5]. Commands ["off", "on", "all_off", "all_on"].)</li>
<li> <code>BYRONSX</code> (Byron SX chime devices. deviceid: 00-FF. Commands [ "tubular3_1", "solo1", "bigben1", "tubular2_1", "tubular2_2", "solo2", "tubular3_2"].)</li> <li> <code>BYRONSX</code> (Byron SX chime devices. deviceid: 00-FF. Commands [ "tubular3_1", "solo1", "bigben1", "tubular2_1", "tubular2_2", "solo2", "tubular3_2"].)</li>
<li> <code>SELECTPLUS</code> (SELECTPLUS] chime devices. deviceid: 0000-FFFF. Commands [ "ring"].)</li> <li> <code>SELECTPLUS</code> (SELECTPLUS] chime devices. deviceid: 0000-FFFF. Commands [ "ring"].)</li>
<li> <code>SIEMENS_SF01</code> (Siemens SF01 devices. deviceid: 000000-007FFF. Commands [ "timer", "-", "learn", "+", "confirm", "light", "on", "off" ].)</li> <li> <code>SIEMENS_SF01</code> (Siemens SF01 devices. deviceid: 000000-007FFF. Commands [ "timer", "-", "learn", "+", "confirm", "light", "on", "off" ].)</li>