mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

set inactive status

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@2853 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2013-03-04 21:31:43 +00:00
parent 278b80c9de
commit c330103ca0
1 changed files with 20 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
fhem/FHEM/10_FBDECT.pm
View File

@@ -109,6 +109,10 @@ FBDECT_Get($@)
my $d = pop @answ;
while($d) {
my ($ptyp, $plen, $pyld) = FBDECT_decodePayload($d);
if($ptyp eq "state" &&
ReadingsVal($hash->{NAME}, $ptyp, "") ne $pyld) {
readingsSingleUpdate($hash, $ptyp, $pyld, 1);
}
push @answ, " $ptyp: $pyld";
$d = substr($d, 16+$plen*2);
}
@@ -123,7 +127,6 @@ FBDECT_Parse($$@)
{
my ($iodev, $msg, $local) = @_;
my $ioName = $iodev->{NAME};
my $ll4 = AttrVal($ioName, "loglevel", 4);
my $mt = substr($msg, 0, 2);
if($mt ne "07" && $mt ne "04") {
@@ -152,18 +155,23 @@ FBDECT_Parse($$@)
}
if($mt eq "04") {
my @answ = FBAHA_configInd(substr($msg,16), $id);
my $d = pop @answ;
while($d) {
my ($ptyp, $plen, $pyld) = FBDECT_decodePayload($d);
last if(!$plen);
push @answ, " $ptyp: $pyld";
$d = substr($d, 16+$plen*2);
my $state = "";
if($answ[0] =~ m/ inactive,/) {
$state = "inactive";
} else {
my $d = pop @answ;
while($d) {
my ($ptyp, $plen, $pyld) = FBDECT_decodePayload($d);
last if(!$plen);
push @answ, " $ptyp: $pyld";
$d = substr($d, 16+$plen*2);
}
# Ignore the rest, is too confusing.
@answ = grep /state:/, @answ;
(undef, $state) = split(": ", $answ[0], 2);
}
# Ignore the rest, is too confusing.
@answ = grep /state:/, @answ;
my ($undef, $state) = split(": ", $answ[0], 2);
readingsBulkUpdate($hash, "state", $state) if($state);
Log 1, join("\n", @answ);
readingsBulkUpdate($hash, "state", $state);
}
readingsEndUpdate($hash, 1);