diff --git a/FHEM/46_TRX_LIGHT.pm b/FHEM/46_TRX_LIGHT.pm index bf80c775f..3dba327a4 100755 --- a/FHEM/46_TRX_LIGHT.pm +++ b/FHEM/46_TRX_LIGHT.pm @@ -8,6 +8,7 @@ # HomeEasy EU, ANSLUT, Ikea Koppla # # Copyright (C) 2012-2016 by Willi Herzig (Willi.Herzig@gmail.com) +# Maintenance since 2018 by KernSani # # This file is part of fhem. # @@ -30,974 +31,1088 @@ # 4: log unknown protocols # 5: log decoding hexlines for debugging # +############################################################################## +# +# CHANGELOG +# +# 25.03.2018 Summary for Commandref +# Use SetExtensions +# Fix to trigger events (userreadings) - topic #65899 +############################################################################## + package main; use strict; use warnings; +use SetExtensions; my $time_old = 0; -my $TRX_LIGHT_type_default = "ds10a"; +my $TRX_LIGHT_type_default = "ds10a"; my $TRX_LIGHT_X10_type_default = "x10"; my $DOT = q{_}; -my %light_device_codes = ( # HEXSTRING => "NAME", "name of reading", - # 0x10: Lighting1 - 0x1000 => [ "X10", "light" ], - 0x1001 => [ "ARC", "light" ], - 0x1002 => [ "AB400D", "light" ], - 0x1003 => [ "WAVEMAN", "light" ], - 0x1004 => [ "EMW200", "light"], - 0x1005 => [ "IMPULS", "light"], - 0x1006 => [ "RISINGSUN", "light"], - 0x1007 => [ "PHILIPS_SBC", "light"], - 0x1008 => [ "ENER010", "light"], # Energenie ENER010: untested - 0x1009 => [ "ENER5", "light"], # Energenie 5-gang: untested - 0x100A => [ "COCO_GDR2", "light"], # COCO GDR2-2000R: untestedCOCO - # 0x11: Lighting2 - 0x1100 => [ "AC", "light"], - 0x1101 => [ "HOMEEASY", "light"], - 0x1102 => [ "ANSLUT", "light"], - # 0x12: Lighting3 - 0x1200 => [ "KOPPLA", "light"], # IKEA Koppla - # 0x13: Lighting4 - 0x1300 => [ "PT2262", "light"], # PT2262 raw messages - # 0x14: Lighting5 - 0x1400 => [ "LIGHTWAVERF", "light"], # LightwaveRF - 0x1401 => [ "EMW100", "light"], # EMW100 - 0x1402 => [ "BBSB", "light"], # BBSB - 0x1403 => [ "MDREMOTE", "light"], # MDREMOTE LED dimmer - 0x1404 => [ "RSL2", "light"], # Conrad RSL2 - 0x1405 => [ "LIVOLO", "light"], # Livolo - 0x1406 => [ "TRC02", "light"], # RGB TRC02 - # 0x15: Lighting6 - 0x1500 => [ "BLYSS", "light"], # Blyss - # 0x16: Chime - 0x1600 => [ "BYRONSX", "light"], # Byron SX - 0x1601 => [ "BYRONMP", "chime"], # Byron MP001 - 0x1602 => [ "SELECTPLUS", "chime"], # SelectPlus - 0x1603 => [ "RFU", "chime"], # RFU - 0x1604 => [ "ENVIVO", "chime"], # Envivo - # 0x17: Fan - 0x1700 => [ "SIEMENS_SF01", "light"], # Siemens SF01 - # 0x18: Curtain1 - 0x1800 => [ "HARRISON", "light"], # Harrison Curtain - # 0x19: Blinds1 - 0x1900 => [ "ROLLER_TROL", "light"], # Roller Trol - 0x1901 => [ "HASTA_OLD", "light"], # Hasta old - 0x1902 => [ "AOK_RF01", "light"], # A-OK RF01 - 0x1903 => [ "AOK_AC114", "light"], # A-OK AC114 - 0x1904 => [ "RAEX_YR1326", "light"], # Raex YR1326 - 0x1905 => [ "MEDIA_MOUNT", "light"], # Media Mount - 0x1906 => [ "DC106", "light"], # DC/RMF/Yooda - 0x1907 => [ "FOREST", "light"], # Forest - 0x1A00 => [ "RFY", "light"], # RTS RFY - 0x1A01 => [ "RFY_ext", "light"], # RTS RFY ext +my %light_device_codes = ( # HEXSTRING => "NAME", "name of reading", + # 0x10: Lighting1 + 0x1000 => [ "X10", "light" ], + 0x1001 => [ "ARC", "light" ], + 0x1002 => [ "AB400D", "light" ], + 0x1003 => [ "WAVEMAN", "light" ], + 0x1004 => [ "EMW200", "light" ], + 0x1005 => [ "IMPULS", "light" ], + 0x1006 => [ "RISINGSUN", "light" ], + 0x1007 => [ "PHILIPS_SBC", "light" ], + 0x1008 => [ "ENER010", "light" ], # Energenie ENER010: untested + 0x1009 => [ "ENER5", "light" ], # Energenie 5-gang: untested + 0x100A => [ "COCO_GDR2", "light" ], # COCO GDR2-2000R: untestedCOCO + # 0x11: Lighting2 + 0x1100 => [ "AC", "light" ], + 0x1101 => [ "HOMEEASY", "light" ], + 0x1102 => [ "ANSLUT", "light" ], + + # 0x12: Lighting3 + 0x1200 => [ "KOPPLA", "light" ], # IKEA Koppla + # 0x13: Lighting4 + 0x1300 => [ "PT2262", "light" ], # PT2262 raw messages + # 0x14: Lighting5 + 0x1400 => [ "LIGHTWAVERF", "light" ], # LightwaveRF + 0x1401 => [ "EMW100", "light" ], # EMW100 + 0x1402 => [ "BBSB", "light" ], # BBSB + 0x1403 => [ "MDREMOTE", "light" ], # MDREMOTE LED dimmer + 0x1404 => [ "RSL2", "light" ], # Conrad RSL2 + 0x1405 => [ "LIVOLO", "light" ], # Livolo + 0x1406 => [ "TRC02", "light" ], # RGB TRC02 + # 0x15: Lighting6 + 0x1500 => [ "BLYSS", "light" ], # Blyss + # 0x16: Chime + 0x1600 => [ "BYRONSX", "light" ], # Byron SX + 0x1601 => [ "BYRONMP", "chime" ], # Byron MP001 + 0x1602 => [ "SELECTPLUS", "chime" ], # SelectPlus + 0x1603 => [ "RFU", "chime" ], # RFU + 0x1604 => [ "ENVIVO", "chime" ], # Envivo + # 0x17: Fan + 0x1700 => [ "SIEMENS_SF01", "light" ], # Siemens SF01 + # 0x18: Curtain1 + 0x1800 => [ "HARRISON", "light" ], # Harrison Curtain + # 0x19: Blinds1 + 0x1900 => [ "ROLLER_TROL", "light" ], # Roller Trol + 0x1901 => [ "HASTA_OLD", "light" ], # Hasta old + 0x1902 => [ "AOK_RF01", "light" ], # A-OK RF01 + 0x1903 => [ "AOK_AC114", "light" ], # A-OK AC114 + 0x1904 => [ "RAEX_YR1326", "light" ], # Raex YR1326 + 0x1905 => [ "MEDIA_MOUNT", "light" ], # Media Mount + 0x1906 => [ "DC106", "light" ], # DC/RMF/Yooda + 0x1907 => [ "FOREST", "light" ], # Forest + 0x1A00 => [ "RFY", "light" ], # RTS RFY + 0x1A01 => [ "RFY_ext", "light" ], # RTS RFY ext ); -my %light_device_commands = ( # HEXSTRING => commands - # 0x10: Lighting1 - 0x1000 => [ "off", "on", "dim", "bright", "", "all_off", "all_on"], # X10 - 0x1001 => [ "off", "on", "", "", "", "all_off", "all_on", "chime"], # ARC - 0x1002 => [ "off", "on"], # AB400D - 0x1003 => [ "off", "on"], # WAVEMAN - 0x1004 => [ "off", "on"], # EMW200 - 0x1005 => [ "off", "on"], # IMPULS - 0x1006 => [ "off", "on"], # RisingSun - 0x1007 => [ "off", "on", "", "", "", "all_off", "all_on"], # Philips SBC - 0x1008 => [ "off", "on", "", "", "", "all_off", "all_on"], # Energenie ENER010 - 0x1009 => [ "off", "on"], # Energenie 5-gang - 0x100A => [ "off", "on"], # COCO GDR2-2000R - # 0x11: Lighting2 - 0x1100 => [ "off", "on", "level", "all_off", "all_on", "all_level"], # AC - 0x1101 => [ "off", "on", "level", "all_off", "all_on", "all_level"], # HOMEEASY - 0x1102 => [ "off", "on", "level", "all_off", "all_on", "all_level"], # ANSLUT - # 0x12: Lighting3 - 0x1200 => [ "bright", "", "", "", "", "", "", "", "dim", "", "", "", "", "", "", "", - "on", "level1", "level2", "level3", "level4", "level5", "level6", "level7", "level8", "level9", "off", "", "program", "", "", "", "",], # Koppla - # 0x13: Lighting4 - 0x1300 => [ "Lighting4"], # Lighting4: PT2262 - # 0x14: Lighting5 - 0x1400 => [ "off", "on", "all_off", "mood1", "mood2", "mood3", "mood4", "mood5", "reserved1", "reserved2", "unlock", "lock", "all_lock", "close", "stop", "open", "level"], # LightwaveRF, Siemens - 0x1401 => [ "off", "on", "learn"], # EMW100 GAO/Everflourish - 0x1402 => [ "off", "on", "all_off", "all_on"], # BBSB new types - 0x1403 => [ "power", "light", "bright", "dim", "100", "50", "25", "mode+", "speed-", "speed+", "mode-"], # MDREMOTE - 0x1404 => [ "off", "on", "all_off", "all_on"], # Conrad RSL - 0x1405 => [ "all_off", "on_off", "dim+", "dim-"], # Livolo - 0x1406 => [ "off", "on", "bright", "dim", "vivid", "pale", "color"], # TRC02 - # 0x15: Lighting6 - 0x1500 => [ "on", "off", "all_on", "all_off"], # Blyss - # 0x16: Chime - 0x1600 => [ "", "tubular3_1", "solo1", "bigben1", "", "tubular2_1", "tubular2_2", "", "dingdong", "solo2", " ", "", "", "tubular3_2"], # Byron SX - 0x1601 => [ "ring"], # Byron MP001 - 0x1602 => [ "ring"], # SelectPlus - 0x1603 => [ "ring"], # RFU - 0x1604 => [ "ring"], # Envivo - # 0x17: Fan - 0x1700 => [ "", "timer", "-", "learn", "+", "confirm", "light", "on", "off"], # Siemens SF01 - # 0x18: Curtain1 - 0x1800 => [ "open", "close", "stop", "program"], # Harrison Curtain - # 0x19: Blinds1 - 0x1900 => [ "open", "close", "stop", "confirm_pair", "set_limit"], # Roller Trol - 0x1901 => [ "open", "close", "stop", "confirm_pair", "set_limit"], # Hasta old - 0x1902 => [ "open", "close", "stop", "confirm_pair"], # A-OK RF01 - 0x1903 => [ "open", "close", "stop", "confirm_pair"], # A-OK AC114 - 0x1904 => [ "open", "close", "stop", "confirm_pair", "set_upper_limit", "set_lower_limit", "delete_limits", "change_dir", "left", "right"], # Raex YR1326 - 0x1905 => [ "down", "up", "stop"], # Media Mount - 0x1906 => [ "open", "close", "stop", "confirm"], # DC/RMF/Yooda - 0x1907 => [ "open", "close", "stop", "confirm_pair"], # Forest - 0x1A00 => [ "stop", "up", "", "down", "", "", "", "program"], # RTS RFY - 0x1A01 => [ "stop", "up", "", "down", "", "", "", "program"], # RTS RFY ext +my %light_device_commands = ( # HEXSTRING => commands + # 0x10: Lighting1 + 0x1000 => [ "off", "on", "dim", "bright", "", "all_off", "all_on" ], # X10 + 0x1001 => [ "off", "on", "", "", "", "all_off", "all_on", "chime" ], # ARC + 0x1002 => [ "off", "on" ], # AB400D + 0x1003 => [ "off", "on" ], # WAVEMAN + 0x1004 => [ "off", "on" ], # EMW200 + 0x1005 => [ "off", "on" ], # IMPULS + 0x1006 => [ "off", "on" ], # RisingSun + 0x1007 => [ "off", "on", "", "", "", "all_off", "all_on" ], # Philips SBC + 0x1008 => [ "off", "on", "", "", "", "all_off", "all_on" ], # Energenie ENER010 + 0x1009 => [ "off", "on" ], # Energenie 5-gang + 0x100A => [ "off", "on" ], # COCO GDR2-2000R + # 0x11: Lighting2 + 0x1100 => [ "off", "on", "level", "all_off", "all_on", "all_level" ], # AC + 0x1101 => [ "off", "on", "level", "all_off", "all_on", "all_level" ], # HOMEEASY + 0x1102 => [ "off", "on", "level", "all_off", "all_on", "all_level" ], # ANSLUT + # 0x12: Lighting3 + 0x1200 => [ + "bright", "", "", "", "", "", "", "", "dim", "", "", "", "", "", "", "", + "on", "level1", "level2", "level3", "level4", "level5", "level6", "level7", "level8", "level9", "off", "", + "program", "", "", "", "", + ], # Koppla + # 0x13: Lighting4 + 0x1300 => ["Lighting4"], # Lighting4: PT2262 + # 0x14: Lighting5 + 0x1400 => [ + "off", "on", "all_off", "mood1", "mood2", "mood3", + "mood4", "mood5", "reserved1", "reserved2", "unlock", "lock", + "all_lock", "close", "stop", "open", "level" + ], # LightwaveRF, Siemens + 0x1401 => [ "off", "on", "learn" ], # EMW100 GAO/Everflourish + 0x1402 => [ "off", "on", "all_off", "all_on" ], # BBSB new types + 0x1403 => [ "power", "light", "bright", "dim", "100", "50", "25", "mode+", "speed-", "speed+", "mode-" ], # MDREMOTE + 0x1404 => [ "off", "on", "all_off", "all_on" ], # Conrad RSL + 0x1405 => [ "all_off", "on_off", "dim+", "dim-" ], # Livolo + 0x1406 => [ "off", "on", "bright", "dim", "vivid", "pale", "color" ], # TRC02 + # 0x15: Lighting6 + 0x1500 => [ "on", "off", "all_on", "all_off" ], # Blyss + # 0x16: Chime + 0x1600 => [ + "", "tubular3_1", "solo1", "bigben1", "", "tubular2_1", + "tubular2_2", "", "dingdong", "solo2", " ", "", + "", "tubular3_2" + ], # Byron SX + 0x1601 => ["ring"], # Byron MP001 + 0x1602 => ["ring"], # SelectPlus + 0x1603 => ["ring"], # RFU + 0x1604 => ["ring"], # Envivo + # 0x17: Fan + 0x1700 => [ "", "timer", "-", "learn", "+", "confirm", "light", "on", "off" ], # Siemens SF01 + # 0x18: Curtain1 + 0x1800 => [ "open", "close", "stop", "program" ], # Harrison Curtain + # 0x19: Blinds1 + 0x1900 => [ "open", "close", "stop", "confirm_pair", "set_limit" ], # Roller Trol + 0x1901 => [ "open", "close", "stop", "confirm_pair", "set_limit" ], # Hasta old + 0x1902 => [ "open", "close", "stop", "confirm_pair" ], # A-OK RF01 + 0x1903 => [ "open", "close", "stop", "confirm_pair" ], # A-OK AC114 + 0x1904 => [ + "open", "close", "stop", "confirm_pair", + "set_upper_limit", "set_lower_limit", "delete_limits", "change_dir", + "left", "right" + ], # Raex YR1326 + 0x1905 => [ "down", "up", "stop" ], # Media Mount + 0x1906 => [ "open", "close", "stop", "confirm" ], # DC/RMF/Yooda + 0x1907 => [ "open", "close", "stop", "confirm_pair" ], # Forest + 0x1A00 => [ "stop", "up", "", "down", "", "", "", "program" ], # RTS RFY + 0x1A01 => [ "stop", "up", "", "down", "", "", "", "program" ], # RTS RFY ext ); -my %light_device_c2b; # DEVICE_TYPE->hash (reverse of light_device_codes) +my %light_device_c2b; # DEVICE_TYPE->hash (reverse of light_device_codes) -sub -TRX_LIGHT_Initialize($) -{ - my ($hash) = @_; +sub TRX_LIGHT_Initialize($) { + my ($hash) = @_; - foreach my $k (keys %light_device_codes) { - $light_device_c2b{$light_device_codes{$k}->[0]} = $k; - } + foreach my $k ( keys %light_device_codes ) { + $light_device_c2b{ $light_device_codes{$k}->[0] } = $k; + } - $hash->{Match} = "^..(10|11|12|13|14|15|16|17|18|19|1A).*"; - $hash->{SetFn} = "TRX_LIGHT_Set"; - $hash->{DefFn} = "TRX_LIGHT_Define"; - $hash->{UndefFn} = "TRX_LIGHT_Undef"; - $hash->{ParseFn} = "TRX_LIGHT_Parse"; - $hash->{AttrList} = "IODev ignore:1,0 do_not_notify:1,0 repeat ". - $readingFnAttributes; + $hash->{Match} = "^..(10|11|12|13|14|15|16|17|18|19|1A).*"; + $hash->{SetFn} = "TRX_LIGHT_Set"; + $hash->{DefFn} = "TRX_LIGHT_Define"; + $hash->{UndefFn} = "TRX_LIGHT_Undef"; + $hash->{ParseFn} = "TRX_LIGHT_Parse"; + $hash->{AttrList} = "IODev ignore:1,0 do_not_notify:1,0 repeat " . $readingFnAttributes; } ##################################### -sub -TRX_LIGHT_SetState($$$$) -{ - my ($hash, $tim, $vt, $val) = @_; +sub TRX_LIGHT_SetState($$$$) { + my ( $hash, $tim, $vt, $val ) = @_; - $val = $1 if($val =~ m/^(.*) \d+$/); - # to be done. Just accept everything right now. - #return "Undefined value $val" if(!defined($fs20_c2b{$val})); - return undef; -} - -############################# -sub -TRX_LIGHT_Do_On_Till($@) -{ - my ($hash, @a) = @_; - return "Timespec (HH:MM[:SS]) needed for the on-till command" if(@a != 3); - - my ($err, $hr, $min, $sec, $fn) = GetTimeSpec($a[2]); - return $err if($err); - - my @lt = localtime; - my $hms_till = sprintf("%02d:%02d:%02d", $hr, $min, $sec); - my $hms_now = sprintf("%02d:%02d:%02d", $lt[2], $lt[1], $lt[0]); - if($hms_now ge $hms_till) { - Log3 $hash, 4, "on-till: won't switch as now ($hms_now) is later than $hms_till"; - return ""; - } - - my $tname = $hash->{NAME} . "_timer"; - CommandDelete(undef, $tname) if($defs{$tname}); - my @b = ($a[0], "on"); - TRX_LIGHT_Set($hash, @b); - CommandDefine(undef, "$tname at $hms_till set $a[0] off"); - -} - - -############################# -sub -TRX_LIGHT_Do_On_For_Timer($@) -{ - my ($hash, @a) = @_; - return "Timespec (HH:MM[:SS]) needed for the on-for-timer command" if(@a != 3); - - my ($err, $hr, $min, $sec, $fn) = GetTimeSpec($a[2]); - return $err if($err); - - my $hms_for_timer = sprintf("+%02d:%02d:%02d", $hr, $min, $sec); - - my $tname = $hash->{NAME} . "_timer"; - CommandDelete(undef, $tname) if($defs{$tname}); - my @b = ($a[0], "on"); - TRX_LIGHT_Set($hash, @b); - CommandDefine(undef, "$tname at $hms_for_timer set $a[0] off"); + $val = $1 if ( $val =~ m/^(.*) \d+$/ ); + # to be done. Just accept everything right now. + #return "Undefined value $val" if(!defined($fs20_c2b{$val})); + return undef; } ################################### -sub -TRX_LIGHT_Set($@) -{ - my ($hash, @a) = @_; - my $ret = undef; - my $na = int(@a); +sub TRX_LIGHT_Set($@) { + my ( $hash, $name, @a ) = @_; + my $ret = undef; + my $na = int(@a); - return "no set value specified" if($na < 2 || $na > 3); + return "no set value specified" if ( $na < 1 || $na > 2 ); - # look for device_type + # look for device_type - my $name = $a[0]; - my $command = $a[1]; - my $command_state = $a[1]; - my $level = 0; - my $color = 0; - my $arg3 = ""; + my $command = $a[0]; + my $command_state = $a[0]; + my $level = 0; + my $color = 0; + my $arg3 = ""; - # special for on-till - return TRX_LIGHT_Do_On_Till($hash, @a) if($command eq "on-till"); - - # special for on-for-timer - return TRX_LIGHT_Do_On_For_Timer($hash, @a) if($command eq "on-for-timer"); - - - if ($na == 3) { - $arg3 = $a[2]; - if ($na == 3 && $command eq "level" ) { - $level = $a[2]; - } - elsif ($na == 3 && $command eq "color" ) { - $color = $a[2]; - } - } - - my $device_type = $hash->{TRX_LIGHT_type}; - my $deviceid = $hash->{TRX_LIGHT_deviceid}; - - if ($device_type eq "MS14A") { - return "No set implemented for $device_type"; - } - - if ( lc($hash->{TRX_LIGHT_devicelog}) eq "window" || lc($hash->{TRX_LIGHT_devicelog}) eq "door" || - lc($hash->{TRX_LIGHT_devicelog}) eq "motion" || - lc($hash->{TRX_LIGHT_devicelog}) eq "ring" || - lc($hash->{TRX_LIGHT_devicelog}) eq "lightsensor" || lc($hash->{TRX_LIGHT_devicelog}) eq "photosensor" || - lc($hash->{TRX_LIGHT_devicelog}) eq "lock" - ) { - return "No set implemented for $device_type"; - } - - - my $device_type_num = $light_device_c2b{$device_type}; - if(!defined($device_type_num)) { - return "Unknown device_type, choose one of " . - join(" ", sort keys %light_device_c2b); - } - my $protocol_type = $device_type_num >> 8; # high bytes - - # Now check if the command is valid and retrieve the command id: - my $rec = $light_device_commands{$device_type_num}; - my $i; - for ($i=0; $i <= $#$rec && ($rec->[$i] ne $command); $i++) { ;} - - if($rec->[0] eq "Lighting4") { # for Lighting4 - my $command_codes = $hash->{TRX_LIGHT_commandcodes}.","; - my $l = $command_codes; - $l =~ s/([0-9]*):([a-z]*),/$2 /g; - Log3 $name, 5,"TRX_LIGHT_Set() PT2262: l=$l"; - - if (!($command =~ /^[0-2]*$/)) { # if it is base4 just accept it - if ($command ne "?" && $command_codes =~ /([0-9]*):$command,/ ) { - Log3 $name, 5,"TRX_LIGHT_Set() PT2262: arg=$command found=$1"; - $command = $1; - } else { - Log3 $name, 5,"TRX_LIGHT_Set() PT2262: else arg=$command l='$l'"; - - my $error = "Unknown command $command, choose one of $l "; - Log3 $name, 1, "TRX_LIGHT_Set() PT2262".$error if ($command ne "?"); - return $error; + # special for SetExtensions + #old TRX_LIGHT used a special on-for-timer notation + if ($command eq "on-for-timer") { + my ($err,$h,$m,$s,$fb) = GetTimeSpec($a[1]); + if (!defined($err)) { + $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"; } } - } elsif ($i > $#$rec) { - my $l = join(" ", sort @$rec); - if ($device_type eq "AC" || $device_type eq "HOMEEASY" || $device_type eq "ANSLUT") { - $l =~ s/ level / level:slider,0,1,15 /; - } - elsif ($device_type eq "TRC02") { - $l =~ s/ color / color:slider,14,2,128 /; - } - #my $error = "Unknown command $command, choose one of $l"; - my $error = "Unknown command $command, choose one of $l "."on-till on-for-timer"; - Log3 $name, 1, "TRX_LIGHT_Set()".$error if ($command ne "?"); - return $error; - } - - - my $seqnr = 0; - my $cmnd = $i; - - my $hex_prefix; - my $hex_command; - if ($protocol_type == 0x10) { - my $house; - my $unit; - if ($deviceid =~ /(.)(.*)/ ) { - $house = ord("$1"); - $unit = $2; - } else { - Log3 $name, 1, "TRX_LIGHT_Set() lighting1 wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid"; - return "error set name=$name deviceid=$deviceid"; - } - - # lighting1 - $hex_prefix = sprintf "0710"; - $hex_command = sprintf "%02x%02x%02x%02x%02x00", $device_type_num & 0xff, $seqnr, $house, $unit, $cmnd; - Log3 $name, 5, "TRX_LIGHT_Set() name=$name device_type=$device_type, deviceid=$deviceid house=$house, unit=$unit command=$command"; - Log3 $name, 5,"TRX_LIGHT_Set hexline=$hex_prefix$hex_command"; - } elsif ($protocol_type == 0x11) { - # lighting2 - if (uc($deviceid) =~ /^[0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F]$/ ) { - ; - } else { - Log3 $name, 1,"TRX_LIGHT_Set() lighting2 wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid"; - return "error set name=$name deviceid=$deviceid"; - } - $hex_prefix = sprintf "0B11"; - $hex_command = sprintf "%02x%02x%s%02x%02x00", $device_type_num & 0xff, $seqnr, $deviceid, $cmnd, $level; - if ($command eq "level") { - $command .= sprintf " %d", $level; - $command_state = $command; - } - Log3 $name, 5, "TRX_LIGHT_Set() lighting2 name=$name device_type=$device_type, deviceid=$deviceid command=$command"; - Log3 $name, 5, "TRX_LIGHT_Set() lighting2 hexline=$hex_prefix$hex_command"; - } elsif ($protocol_type == 0x12) { - # lighting3 - my $koppla_id = ""; - if (uc($deviceid) =~ /^([0-1][0-9])([0-9A-F])([0-9A-F][0-9A-F])$/ ) { - # $1 = system, $2 = high bits channel, $3 = low bits channel - my $koppla_system = $1 - 1; - if ($koppla_system > 15) { - return "error set name=$name deviceid=$deviceid. system must be in range 01-16"; - } - $koppla_id = sprintf("%02X",$koppla_system).$3."0".$2; - Log3 $name, 5,"TRX_LIGHT_Set() lighting3: deviceid=$deviceid kopplaid=$koppla_id"; - } else { - Log3 $name, 1,"TRX_LIGHT_Set() lighting3 wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid. Wrong deviceid must be 3 digits with range 0000 - f3FF"; - return "error set name=$name deviceid=$deviceid. Wrong deviceid must be 5 digits consisting of 2 digit decimal value for system (01-16) and a 3 hex digit channel (000 - 3ff)"; - } - $hex_prefix = sprintf "0812"; - $hex_command = sprintf "%02x%02x%s%02x00", $device_type_num & 0xff, $seqnr, $koppla_id, $cmnd; - if ($command eq "level") { - $command .= sprintf " %d", $level; - $command_state = $command; - } - Log3 $name, 5,"TRX_LIGHT_Set() lighting3 name=$name device_type=$device_type, deviceid=$deviceid command=$command"; - Log3 $name, 5,"TRX_LIGHT_Set() lighting3 hexline=$hex_prefix$hex_command"; - } elsif ($protocol_type == 0x13) { - # lighting4 (PT2262) - my $pt2262_cmd; - my $base_4; - my $bindata; - my $hexdata; - - if ($command =~ /^[0-3]*$/) { # if it is base4 just append it - $pt2262_cmd = $deviceid.$command; - } else { - - return "TRX_LIGHT_Set() PT2262: cmd=$command name=$name not found"; - } - - - if (uc($pt2262_cmd) =~ /^[0-3][0-3][0-3][0-3][0-3][0-3][0-3][0-3][0-3][0-3][0-3][0-3]$/ ) { - - $base_4 = $pt2262_cmd; - # convert base4 to binary: - my %b42b = (0 => "00", 1 => "01", 2 => "10", 3 => "11"); - ($bindata = $base_4) =~ s/(.)/$b42b{lc $1}/g; - $hexdata = unpack("H*", pack("B*", $bindata)); - Log3 $name, 5,"TRX_LIGHT_Set() PT2262: base4='$base_4', binary='$bindata' hex='$hexdata'"; - - } else { - Log3 $name, 5,"TRX_LIGHT_Set() lighting4:PT2262 cmd='$pt2262_cmd' needs to be base4 and has 12 digits (name=$name device_type=$device_type, deviceid=$deviceid)"; - return "error set name=$name deviceid=$pt2262_cmd (needs to be base4 and has 12 digits)"; - } - $hex_prefix = sprintf "0913"; - $hex_command = sprintf "00%02x%s015E00", $seqnr, $hexdata; - Log3 $name, 5, "TRX_LIGHT_Set() lighting4:PT2262 name=$name cmd=$command cmd_state=$command_state hexdata=$hexdata"; - Log3 $name, 5, "TRX_LIGHT_Set() lighting4:PT2262 hexline=$hex_prefix$hex_command"; - } elsif ($protocol_type == 0x14) { - # lighting5 - if (uc($deviceid) =~ /^[0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F]$/ ) { - ; - } else { - Log3 $name, 1, "TRX_LIGHT_Set() lighting5 wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid"; - return "error set name=$name deviceid=$deviceid"; - } - if ($command eq "color") { - $cmnd = $color; - $command .= sprintf " %d", $color; - $command_state = $command; - } - $hex_prefix = sprintf "0A14"; - $hex_command = sprintf "%02x%02x%s%02x%02x00", $device_type_num & 0xff, $seqnr, $deviceid, $cmnd, $level; - if ($command eq "level") { - $command .= sprintf " %d", $level; - $command_state = $command; - } - Log3 $name, 5, "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"; - } elsif ($protocol_type == 0x16) { - # Chime - if (uc($deviceid) =~ /^[0-9A-F][0-9A-F]$/ ) { - $hex_command = sprintf "%02x%02x00%s%02x00", $device_type_num & 0xff, $seqnr, $deviceid, $cmnd; - } elsif (uc($deviceid) =~ /^[0-9A-F][0-9A-F][0-9A-F][0-9A-F]$/ ) { - $hex_command = sprintf "%02x%02x00%s00", $device_type_num & 0xff, $seqnr, $deviceid, $cmnd; - } elsif (uc($deviceid) =~ /^[0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F]$/ ) { - $hex_command = sprintf "%02x%02x%s00", $device_type_num & 0xff, $seqnr, $deviceid, $cmnd; - } else { - Log3 $name, 1, "TRX_LIGHT_Set() chime wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid"; - return "error set name=$name deviceid=$deviceid"; - } - $hex_prefix = sprintf "0716"; - Log3 $name, 5, "TRX_LIGHT_Set() chime name=$name device_type=$device_type, deviceid=$deviceid command=$command"; - Log3 $name, 5, "TRX_LIGHT_Set() chime hexline=$hex_prefix$hex_command"; - } elsif ($protocol_type == 0x17) { - # fan - if (uc($deviceid) =~ /^[0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F]$/ ) { - ; - } else { - Log3 $name, 1, "TRX_LIGHT_Set() fan wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid"; - return "error set name=$name deviceid=$deviceid"; - } - $hex_prefix = sprintf "0717"; - $hex_command = sprintf "%02x%02x%s%02xx00", $device_type_num & 0xff, $seqnr, $deviceid, $cmnd; - Log3 $name, 5, "TRX_LIGHT_Set() fan name=$name device_type=$device_type, deviceid=$deviceid command=$command"; - Log3 $name, 5, "TRX_LIGHT_Set() fan hexline=$hex_prefix$hex_command"; - } elsif ($protocol_type == 0x18) { - # curtain1 - my $house; - my $unit; - if ($deviceid =~ /(.)(.*)/ ) { - $house = ord("$1"); - $unit = $2; - } else { - Log3 $name, 1, "TRX_LIGHT_Set() curtain1 wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid"; - return "error set name=$name deviceid=$deviceid"; - } - - $hex_prefix = sprintf "0718"; - $hex_command = sprintf "%02x%02x%02x%02x%02x00", $device_type_num & 0xff, $seqnr, $house, $unit, $cmnd; - Log3 $name, 5, "TRX_LIGHT_Set() curtain1 name=$name device_type=$device_type, deviceid=$deviceid house=$house, unit=$unit command=$command"; - Log3 $name, 5,"TRX_LIGHT_Set curtain1 hexline=$hex_prefix$hex_command"; - } elsif ($protocol_type == 0x19) { - # Blinds1 - if (uc($deviceid) =~ /^[0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F]$/ ) { - ; - } else { - Log3 $name, 1, "TRX_LIGHT_Set() Blinds1 wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid"; - return "error set name=$name deviceid=$deviceid"; - } - $hex_prefix = sprintf "0919"; - $hex_command = sprintf "%02x%02x%s%02x00", $device_type_num & 0xff, $seqnr, $deviceid, $cmnd; - Log3 $name, 5, "TRX_LIGHT_Set() Blinds1 name=$name device_type=$device_type, deviceid=$deviceid command=$command"; - Log3 $name, 5, "TRX_LIGHT_Set() Blinds1 hexline=$hex_prefix$hex_command"; - } elsif ($protocol_type == 0x1A) { - my $unitid; - my $unitcode; - if (uc($deviceid) =~ /^([0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F])(0[0-9A-F])$/ ) { - $unitid = $1; - $unitcode = $2; - if (($device_type_num == 0x1A00) && !($unitcode =~ /^0[0-4]$/)) { - 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"; - } - } else { - Log3 $name, 1, "TRX_LIGHT_Set() RFY wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid"; - return "error set name=$name deviceid=$deviceid"; + if ( $na == 2 ) { + $arg3 = $a[1]; + if ( $na == 2 && $command eq "level" ) { + $level = $a[1]; } - $hex_prefix = sprintf "0C1A"; - $hex_command = sprintf "%02x%02x%s%s%02x0000000000", $device_type_num & 0xff, $seqnr, $unitid, $unitcode, $cmnd; - Log3 $name, 5, "TRX_LIGHT_Set() RFY name=$name device_type=$device_type, unitid=$unitid unitcode=$unitcode command=$command"; - Log3 $name, 5, "TRX_LIGHT_Set() RFY hexline=$hex_prefix$hex_command"; - } else { - return "No set implemented for $device_type . Unknown protocol type"; - } + elsif ( $na == 2 && $command eq "color" ) { + $color = $a[1]; + } + } - for (my $repeat = $attr{$name}{repeat} || 1; $repeat >= 1; $repeat = $repeat - 1) { - IOWrite($hash, $hex_prefix, $hex_command); - } + my $device_type = $hash->{TRX_LIGHT_type}; + my $deviceid = $hash->{TRX_LIGHT_deviceid}; - my $tn = TimeNow(); - $hash->{CHANGED}[0] = $command_state; - $hash->{STATE} = $command_state; - $hash->{READINGS}{state}{TIME} = $tn; - $hash->{READINGS}{state}{VAL} = $command_state; + if ( $device_type eq "MS14A" ) { + return "No set implemented for $device_type"; + } - return $ret; -} + if ( lc( $hash->{TRX_LIGHT_devicelog} ) eq "window" + || lc( $hash->{TRX_LIGHT_devicelog} ) eq "door" + || lc( $hash->{TRX_LIGHT_devicelog} ) eq "motion" + || lc( $hash->{TRX_LIGHT_devicelog} ) eq "ring" + || lc( $hash->{TRX_LIGHT_devicelog} ) eq "lightsensor" + || lc( $hash->{TRX_LIGHT_devicelog} ) eq "photosensor" + || lc( $hash->{TRX_LIGHT_devicelog} ) eq "lock" ) + { + return "No set implemented for $device_type"; + } + my $device_type_num = $light_device_c2b{$device_type}; + if ( !defined($device_type_num) ) { + return "Unknown device_type, choose one of " . join( " ", sort keys %light_device_c2b ); + } + my $protocol_type = $device_type_num >> 8; # high bytes -##################################### -sub -TRX_LIGHT_Define($$) -{ - my ($hash, $def) = @_; - my @a = split("[ \t][ \t]*", $def); + # Now check if the command is valid and retrieve the command id: + my $rec = $light_device_commands{$device_type_num}; + my $i; + for ( $i = 0 ; $i <= $#$rec && ( $rec->[$i] ne $command ) ; $i++ ) { ; } - my $a = int(@a); - my $type = ""; - my $deviceid = ""; - my $devicelog = ""; - my $commandcodes = ""; + if ( $rec->[0] eq "Lighting4" ) { # for Lighting4 + my $command_codes = $hash->{TRX_LIGHT_commandcodes} . ","; + my $l = $command_codes; + $l =~ s/([0-9]*):([a-z]*),/$2 /g; + Log3 $name, 5, "TRX_LIGHT_Set() PT2262: l=$l"; - if (int(@a) > 2 && uc($a[2]) eq "PT2262") { - if (int(@a) != 3 && int(@a) != 6) { - Log3 $hash, 1, "TRX_LIGHT_Define() wrong syntax '@a'. \nCorrect syntax is 'define TRX_LIGHT PT2262 [ ]'"; - return "wrong syntax: define TRX_LIGHT PT2262 [ []]"; - } - } elsif(int(@a) != 5 && int(@a) != 7) { - Log3 $hash, 1, "TRX_LIGHT_Define() wrong syntax '@a'. \nCorrect syntax is 'define TRX_LIGHT [ ]'"; - return "wrong syntax: define TRX_LIGHT [ ]"; - } + if ( !( $command =~ /^[0-2]*$/ ) ) { # if it is base4 just accept it + if ( $command ne "?" && $command_codes =~ /([0-9]*):$command,/ ) { + Log3 $name, 5, "TRX_LIGHT_Set() PT2262: arg=$command found=$1"; + $command = $1; + } + else { + Log3 $name, 5, "TRX_LIGHT_Set() PT2262: else arg=$command l='$l'"; - my $name = $a[0]; - $type = uc($a[2]) if (int(@a) > 2); - $deviceid = $a[3] if (int(@a) > 3); - $devicelog = $a[4] if (int(@a) > 4); - $commandcodes = $a[5] if ($type eq "PT2262" && int(@a) > 5); + my $error = "Unknown command $command, choose one of $l "; + Log3 $name, 1, "TRX_LIGHT_Set() PT2262" . $error if ( $command ne "?" ); + return $error; + } + } + } + elsif ( $i > $#$rec ) { + my $l = join( " ", sort @$rec ); + if ( $device_type eq "AC" || $device_type eq "HOMEEASY" || $device_type eq "ANSLUT" ) { + $l =~ s/ level / level:slider,0,1,15 /; + } + elsif ( $device_type eq "TRC02" ) { + $l =~ s/ color / color:slider,14,2,128 /; + } - if ($type ne "X10" && $type ne "ARC" && $type ne "MS14A" && $type ne "AB400D" && $type ne "WAVEMAN" && $type ne "EMW200" && $type ne "IMPULS" && $type ne "RISINGSUN" && $type ne "PHILIPS_SBC" && $type ne "AC" && $type ne "HOMEEASY" && $type ne "ANSLUT" && $type ne "KOPPLA" && $type ne "LIGHTWAVERF" && $type ne "EMW100" && $type ne "BBSB" && $type ne "TRC02" && $type ne "PT2262" && $type ne "ENER010" && $type ne "ENER5" && $type ne "COCO_GDR2" && $type ne "MDREMOTE" && $type ne "RSL2" && $type ne "LIVOLO" && $type ne "BLYSS" && $type ne "BYRONSX" && $type ne "SIEMENS_SF01" && $type ne "HARRISON" && $type ne "ROLLER_TROL" && $type ne "HASTA_OLD" && $type ne "AOK_RF01" && $type ne "AOK_AC114" && $type ne "RAEX_YR1326" && $type ne "MEDIA_MOUNT" && $type ne "DC106" && $type ne "FOREST" && $type ne "RFY" && $type ne "RFY_ext" && $type ne "SELECTPLUS") { - Log3 $name, 1,"TRX_LIGHT_Define() wrong type: $type"; - return "TRX_LIGHT: wrong type: $type"; - } - my $my_type; - if ($type eq "MS14A") { - $my_type = "X10"; # device will be received as X10 - } else { - $my_type = $type; - } + #my $error = "Unknown command $command, choose one of $l"; + #my $error = "Unknown command $command, choose one of $l"; + return SetExtensions( $hash, $l, $name, @a ); - my $device_name = "TRX".$DOT.$my_type; - if ($deviceid ne "") { $device_name .= $DOT.$deviceid }; + #Log3 $name, 1, "TRX_LIGHT_Set()" . $error if ( $command ne "?" ); + #return $error; + } - $hash->{TRX_LIGHT_deviceid} = $deviceid; - $hash->{TRX_LIGHT_devicelog} = $devicelog; - $hash->{TRX_LIGHT_commandcodes} = $commandcodes if ($type eq "PT2262"); - $hash->{TRX_LIGHT_type} = $type; - #$hash->{TRX_LIGHT_CODE} = $deviceid; - $modules{TRX_LIGHT}{defptr}{$device_name} = $hash; + my $seqnr = 0; + my $cmnd = $i; + my $hex_prefix; + my $hex_command; + if ( $protocol_type == 0x10 ) { + my $house; + my $unit; + if ( $deviceid =~ /(.)(.*)/ ) { + $house = ord("$1"); + $unit = $2; + } + else { + Log3 $name, 1, + "TRX_LIGHT_Set() lighting1 wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid"; + return "error set name=$name deviceid=$deviceid"; + } - if (int(@a) == 7) { - # there is a second deviceid: - # - my $deviceid2 = $a[5]; - my $devicelog2 = $a[6]; + # lighting1 + $hex_prefix = sprintf "0710"; + $hex_command = sprintf "%02x%02x%02x%02x%02x00", $device_type_num & 0xff, $seqnr, $house, $unit, $cmnd; + Log3 $name, 5, +"TRX_LIGHT_Set() name=$name device_type=$device_type, deviceid=$deviceid house=$house, unit=$unit command=$command"; + Log3 $name, 5, "TRX_LIGHT_Set hexline=$hex_prefix$hex_command"; + } + elsif ( $protocol_type == 0x11 ) { - my $device_name2 = "TRX".$DOT.$my_type.$DOT.$deviceid2; + # lighting2 + if ( uc($deviceid) =~ /^[0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F]$/ ) { + ; + } + else { + Log3 $name, 1, + "TRX_LIGHT_Set() lighting2 wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid"; + return "error set name=$name deviceid=$deviceid"; + } + $hex_prefix = sprintf "0B11"; + $hex_command = sprintf "%02x%02x%s%02x%02x00", $device_type_num & 0xff, $seqnr, $deviceid, $cmnd, $level; + if ( $command eq "level" ) { + $command .= sprintf " %d", $level; + $command_state = $command; + } + Log3 $name, 5, + "TRX_LIGHT_Set() lighting2 name=$name device_type=$device_type, deviceid=$deviceid command=$command"; + Log3 $name, 5, "TRX_LIGHT_Set() lighting2 hexline=$hex_prefix$hex_command"; + } + elsif ( $protocol_type == 0x12 ) { - $hash->{TRX_LIGHT_deviceid2} = $deviceid2; - $hash->{TRX_LIGHT_devicelog2} = $devicelog2; - #$hash->{TRX_LIGHT_CODE2} = $deviceid2; - $modules{TRX_LIGHT}{defptr2}{$device_name2} = $hash; - } + # lighting3 + my $koppla_id = ""; + if ( uc($deviceid) =~ /^([0-1][0-9])([0-9A-F])([0-9A-F][0-9A-F])$/ ) { - AssignIoPort($hash); + # $1 = system, $2 = high bits channel, $3 = low bits channel + my $koppla_system = $1 - 1; + if ( $koppla_system > 15 ) { + return "error set name=$name deviceid=$deviceid. system must be in range 01-16"; + } + $koppla_id = sprintf( "%02X", $koppla_system ) . $3 . "0" . $2; + Log3 $name, 5, "TRX_LIGHT_Set() lighting3: deviceid=$deviceid kopplaid=$koppla_id"; + } + else { + Log3 $name, 1, +"TRX_LIGHT_Set() lighting3 wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid. Wrong deviceid must be 3 digits with range 0000 - f3FF"; + return +"error set name=$name deviceid=$deviceid. Wrong deviceid must be 5 digits consisting of 2 digit decimal value for system (01-16) and a 3 hex digit channel (000 - 3ff)"; + } + $hex_prefix = sprintf "0812"; + $hex_command = sprintf "%02x%02x%s%02x00", $device_type_num & 0xff, $seqnr, $koppla_id, $cmnd; + if ( $command eq "level" ) { + $command .= sprintf " %d", $level; + $command_state = $command; + } + Log3 $name, 5, + "TRX_LIGHT_Set() lighting3 name=$name device_type=$device_type, deviceid=$deviceid command=$command"; + Log3 $name, 5, "TRX_LIGHT_Set() lighting3 hexline=$hex_prefix$hex_command"; + } + elsif ( $protocol_type == 0x13 ) { - return undef; + # lighting4 (PT2262) + my $pt2262_cmd; + my $base_4; + my $bindata; + my $hexdata; + + if ( $command =~ /^[0-3]*$/ ) { # if it is base4 just append it + $pt2262_cmd = $deviceid . $command; + } + else { + + return "TRX_LIGHT_Set() PT2262: cmd=$command name=$name not found"; + } + + if ( uc($pt2262_cmd) =~ /^[0-3][0-3][0-3][0-3][0-3][0-3][0-3][0-3][0-3][0-3][0-3][0-3]$/ ) { + + $base_4 = $pt2262_cmd; + + # convert base4 to binary: + my %b42b = ( 0 => "00", 1 => "01", 2 => "10", 3 => "11" ); + ( $bindata = $base_4 ) =~ s/(.)/$b42b{lc $1}/g; + $hexdata = unpack( "H*", pack( "B*", $bindata ) ); + Log3 $name, 5, "TRX_LIGHT_Set() PT2262: base4='$base_4', binary='$bindata' hex='$hexdata'"; + + } + else { + Log3 $name, 5, +"TRX_LIGHT_Set() lighting4:PT2262 cmd='$pt2262_cmd' needs to be base4 and has 12 digits (name=$name device_type=$device_type, deviceid=$deviceid)"; + return "error set name=$name deviceid=$pt2262_cmd (needs to be base4 and has 12 digits)"; + } + $hex_prefix = sprintf "0913"; + $hex_command = sprintf "00%02x%s015E00", $seqnr, $hexdata; + Log3 $name, 5, + "TRX_LIGHT_Set() lighting4:PT2262 name=$name cmd=$command cmd_state=$command_state hexdata=$hexdata"; + Log3 $name, 5, "TRX_LIGHT_Set() lighting4:PT2262 hexline=$hex_prefix$hex_command"; + } + elsif ( $protocol_type == 0x14 ) { + + # lighting5 + if ( uc($deviceid) =~ /^[0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F]$/ ) { + ; + } + else { + Log3 $name, 1, + "TRX_LIGHT_Set() lighting5 wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid"; + return "error set name=$name deviceid=$deviceid"; + } + if ( $command eq "color" ) { + $cmnd = $color; + $command .= sprintf " %d", $color; + $command_state = $command; + } + $hex_prefix = sprintf "0A14"; + $hex_command = sprintf "%02x%02x%s%02x%02x00", $device_type_num & 0xff, $seqnr, $deviceid, $cmnd, $level; + if ( $command eq "level" ) { + $command .= sprintf " %d", $level; + $command_state = $command; + } + Log3 $name, 5, + "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"; + } + elsif ( $protocol_type == 0x16 ) { + + # Chime + if ( uc($deviceid) =~ /^[0-9A-F][0-9A-F]$/ ) { + $hex_command = sprintf "%02x%02x00%s%02x00", $device_type_num & 0xff, $seqnr, $deviceid, $cmnd; + } + elsif ( uc($deviceid) =~ /^[0-9A-F][0-9A-F][0-9A-F][0-9A-F]$/ ) { + $hex_command = sprintf "%02x%02x00%s00", $device_type_num & 0xff, $seqnr, $deviceid, $cmnd; + } + elsif ( uc($deviceid) =~ /^[0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F]$/ ) { + $hex_command = sprintf "%02x%02x%s00", $device_type_num & 0xff, $seqnr, $deviceid, $cmnd; + } + else { + Log3 $name, 1, + "TRX_LIGHT_Set() chime wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid"; + return "error set name=$name deviceid=$deviceid"; + } + $hex_prefix = sprintf "0716"; + Log3 $name, 5, "TRX_LIGHT_Set() chime name=$name device_type=$device_type, deviceid=$deviceid command=$command"; + Log3 $name, 5, "TRX_LIGHT_Set() chime hexline=$hex_prefix$hex_command"; + } + elsif ( $protocol_type == 0x17 ) { + + # fan + if ( uc($deviceid) =~ /^[0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F]$/ ) { + ; + } + else { + Log3 $name, 1, + "TRX_LIGHT_Set() fan wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid"; + return "error set name=$name deviceid=$deviceid"; + } + $hex_prefix = sprintf "0717"; + $hex_command = sprintf "%02x%02x%s%02xx00", $device_type_num & 0xff, $seqnr, $deviceid, $cmnd; + Log3 $name, 5, "TRX_LIGHT_Set() fan name=$name device_type=$device_type, deviceid=$deviceid command=$command"; + Log3 $name, 5, "TRX_LIGHT_Set() fan hexline=$hex_prefix$hex_command"; + } + elsif ( $protocol_type == 0x18 ) { + + # curtain1 + my $house; + my $unit; + if ( $deviceid =~ /(.)(.*)/ ) { + $house = ord("$1"); + $unit = $2; + } + else { + Log3 $name, 1, + "TRX_LIGHT_Set() curtain1 wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid"; + return "error set name=$name deviceid=$deviceid"; + } + + $hex_prefix = sprintf "0718"; + $hex_command = sprintf "%02x%02x%02x%02x%02x00", $device_type_num & 0xff, $seqnr, $house, $unit, $cmnd; + Log3 $name, 5, +"TRX_LIGHT_Set() curtain1 name=$name device_type=$device_type, deviceid=$deviceid house=$house, unit=$unit command=$command"; + Log3 $name, 5, "TRX_LIGHT_Set curtain1 hexline=$hex_prefix$hex_command"; + } + elsif ( $protocol_type == 0x19 ) { + + # Blinds1 + if ( uc($deviceid) =~ /^[0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F]$/ ) { + ; + } + else { + Log3 $name, 1, + "TRX_LIGHT_Set() Blinds1 wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid"; + return "error set name=$name deviceid=$deviceid"; + } + $hex_prefix = sprintf "0919"; + $hex_command = sprintf "%02x%02x%s%02x00", $device_type_num & 0xff, $seqnr, $deviceid, $cmnd; + Log3 $name, 5, + "TRX_LIGHT_Set() Blinds1 name=$name device_type=$device_type, deviceid=$deviceid command=$command"; + Log3 $name, 5, "TRX_LIGHT_Set() Blinds1 hexline=$hex_prefix$hex_command"; + } + elsif ( $protocol_type == 0x1A ) { + my $unitid; + my $unitcode; + if ( uc($deviceid) =~ /^([0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F][0-9A-F])(0[0-9A-F])$/ ) { + $unitid = $1; + $unitcode = $2; + if ( ( $device_type_num == 0x1A00 ) && !( $unitcode =~ /^0[0-4]$/ ) ) { + 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"; + } + } + else { + Log3 $name, 1, + "TRX_LIGHT_Set() RFY wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid"; + return "error set name=$name deviceid=$deviceid"; + } + $hex_prefix = sprintf "0C1A"; + $hex_command = sprintf "%02x%02x%s%s%02x0000000000", $device_type_num & 0xff, $seqnr, $unitid, $unitcode, $cmnd; + Log3 $name, 5, + "TRX_LIGHT_Set() RFY name=$name device_type=$device_type, unitid=$unitid unitcode=$unitcode command=$command"; + Log3 $name, 5, "TRX_LIGHT_Set() RFY hexline=$hex_prefix$hex_command"; + } + else { + return "No set implemented for $device_type . Unknown protocol type"; + } + + for ( my $repeat = $attr{$name}{repeat} || 1 ; $repeat >= 1 ; $repeat = $repeat - 1 ) { + IOWrite( $hash, $hex_prefix, $hex_command ); + } + + my $tn = TimeNow(); + $hash->{CHANGED}[0] = $command_state; + $hash->{STATE} = $command_state; + $hash->{READINGS}{state}{TIME} = $tn; + $hash->{READINGS}{state}{VAL} = $command_state; + + # Add readingsupdate to trigger event / KernSani + readingsBeginUpdate($hash); + readingsBulkUpdate( $hash, "state", $command_state ); + readingsEndUpdate( $hash, 1 ); + return $ret; } ##################################### -sub -TRX_LIGHT_Undef($$) -{ - my ($hash, $name) = @_; - delete($modules{TRX_LIGHT}{defptr}{$name}); - return undef; +sub TRX_LIGHT_Define($$) { + my ( $hash, $def ) = @_; + my @a = split( "[ \t][ \t]*", $def ); + + my $a = int(@a); + my $type = ""; + my $deviceid = ""; + my $devicelog = ""; + my $commandcodes = ""; + + if ( int(@a) > 2 && uc( $a[2] ) eq "PT2262" ) { + if ( int(@a) != 3 && int(@a) != 6 ) { + Log3 $hash, 1, +"TRX_LIGHT_Define() wrong syntax '@a'. \nCorrect syntax is 'define TRX_LIGHT PT2262 [ ]'"; + return "wrong syntax: define TRX_LIGHT PT2262 [ []]"; + } + } + elsif ( int(@a) != 5 && int(@a) != 7 ) { + Log3 $hash, 1, +"TRX_LIGHT_Define() wrong syntax '@a'. \nCorrect syntax is 'define TRX_LIGHT [ ]'"; + return "wrong syntax: define TRX_LIGHT [ ]"; + } + + my $name = $a[0]; + $type = uc( $a[2] ) if ( int(@a) > 2 ); + $deviceid = $a[3] if ( int(@a) > 3 ); + $devicelog = $a[4] if ( int(@a) > 4 ); + $commandcodes = $a[5] if ( $type eq "PT2262" && int(@a) > 5 ); + + if ( $type ne "X10" + && $type ne "ARC" + && $type ne "MS14A" + && $type ne "AB400D" + && $type ne "WAVEMAN" + && $type ne "EMW200" + && $type ne "IMPULS" + && $type ne "RISINGSUN" + && $type ne "PHILIPS_SBC" + && $type ne "AC" + && $type ne "HOMEEASY" + && $type ne "ANSLUT" + && $type ne "KOPPLA" + && $type ne "LIGHTWAVERF" + && $type ne "EMW100" + && $type ne "BBSB" + && $type ne "TRC02" + && $type ne "PT2262" + && $type ne "ENER010" + && $type ne "ENER5" + && $type ne "COCO_GDR2" + && $type ne "MDREMOTE" + && $type ne "RSL2" + && $type ne "LIVOLO" + && $type ne "BLYSS" + && $type ne "BYRONSX" + && $type ne "SIEMENS_SF01" + && $type ne "HARRISON" + && $type ne "ROLLER_TROL" + && $type ne "HASTA_OLD" + && $type ne "AOK_RF01" + && $type ne "AOK_AC114" + && $type ne "RAEX_YR1326" + && $type ne "MEDIA_MOUNT" + && $type ne "DC106" + && $type ne "FOREST" + && $type ne "RFY" + && $type ne "RFY_ext" + && $type ne "SELECTPLUS" ) + { + Log3 $name, 1, "TRX_LIGHT_Define() wrong type: $type"; + return "TRX_LIGHT: wrong type: $type"; + } + my $my_type; + if ( $type eq "MS14A" ) { + $my_type = "X10"; # device will be received as X10 + } + else { + $my_type = $type; + } + + my $device_name = "TRX" . $DOT . $my_type; + if ( $deviceid ne "" ) { $device_name .= $DOT . $deviceid } + + $hash->{TRX_LIGHT_deviceid} = $deviceid; + $hash->{TRX_LIGHT_devicelog} = $devicelog; + $hash->{TRX_LIGHT_commandcodes} = $commandcodes if ( $type eq "PT2262" ); + $hash->{TRX_LIGHT_type} = $type; + + #$hash->{TRX_LIGHT_CODE} = $deviceid; + $modules{TRX_LIGHT}{defptr}{$device_name} = $hash; + + if ( int(@a) == 7 ) { + + # there is a second deviceid: + # + my $deviceid2 = $a[5]; + my $devicelog2 = $a[6]; + + my $device_name2 = "TRX" . $DOT . $my_type . $DOT . $deviceid2; + + $hash->{TRX_LIGHT_deviceid2} = $deviceid2; + $hash->{TRX_LIGHT_devicelog2} = $devicelog2; + + #$hash->{TRX_LIGHT_CODE2} = $deviceid2; + $modules{TRX_LIGHT}{defptr2}{$device_name2} = $hash; + } + + AssignIoPort($hash); + + return undef; } +##################################### +sub TRX_LIGHT_Undef($$) { + my ( $hash, $name ) = @_; + delete( $modules{TRX_LIGHT}{defptr}{$name} ); + return undef; +} ############################################ # T R X _ L I G H T _ p a r s e _ X 1 0 ( ) #------------------------------------------- -sub TRX_LIGHT_parse_X10 ($$) -{ - my ($hash, $bytes) = @_; +sub TRX_LIGHT_parse_X10 ($$) { + my ( $hash, $bytes ) = @_; - my $error = ""; + my $error = ""; + #my $device; - #my $device; + my $type = $bytes->[0]; + my $subtype = $bytes->[1]; + my $dev_type; + my $dev_reading; + my $rest; - my $type = $bytes->[0]; - my $subtype = $bytes->[1]; - my $dev_type; - my $dev_reading; - my $rest; + my $type_subtype = ( $type << 8 ) + $subtype; - my $type_subtype = ($type << 8) + $subtype; + if ( exists $light_device_codes{$type_subtype} ) { + my $rec = $light_device_codes{$type_subtype}; + ( $dev_type, $dev_reading ) = @$rec; + } + else { + $error = sprintf "TRX_LIGHT: error undefined type=%02x, subtype=%02x", $type, $subtype; + Log3 $hash, 1, "TRX_LIGHT_parse_X10() " . $error; + return $error; + } - if (exists $light_device_codes{$type_subtype}) { - my $rec = $light_device_codes{$type_subtype}; - ($dev_type, $dev_reading) = @$rec; - } else { - $error = sprintf "TRX_LIGHT: error undefined type=%02x, subtype=%02x", $type, $subtype; - Log3 $hash, 1, "TRX_LIGHT_parse_X10() ".$error; - return $error; - } + if ( $dev_type eq "BBSB" ) { return " "; } # ignore BBSB messages temporarily because of receiving problems - if ($dev_type eq "BBSB") { return " "; } # ignore BBSB messages temporarily because of receiving problems + my $device; + my $data; + if ( $type == 0x10 || $type == 0x18 ) { + my $dev_first = "?"; - my $device; - my $data; - if ($type == 0x10 || $type == 0x18) { - my $dev_first = "?"; + my %x10_housecode = ( + 0x41 => "A", + 0x42 => "B", + 0x43 => "C", + 0x44 => "D", + 0x45 => "E", + 0x46 => "F", + 0x47 => "G", + 0x48 => "H", + 0x49 => "I", + 0x4A => "J", + 0x4B => "K", + 0x4C => "L", + 0x4D => "M", + 0x4E => "N", + 0x4F => "O", + 0x50 => "P", + ); + my $devnr = $bytes->[3]; # housecode + if ( exists $x10_housecode{$devnr} ) { + $dev_first = $x10_housecode{$devnr}; + } + else { + $error = sprintf "TRX_LIGHT: x10_housecode wrong housecode=%02x", $devnr; + Log3 $hash, 1, "TRX_LIGHT_parse_X10() " . $error; + return $error; + } + my $unit = $bytes->[4]; # unitcode + $device = sprintf '%s%0d', $dev_first, $unit; + $data = $bytes->[5]; - my %x10_housecode = - ( - 0x41 => "A", - 0x42 => "B", - 0x43 => "C", - 0x44 => "D", - 0x45 => "E", - 0x46 => "F", - 0x47 => "G", - 0x48 => "H", - 0x49 => "I", - 0x4A => "J", - 0x4B => "K", - 0x4C => "L", - 0x4D => "M", - 0x4E => "N", - 0x4F => "O", - 0x50 => "P", - ); - my $devnr = $bytes->[3]; # housecode - if (exists $x10_housecode{$devnr}) { - $dev_first = $x10_housecode{$devnr}; - } else { - $error = sprintf "TRX_LIGHT: x10_housecode wrong housecode=%02x", $devnr; - Log3 $hash, 1, "TRX_LIGHT_parse_X10() ".$error; - return $error; - } - my $unit = $bytes->[4]; # unitcode - $device = sprintf '%s%0d', $dev_first, $unit; - $data = $bytes->[5]; - - } elsif ($type == 0x11) { - $device = sprintf '%02x%02x%02x%02x%02x', $bytes->[3], $bytes->[4], $bytes->[5], $bytes->[6], $bytes->[7]; - $data = $bytes->[8]; - } elsif ($type == 0x14) { - $device = sprintf '%02x%02x%02x%02x', $bytes->[3], $bytes->[4], $bytes->[5], $bytes->[6]; - $data = $bytes->[7]; - } elsif ($type == 0x15) { - $device = sprintf '%02x%02x%c%d', $bytes->[3], $bytes->[4], $bytes->[5], $bytes->[6]; - $data = $bytes->[7]; - } elsif ($type == 0x16) { #Chime - if ($subtype == 0x00) { - $device = sprintf '%02x', $bytes->[4]; - $data = $bytes->[5]; - } else { - $device = sprintf '%02x', $bytes->[3], $bytes->[4]; - $data = 0; - } - } elsif ($type == 0x17) { # Fan - $device = sprintf '%02x%02x%02x', $bytes->[3], $bytes->[4], $bytes->[5]; - $data = $bytes->[6]; - } elsif ($type == 0x19) { # Blinds1 - $device = sprintf '%02x%02x%02x%02x', $bytes->[3], $bytes->[4], $bytes->[5], $bytes->[6]; - $data = $bytes->[7]; - } elsif ($type == 0x1A) { # RFY - $device = printf '%02x%02x%02x%02x', $bytes->[3], $bytes->[4], $bytes->[5], $bytes->[6]; + } + elsif ( $type == 0x11 ) { + $device = sprintf '%02x%02x%02x%02x%02x', $bytes->[3], $bytes->[4], $bytes->[5], $bytes->[6], $bytes->[7]; + $data = $bytes->[8]; + } + elsif ( $type == 0x14 ) { + $device = sprintf '%02x%02x%02x%02x', $bytes->[3], $bytes->[4], $bytes->[5], $bytes->[6]; $data = $bytes->[7]; - } else { - $error = sprintf "TRX_LIGHT: wrong type=%02x", $type; - Log3 $hash, 1, "TRX_LIGHT_parse_X10() ".$error; - return $error; - } - my $hexdata = sprintf '%02x', $data; + } + elsif ( $type == 0x15 ) { + $device = sprintf '%02x%02x%c%d', $bytes->[3], $bytes->[4], $bytes->[5], $bytes->[6]; + $data = $bytes->[7]; + } + elsif ( $type == 0x16 ) { #Chime + if ( $subtype == 0x00 ) { + $device = sprintf '%02x', $bytes->[4]; + $data = $bytes->[5]; + } + else { + $device = sprintf '%02x', $bytes->[3], $bytes->[4]; + $data = 0; + } + } + elsif ( $type == 0x17 ) { # Fan + $device = sprintf '%02x%02x%02x', $bytes->[3], $bytes->[4], $bytes->[5]; + $data = $bytes->[6]; + } + elsif ( $type == 0x19 ) { # Blinds1 + $device = sprintf '%02x%02x%02x%02x', $bytes->[3], $bytes->[4], $bytes->[5], $bytes->[6]; + $data = $bytes->[7]; + } + elsif ( $type == 0x1A ) { # RFY + $device = printf '%02x%02x%02x%02x', $bytes->[3], $bytes->[4], $bytes->[5], $bytes->[6]; + $data = $bytes->[7]; + } + else { + $error = sprintf "TRX_LIGHT: wrong type=%02x", $type; + Log3 $hash, 1, "TRX_LIGHT_parse_X10() " . $error; + return $error; + } + my $hexdata = sprintf '%02x', $data; + my $command = ""; + if ( exists $light_device_commands{$type_subtype} ) { + my $code = $light_device_commands{$type_subtype}; + if ( exists $code->[$data] ) { + $command = $code->[$data]; + } + else { + $error = sprintf "TRX_LIGHT: unknown cmd type_subtype=%02x cmd=%02x", $type_subtype, $data; + Log3 $hash, 1, "TRX_LIGHT_parse_X10() " . $error; + return $error; + } + } + else { + $error = sprintf "TRX_LIGHT: unknown type_subtype %02x data=%02x", $type_subtype, $data; + Log3 $hash, 1, "TRX_LIGHT_parse_X10() " . $error; + return $error; + } - my $command = ""; - if (exists $light_device_commands{$type_subtype}) { - my $code = $light_device_commands{$type_subtype}; - if (exists $code->[$data]) { - $command = $code->[$data]; - } else { - $error = sprintf "TRX_LIGHT: unknown cmd type_subtype=%02x cmd=%02x", $type_subtype, $data; - Log3 $hash, 1, "TRX_LIGHT_parse_X10() ".$error; - return $error; - } - } else { - $error = sprintf "TRX_LIGHT: unknown type_subtype %02x data=%02x", $type_subtype, $data; - Log3 $hash, 1, "TRX_LIGHT_parse_X10() ".$error; - return $error; - } + #my @res; + my $current = ""; - #my @res; - my $current = ""; + #-------------- + my $device_name = "TRX" . $DOT . $dev_type . $DOT . $device; + Log3 $hash, 5, "TRX_LIGHT: device_name=$device_name data=$hexdata"; - #-------------- - my $device_name = "TRX".$DOT.$dev_type.$DOT.$device; - Log3 $hash, 5, "TRX_LIGHT: device_name=$device_name data=$hexdata"; + my $firstdevice = 1; + my $def = $modules{TRX_LIGHT}{defptr}{$device_name}; + if ( !$def ) { + $firstdevice = 0; + $def = $modules{TRX_LIGHT}{defptr2}{$device_name}; + if ( !$def ) { + Log3 $hash, 5, "TRX_LIGHT_parse_X10() UNDEFINED $device_name TRX_LIGHT $dev_type $device $dev_reading"; + Log3 $hash, 3, "TRX_LIGHT_parse_X10() Unknown device $device_name, please define it"; + return "UNDEFINED $device_name TRX_LIGHT $dev_type $device $dev_reading"; - my $firstdevice = 1; - my $def = $modules{TRX_LIGHT}{defptr}{$device_name}; - if(!$def) { - $firstdevice = 0; - $def = $modules{TRX_LIGHT}{defptr2}{$device_name}; - if (!$def) { - Log3 $hash, 5, "TRX_LIGHT_parse_X10() UNDEFINED $device_name TRX_LIGHT $dev_type $device $dev_reading"; - Log3 $hash, 3, "TRX_LIGHT_parse_X10() Unknown device $device_name, please define it"; - return "UNDEFINED $device_name TRX_LIGHT $dev_type $device $dev_reading"; + } + } - } - } + # Use $def->{NAME}, because the device may be renamed: + my $name = $def->{NAME}; + return "" if ( IsIgnored($name) ); - # Use $def->{NAME}, because the device may be renamed: - my $name = $def->{NAME}; - return "" if(IsIgnored($name)); + Log3 $name, 5, "TRX_LIGHT_parse_X10() $name devn=$device_name first=$firstdevice command=$command, cmd=$hexdata"; - Log3 $name, 5, "TRX_LIGHT_parse_X10() $name devn=$device_name first=$firstdevice command=$command, cmd=$hexdata"; + my $n = 0; + my $tm = TimeNow(); + my $val = ""; - my $n = 0; - my $tm = TimeNow(); - my $val = ""; + my $device_type = $def->{TRX_LIGHT_type}; - my $device_type = $def->{TRX_LIGHT_type}; + my $sensor = ""; - my $sensor = ""; + if ( $device_type eq "MS14A" ) { - if ($device_type eq "MS14A") { - # for ms14a behave like x10 - $device_type = "X10"; - } + # for ms14a behave like x10 + $device_type = "X10"; + } - if (lc($def->{TRX_LIGHT_devicelog}) eq "window" || lc($def->{TRX_LIGHT_devicelog}) eq "door") { - $command = ($command eq "on") ? "Open" : "Closed" ; - } elsif (lc($def->{TRX_LIGHT_devicelog}) eq "motion") { - $command = ($command eq "on") ? "alert" : "normal" ; - } elsif (lc($def->{TRX_LIGHT_devicelog}) eq "lightsensor" || lc($def->{TRX_LIGHT_devicelog}) eq "photosensor") { - $command = ($command eq "on") ? "dark" : "bright" ; - } elsif (lc($def->{TRX_LIGHT_devicelog}) eq "lock") { - $command = ($command eq "on") ? "Closed" : "Open" ; - } elsif (lc($def->{TRX_LIGHT_devicelog}) eq "ring") { - $command = ($command eq "on") ? "normal" : "alert" ; - } + if ( lc( $def->{TRX_LIGHT_devicelog} ) eq "window" || lc( $def->{TRX_LIGHT_devicelog} ) eq "door" ) { + $command = ( $command eq "on" ) ? "Open" : "Closed"; + } + elsif ( lc( $def->{TRX_LIGHT_devicelog} ) eq "motion" ) { + $command = ( $command eq "on" ) ? "alert" : "normal"; + } + elsif ( lc( $def->{TRX_LIGHT_devicelog} ) eq "lightsensor" || lc( $def->{TRX_LIGHT_devicelog} ) eq "photosensor" ) { + $command = ( $command eq "on" ) ? "dark" : "bright"; + } + elsif ( lc( $def->{TRX_LIGHT_devicelog} ) eq "lock" ) { + $command = ( $command eq "on" ) ? "Closed" : "Open"; + } + elsif ( lc( $def->{TRX_LIGHT_devicelog} ) eq "ring" ) { + $command = ( $command eq "on" ) ? "normal" : "alert"; + } - readingsBeginUpdate($def); + readingsBeginUpdate($def); - if ($type == 0x10 || $type == 0x11 || $type == 0x14 || $type == 0x16) { - # try to use it for all types: - $current = $command; - if ($type == 0x11 && $command eq "level") { - # append level number - my $level = $bytes->[9]; - $current .= sprintf " %d", $level; - } elsif ($type == 0x14 && $command eq "level") { - # append level number - my $level = $bytes->[8]; - $current .= sprintf " %d", $level; - } + if ( $type == 0x10 || $type == 0x11 || $type == 0x14 || $type == 0x16 ) { - $sensor = $firstdevice == 1 ? $def->{TRX_LIGHT_devicelog} : $def->{TRX_LIGHT_devicelog2}; - $val .= $current; - if ($sensor ne "none") { readingsBulkUpdate($def, $sensor, $current); } - } else { - $error = sprintf "TRX_LIGHT: error unknown sensor type=%x device_type=%s devn=%s first=%d command=%s", $type, $device_type, $device_name, $firstdevice, $command; - Log3 $name, 1, "TRX_LIGHT_parse_X10() ".$error; - return $error; - } + # try to use it for all types: + $current = $command; + if ( $type == 0x11 && $command eq "level" ) { - if (($firstdevice == 1) && $val) { - #$def->{STATE} = $val; - readingsBulkUpdate($def, "state", $val); - } + # append level number + my $level = $bytes->[9]; + $current .= sprintf " %d", $level; + } + elsif ( $type == 0x14 && $command eq "level" ) { - readingsEndUpdate($def, 1); + # append level number + my $level = $bytes->[8]; + $current .= sprintf " %d", $level; + } - return $name; + $sensor = $firstdevice == 1 ? $def->{TRX_LIGHT_devicelog} : $def->{TRX_LIGHT_devicelog2}; + $val .= $current; + if ( $sensor ne "none" ) { readingsBulkUpdate( $def, $sensor, $current ); } + } + else { + $error = sprintf "TRX_LIGHT: error unknown sensor type=%x device_type=%s devn=%s first=%d command=%s", $type, + $device_type, $device_name, $firstdevice, $command; + Log3 $name, 1, "TRX_LIGHT_parse_X10() " . $error; + return $error; + } + + if ( ( $firstdevice == 1 ) && $val ) { + + #$def->{STATE} = $val; + readingsBulkUpdate( $def, "state", $val ); + } + + readingsEndUpdate( $def, 1 ); + + return $name; } ######################################################## # T R X _ L I G H T _ p a r s e _ P T 2 2 6 2 ( ) #------------------------------------------------------- -sub TRX_LIGHT_parse_PT2262 ($$) -{ - my ($hash, $bytes) = @_; +sub TRX_LIGHT_parse_PT2262 ($$) { + my ( $hash, $bytes ) = @_; - my $error = ""; + my $error = ""; + #my $device; - #my $device; + my $type = $bytes->[0]; + my $subtype = $bytes->[1]; + my $dev_type; + my $dev_reading; + my $rest; - my $type = $bytes->[0]; - my $subtype = $bytes->[1]; - my $dev_type; - my $dev_reading; - my $rest; + my $type_subtype = ( $type << 8 ) + $subtype; - my $type_subtype = ($type << 8) + $subtype; + if ( exists $light_device_codes{$type_subtype} ) { + my $rec = $light_device_codes{$type_subtype}; + ( $dev_type, $dev_reading ) = @$rec; + } + else { + $error = sprintf "TRX_LIGHT: PT2262 error undefined type=%02x, subtype=%02x", $type, $subtype; + Log3 $hash, 1, "TRX_LIGHT_parse_PT2262() " . $error; + return $error; + } - if (exists $light_device_codes{$type_subtype}) { - my $rec = $light_device_codes{$type_subtype}; - ($dev_type, $dev_reading) = @$rec; - } else { - $error = sprintf "TRX_LIGHT: PT2262 error undefined type=%02x, subtype=%02x", $type, $subtype; - Log3 $hash, 1, "TRX_LIGHT_parse_PT2262() ".$error; - return $error; - } + my $device; - my $device; + $device = ""; - $device = ""; + my $command = "error"; + my $current = ""; - my $command = "error"; - my $current = ""; + my $hexdata = sprintf '%02x%02x%02x', $bytes->[3], $bytes->[4], $bytes->[5]; + my $hex_length = length($hexdata); + my $bin_length = $hex_length * 4; + my $bindata = unpack( "B$bin_length", pack( "H$hex_length", $hexdata ) ); - my $hexdata = sprintf '%02x%02x%02x', $bytes->[3], $bytes->[4], $bytes->[5]; - my $hex_length = length($hexdata); - my $bin_length = $hex_length * 4; - my $bindata = unpack("B$bin_length", pack("H$hex_length", $hexdata)); + #my @a = ($bindata =~ /[0-1]{2}/g); + my $base_4 = $bindata; + $base_4 =~ s/(.)(.)/$1*2+$2/eg; - #my @a = ($bindata =~ /[0-1]{2}/g); - my $base_4 = $bindata; - $base_4 =~ s/(.)(.)/$1*2+$2/eg; + my $codes = $base_4; - my $codes = $base_4; - #$codes =~ tr/0123/UMED/; # Up,Middle,Error,Down - $codes =~ s/0/up /g; # - $codes =~ s/1/middle /g; # - $codes =~ s/2/err /g; # - $codes =~ s/3/down /g; # + #$codes =~ tr/0123/UMED/; # Up,Middle,Error,Down + $codes =~ s/0/up /g; # + $codes =~ s/1/middle /g; # + $codes =~ s/2/err /g; # + $codes =~ s/3/down /g; # - my $device_name = "TRX".$DOT.$dev_type; - my $command_codes = ""; - my $command_rest = ""; + my $device_name = "TRX" . $DOT . $dev_type; + my $command_codes = ""; + my $command_rest = ""; - my $def; + my $def; - # look for defined device with longest ID matching first: - for (my $i=11; $i>0;$i--){ - if ($modules{TRX_LIGHT}{defptr}{$device_name.$DOT.substr($base_4,0,$i)}) { - $device = substr($base_4,0,$i); - $def = $modules{TRX_LIGHT}{defptr}{$device_name.$DOT.substr($base_4,0,$i)}; - $command_codes = $def->{TRX_LIGHT_commandcodes}; - $command_rest = substr($base_4,$i); - Log3 $hash, 5, "TRX_LIGHT_parse_PT2262() found device_name=$device_name i=$i code=$base_4 commandcodes='$command_codes' command_rest='$command_rest' "; - } - } - - #-------------- - if ($device ne "") { - # found a device - Log3 $hash, 5, "TRX_LIGHT: PT2262 found device_name=$device_name data=$hexdata"; - $device_name .= $DOT.$device - } else { - # no specific device found. Using generic one: - Log3 $hash, 5, "TRX_LIGHT: PT2262 device_name=$device_name data=$hexdata"; - $def = $modules{TRX_LIGHT}{defptr}{$device_name}; - if(!$def) { - $dev_reading = ""; - Log3 $hash, 5, "TRX_LIGHT_parse_PT2262() UNDEFINED $device_name TRX_LIGHT $dev_type $device $dev_reading"; - Log3 $hash, 3, "TRX_LIGHT_parse_PT2262() Unknown device $device_name, please define it"; - return "UNDEFINED $device_name TRX_LIGHT $dev_type $device $dev_reading"; - } - } + # look for defined device with longest ID matching first: + for ( my $i = 11 ; $i > 0 ; $i-- ) { + if ( $modules{TRX_LIGHT}{defptr}{ $device_name . $DOT . substr( $base_4, 0, $i ) } ) { + $device = substr( $base_4, 0, $i ); + $def = $modules{TRX_LIGHT}{defptr}{ $device_name . $DOT . substr( $base_4, 0, $i ) }; + $command_codes = $def->{TRX_LIGHT_commandcodes}; + $command_rest = substr( $base_4, $i ); + Log3 $hash, 5, +"TRX_LIGHT_parse_PT2262() found device_name=$device_name i=$i code=$base_4 commandcodes='$command_codes' command_rest='$command_rest' "; + } + } - # Use $def->{NAME}, because the device may be renamed: - my $name = $def->{NAME}; - return "" if(IsIgnored($name)); + #-------------- + if ( $device ne "" ) { - Log3 $name, 5, "TRX_LIGHT_parse_PT2262() $name devn=$device_name command=$command, cmd=$hexdata"; + # found a device + Log3 $hash, 5, "TRX_LIGHT: PT2262 found device_name=$device_name data=$hexdata"; + $device_name .= $DOT . $device; + } + else { + # no specific device found. Using generic one: + Log3 $hash, 5, "TRX_LIGHT: PT2262 device_name=$device_name data=$hexdata"; + $def = $modules{TRX_LIGHT}{defptr}{$device_name}; + if ( !$def ) { + $dev_reading = ""; + Log3 $hash, 5, "TRX_LIGHT_parse_PT2262() UNDEFINED $device_name TRX_LIGHT $dev_type $device $dev_reading"; + Log3 $hash, 3, "TRX_LIGHT_parse_PT2262() Unknown device $device_name, please define it"; + return "UNDEFINED $device_name TRX_LIGHT $dev_type $device $dev_reading"; + } + } - my $n = 0; - my $val = ""; + # Use $def->{NAME}, because the device may be renamed: + my $name = $def->{NAME}; + return "" if ( IsIgnored($name) ); - my $device_type = $def->{TRX_LIGHT_type}; - my $sensor = $def->{TRX_LIGHT_devicelog}; + Log3 $name, 5, "TRX_LIGHT_parse_PT2262() $name devn=$device_name command=$command, cmd=$hexdata"; - readingsBeginUpdate($def); + my $n = 0; + my $val = ""; - $current = $command; + my $device_type = $def->{TRX_LIGHT_type}; + my $sensor = $def->{TRX_LIGHT_devicelog}; - if ($device eq "") { - #readingsBulkUpdate($def, "hex", $hexdata); - #readingsBulkUpdate($def, "bin", $bindata); - #readingsBulkUpdate($def, "base_4", $base_4); - #readingsBulkUpdate($def, "codes", $codes); - $val = $base_4; - } else { - # look for command code: - $command_codes .= ","; - #if ($command_codes =~ /$command_rest:(.*),/o ) { - if ($command_codes =~ /$command_rest:([a-z|A-Z]*),/ ) { - Log3 $name, 5,"PT2262: found=$1"; - $command = $1; - } - Log3 $name, 5,"TRX_LIGHT_parse_PT2262() readingsBulkUpdate($def, $sensor, $command)"; - $val = $command; - if ($sensor ne "none") { readingsBulkUpdate($def, $sensor, $val); } - } + readingsBeginUpdate($def); - readingsBulkUpdate($def, "state", $val); - readingsEndUpdate($def, 1); + $current = $command; - return $name; + if ( $device eq "" ) { + + #readingsBulkUpdate($def, "hex", $hexdata); + #readingsBulkUpdate($def, "bin", $bindata); + #readingsBulkUpdate($def, "base_4", $base_4); + #readingsBulkUpdate($def, "codes", $codes); + $val = $base_4; + } + else { + # look for command code: + $command_codes .= ","; + + #if ($command_codes =~ /$command_rest:(.*),/o ) { + if ( $command_codes =~ /$command_rest:([a-z|A-Z]*),/ ) { + Log3 $name, 5, "PT2262: found=$1"; + $command = $1; + } + Log3 $name, 5, "TRX_LIGHT_parse_PT2262() readingsBulkUpdate($def, $sensor, $command)"; + $val = $command; + if ( $sensor ne "none" ) { readingsBulkUpdate( $def, $sensor, $val ); } + } + + readingsBulkUpdate( $def, "state", $val ); + readingsEndUpdate( $def, 1 ); + + return $name; } #################################### # T R X _ L I G H T _ P a r s e ( ) #----------------------------------- -sub -TRX_LIGHT_Parse($$) -{ - my ($iohash, $hexline) = @_; +sub TRX_LIGHT_Parse($$) { + my ( $iohash, $hexline ) = @_; - my $time = time(); - # convert to binary - my $msg = pack('H*', $hexline); - if ($time_old ==0) { - Log3 $iohash, 5, "TRX_LIGHT_Parse() decoding delay=0 hex=$hexline"; - } else { - my $time_diff = $time - $time_old ; - Log3 $iohash, 5, "TRX_LIGHT_Parse() decoding delay=$time_diff hex=$hexline"; - } - $time_old = $time; + my $time = time(); - # convert string to array of bytes. Skip length byte - my @rfxcom_data_array = (); - foreach (split(//, substr($msg,1))) { - push (@rfxcom_data_array, ord($_) ); - } + # convert to binary + my $msg = pack( 'H*', $hexline ); + if ( $time_old == 0 ) { + Log3 $iohash, 5, "TRX_LIGHT_Parse() decoding delay=0 hex=$hexline"; + } + else { + my $time_diff = $time - $time_old; + Log3 $iohash, 5, "TRX_LIGHT_Parse() decoding delay=$time_diff hex=$hexline"; + } + $time_old = $time; - my $num_bytes = ord($msg); + # convert string to array of bytes. Skip length byte + my @rfxcom_data_array = (); + foreach ( split( //, substr( $msg, 1 ) ) ) { + push( @rfxcom_data_array, ord($_) ); + } + + my $num_bytes = ord($msg); + + if ( $num_bytes < 3 ) { + return ""; + } + + my $type = $rfxcom_data_array[0]; + + #Log3 $iohash, 5, "TRX_LIGHT: num_bytes=$num_bytes hex=$hexline type=$type"; + my $res = ""; + if ( $type == 0x10 + || $type == 0x11 + || $type == 0x12 + || $type == 0x14 + || $type == 0x15 + || $type == 0x16 + || $type == 0x17 + || $type == 0x18 + || $type == 0x19 ) + { + Log3 $iohash, 5, "TRX_LIGHT_Parse() X10 num_bytes=$num_bytes hex=$hexline"; + $res = TRX_LIGHT_parse_X10( $iohash, \@rfxcom_data_array ); + Log3 $iohash, 1, "TRX_LIGHT_Parse() unsupported hex=$hexline" if ( $res eq "" ); + return $res; + } + elsif ( $type == 0x13 ) { + Log3 $iohash, 5, "TRX_LIGHT_Parse()Lighting4/PT2262 num_bytes=$num_bytes hex=$hexline"; + $res = TRX_LIGHT_parse_PT2262( $iohash, \@rfxcom_data_array ); + Log3 $iohash, 1, "TRX_LIGHT_Parse() unsupported hex=$hexline" if ( $res eq "" ); + return $res; + } + else { + Log3 $iohash, 1, "TRX_LIGHT_Parse() not implemented num_bytes=$num_bytes hex=$hexline"; + } - if ($num_bytes < 3) { return ""; - } - - my $type = $rfxcom_data_array[0]; - - #Log3 $iohash, 5, "TRX_LIGHT: num_bytes=$num_bytes hex=$hexline type=$type"; - my $res = ""; - if ($type == 0x10 || $type == 0x11 || $type == 0x12 || $type == 0x14 || $type == 0x15 || $type == 0x16 || $type == 0x17 || $type == 0x18 || $type == 0x19) { - Log3 $iohash, 5, "TRX_LIGHT_Parse() X10 num_bytes=$num_bytes hex=$hexline"; - $res = TRX_LIGHT_parse_X10($iohash, \@rfxcom_data_array); - Log3 $iohash, 1, "TRX_LIGHT_Parse() unsupported hex=$hexline" if ($res eq ""); - return $res; - } elsif ($type == 0x13) { - Log3 $iohash, 5, "TRX_LIGHT_Parse()Lighting4/PT2262 num_bytes=$num_bytes hex=$hexline"; - $res = TRX_LIGHT_parse_PT2262($iohash, \@rfxcom_data_array); - Log3 $iohash, 1, "TRX_LIGHT_Parse() unsupported hex=$hexline" if ($res eq ""); - return $res; - } else { - Log3 $iohash, 1, "TRX_LIGHT_Parse() not implemented num_bytes=$num_bytes hex=$hexline"; - } - - return ""; } 1; =pod +=item helper +=item summary Sends and receive messages of lighting devices via TRX (RFXCOM) +=item summary_DE Sendet und empfängt Nachrichten von Schaltaktoren via TRX (RFXCOM) =begin html @@ -1112,35 +1227,25 @@ KlikAanKlikUit, NEXA, CHACON, HomeEasy UK.
You need to define an RFXtrx433 set <name> <value> [<levelnum>]

