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

TRX_LIGHT PT2262 set state corrected. Log reduced

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@3040 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
wherzig 2013-04-06 12:34:06 +00:00
parent 0d30558acc
commit 062217c7b7
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fhem/FHEM/46_TRX_LIGHT.pm
View File

@ -193,6 +193,7 @@ TRX_LIGHT_Set($@)
my $name = $a[0];
my $command = $a[1];
my $command_state = $a[1];
my $level = 0;
my $arg3 = "";
@ -325,7 +326,7 @@ TRX_LIGHT_Set($@)
if ($command eq "level") {
$command .= sprintf " %d", $level;
}
Log 1,"TRX_LIGHT_Set lighting3 name=$name device_type=$device_type, deviceid=$deviceid command=$command" if (1 || $TRX_LIGHT_debug == 1);
Log 1,"TRX_LIGHT_Set lighting3 name=$name device_type=$device_type, deviceid=$deviceid command=$command" if (1 ||$TRX_LIGHT_debug == 1);
Log 1,"TRX_LIGHT_Set lighting3 hexline=$hex_prefix$hex_command" if (1 || $TRX_LIGHT_debug == 1);
} elsif ($protocol_type == 0x13) {
# lighting4 (PT2262)
@ -348,7 +349,7 @@ TRX_LIGHT_Set($@)
my %b42b = (0 => "00", 1 => "01", 2 => "10", 3 => "11");
($bindata = $base_4) =~ s/(.)/$b42b{lc $1}/g;
$hexdata = unpack("H*", pack("B*", $bindata));
Log 1,"TRX_LIGHT_Set PT2262: base4='$base_4', binary='$bindata' hex='$hexdata'";
Log 1,"TRX_LIGHT_Set PT2262: base4='$base_4', binary='$bindata' hex='$hexdata'" if ($TRX_LIGHT_debug == 1);
} else {
Log 4,"TRX_LIGHT_Set lighting4:PT2262 cmd='$pt2262_cmd' needs to be base4 and has 12 digits (name=$name device_type=$device_type, deviceid=$deviceid)";
@ -356,8 +357,8 @@ TRX_LIGHT_Set($@)
}
$hex_prefix = sprintf "0913";
$hex_command = sprintf "00%02x%s015E00", $seqnr, $hexdata;
Log 1,"TRX_LIGHT_Set lighting4:PT2262 name=$name device_type=$device_type, hexdata=$hexdata" if (1 ||$TRX_LIGHT_debug == 1);
Log 1,"TRX_LIGHT_Set lighting4:PT2262 hexline=$hex_prefix$hex_command" if (1 || $TRX_LIGHT_debug == 1);
Log 1,"TRX_LIGHT_Set lighting4:PT2262 name=$name cmd=$command cmd_state=$command_state hexdata=$hexdata" if (1 || $TRX_LIGHT_debug == 1);
Log 1,"TRX_LIGHT_Set lighting4:PT2262 hexline=$hex_prefix$hex_command" if ($TRX_LIGHT_debug == 1);
} 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]$/ ) {
@ -380,10 +381,10 @@ TRX_LIGHT_Set($@)
IOWrite($hash, $hex_prefix, $hex_command);
my $tn = TimeNow();
$hash->{CHANGED}[0] = $command;
$hash->{STATE} = $command;
$hash->{CHANGED}[0] = $command_state;
$hash->{STATE} = $command_state;
$hash->{READINGS}{state}{TIME} = $tn;
$hash->{READINGS}{state}{VAL} = $command;
$hash->{READINGS}{state}{VAL} = $command_state;
return $ret;
}