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

10_FBDECT.pm: add lastpressedtimestamp_kurz for DECT400 (Forum #94700)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@21766 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2020-04-24 12:35:32 +00:00
parent f9577ce24b
commit 2cc881b4a3
1 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
fhem/FHEM/10_FBDECT.pm
View File

@ -246,6 +246,8 @@ my %fbhttp_readings = (
summeractive => '"summeractive:".($val ? "yes":"no")',
holidayactive => '"holidayactive:".($val ? "yes":"no")',
lastpressedtimestamp => '"lastpressedtimestamp:".($val=~m/^\d{10}$/ ? FmtDateTime($val) : "N/A")',
lastpressedtimestamp_kurz => '"lastpressedtimestamp_kurz:".($val=~m/^\d{10}$/ ? FmtDateTime($val) : "N/A")',
lastpressedtimestamp_lang => '"lastpressedtimestamp_lang:".($val=~m/^\d{10}$/ ? FmtDateTime($val) : "N/A")',
);
sub
@ -254,9 +256,28 @@ FBDECT_ParseHttp($$$)
my ($iodev, $msg, $type) = @_;
my $ioName = $iodev->{NAME};
my %h;
my $omsg;
$msg =~ s,<([^/>]+?)>([^<]+?)<,$h{$1}=$2,ge; # Quick & Dirty: Tags
$msg =~ s, ([a-z]+?)="([^"]*)",$h{$1}=$2,ge; # Quick & Dirty: Attributes
$omsg = $msg;
$omsg =~ s,<([^/>]+?)>([^<]+?)<,$h{$1}=$2,ge; # Quick & Dirty: Tags
$omsg = $msg;
$omsg =~ s, ([a-z]+?)="([^"]*)",$h{$1}=$2,ge; # Quick & Dirty: Attributes
if($h{lastpressedtimestamp}) { # Dect400/#94700
sub dp($$$);
sub
dp($$$)
{
my ($ln, $txt,$hptr) = (@_);
$txt =~ s#<([^/\s>]+?)[^/]*?>(.*?)</\g1>#
my ($n,$c) = ($1,$2);
$ln = $1 if($n eq "name" && $c =~ m/.*(kurz|lang)$/);
$hptr->{"${n}_$ln"} = $c if($n eq "lastpressedtimestamp" && $ln);
dp($ln, $c, $hptr) if($c && $c =~ m/^<.*>$/);
#gex;
}
dp("", $msg, \%h);
}
my $ain = $h{identifier};
$ain =~ s/[-: ]/_/g;