correction X10 KR18

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@3908 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
wherzig
2013-09-15 17:40:40 +00:00
parent 1e829f0802
commit 6229ffe83b

View File

@@ -426,15 +426,14 @@ sub TRX_SECURITY_parse_X10Sec($$) {
my $current = "";
Log3 $name, 5, "TRX_SECURITY_parse_X10Sec() $name devn=$device_name first=$firstdevice subtype=$subtype command=$command, delay=$delay, batt=$battery cmd=$hexdata";
my $n = 0;
my $tm = TimeNow();
my $val = "";
my $device_type = uc($def->{TRX_SECURITY_type});
Log3 $name, 5, "TRX_SECURITY_parse_X10Sec() $name devn=$device_name first=$firstdevice subtype=$subtype device_type=$device_type command=$command, delay=$delay, batt=$battery cmd=$hexdata";
my $sensor = "";
if ($device_type eq "SD90") {
@@ -479,7 +478,7 @@ sub TRX_SECURITY_parse_X10Sec($$) {
$current = "Security-Panic" if ($command eq "alert");
my @cmd_split = split(/-/, $command);
my @cmd_split = split(/-/, $current);
$sensor = $cmd_split[0];
$current = $cmd_split[1];
readingsBulkUpdate($def, $sensor, $current);