From f756e0112e5c7ce6b13785bd6c12dc624af17b4d Mon Sep 17 00:00:00 2001 From: wherzig <> Date: Sat, 25 Feb 2012 11:56:33 +0000 Subject: [PATCH] TRX_LIGHT: fix for FHEM2FHEM IOWrite git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@1286 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- FHEM/46_TRX_LIGHT.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/FHEM/46_TRX_LIGHT.pm b/FHEM/46_TRX_LIGHT.pm index 52ee22411..f733c821a 100755 --- a/FHEM/46_TRX_LIGHT.pm +++ b/FHEM/46_TRX_LIGHT.pm @@ -148,12 +148,12 @@ TRX_LIGHT_Set($@) my $seqnr = 0; my $cmnd = $i; - my $hex_command = sprintf "0710%02x%02x%02x%02x%02x00", $device_type_num, $seqnr, $house, $unit, $cmnd; + my $hex_prefix = sprintf "0710"; + my $hex_command = sprintf "%02x%02x%02x%02x%02x00", $device_type_num, $seqnr, $house, $unit, $cmnd; Log 1,"TRX_LIGHT_Set name=$name device_type=$device_type, deviceid=$deviceid house=$house, unit=$unit command=$command" if ($TRX_LIGHT_debug == 1); Log 1,"TRX_LIGHT_Set hexline=$hex_command" if ($TRX_LIGHT_debug == 1); - #IOWrite($hash, pack('H*', $hex_command)); - IOWrite($hash, "", $hex_command); + IOWrite($hash, $hex_prefix, $hex_command); my $tn = TimeNow(); $hash->{CHANGED}[0] = $command;