30_DUOFERN: fix matchlist

git-svn-id: https://svn.fhem.de/fhem/trunk@25548 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Telekatz 2022-01-23 09:51:28 +00:00
parent 5fcad21ae6
commit 6f4c496f7b

View File

@ -569,6 +569,7 @@ my %setsHSA = (
my $duoStatusRequest = "0DFFnn400000000000000000000000000000yyyyyy01";
my $duoCommand = "0Dccnnnnnnnnnnnnnnnnnnnn000000zzzzzzyyyyyy00";
my $duoCommand2 = "0Dccnnnnnnnnnnnnnnnnnnnn000000000000yyyyyy00";
my $duoCommand3 = "0Dccnnnnnnnnnnnnnnnnnnnn000000000000yyyyyy01";
my $duoWeatherConfig = "0D001B400000000000000000000000000000yyyyyy00";
my $duoWeatherWriteConfig = "0DFF1Brrnnnnnnnnnnnnnnnnnnnn00000000yyyyyy00";
my $duoSetTime = "0D0110800001mmmmmmmmnnnnnn0000000000yyyyyy00";
@ -580,7 +581,7 @@ DUOFERN_Initialize($)
{
my ($hash) = @_;
$hash->{Match} = "^(06|0F).{42}";
$hash->{Match} = "^(06|0F|81).{42}";
$hash->{SetFn} = "DUOFERN_Set";
$hash->{DefFn} = "DUOFERN_Define";
$hash->{UndefFn} = "DUOFERN_Undef";
@ -943,6 +944,18 @@ DUOFERN_Set($@)
IOWrite( $hash, $buf );
if ($cmd eq "remotePair") {
$buf = $duoCommand3;
$buf =~ s/yyyyyy/$code/;
$buf =~ s/nnnnnnnnnnnnnnnnnnnn/$command/;
$buf =~ s/nn/$argV/;
$buf =~ s/tt/$timer/;
$buf =~ s/wwww/$argW/;
$buf =~ s/cc/$chanNo/;
IOWrite( $hash, $buf );
}
if ($hash->{device}) {
$hash = $defs{$hash->{device}};
}