where value is one of:
- 
-    off
-    on
-    dim                # only for X10, KOPPLA
-    bright             # only for X10, KOPPLA
-    all_off            # only for X10, ARC, EMW200, AC, HOMEEASY, ANSLUT
-    all_on             # only for X10, ARC, EMW200, AC, HOMEEASY, ANSLUT
-    chime              # only for ARC
-    level <levelnum>    # only AC, HOMEEASY, ANSLUT: set level to <levelnum> (range: 0=0% to 15=100%)
-    on-till           # Special, see the note
-    on-for-timer      # Special, see the note
-    ring              # Byron MP001,SelectPlus, RFU, Envivo
-
+
    +
  • off
    • +
  • on
    • +
  • dim # only for X10, KOPPLA
    • +
  • bright # only for X10, KOPPLA
    • +
  • all_off # only for X10, ARC, EMW200, AC, HOMEEASY, ANSLUT
    • +
  • all_on # only for X10, ARC, EMW200, AC, HOMEEASY, ANSLUT
    • +
  • chime # only for ARC
    • +
  • level <levelnum> # only AC, HOMEEASY, ANSLUT: set level to <levelnum> (range: 0=0% to 15=100%)
    • +
  • ring # Byron MP001,SelectPlus, RFU, Envivo
    • +
  • setExtensions # see Notes
    • +
Example:
set Steckdose on

Notes:
    -
  • on-till requires an absolute time in the "at" format - (HH:MM:SS, HH:MM) or { <perl code> }, where the perl code - returns a time specification). - If the current time is greater than the specified time, then the - command is ignored, else an "on" command is generated, and for the - given "till-time" an off command is scheduleld via the at command. -
    • -
  • on-for-timer requires a relative time in the "at" format - (HH:MM:SS, HH:MM) or { <perl code> }, where the perl code - returns a time specification). +
  • on-for-timer earlier required an absolute time in the "at" format. TRX_LIGHT is now using SetExtensions, thus on-for-timer now requires a number (seconds). TimeSpecs in the format (HH:MM:SS|HH:MM) or { <perl code> } are automatically converted, however it is recommended that you adjust your set commands.