From 0d18c78e8697b9559da20b067f76ef1bb076df27 Mon Sep 17 00:00:00 2001
From: Telekatz <Telekatz@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 23 Jan 2022 09:51:28 +0000
Subject: [PATCH] 30_DUOFERN: fix matchlist

git-svn-id: https://svn.fhem.de/fhem/trunk@25548 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/30_DUOFERN.pm | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/30_DUOFERN.pm b/fhem/FHEM/30_DUOFERN.pm
index f90395ad2..719bc33ff 100644
--- a/fhem/FHEM/30_DUOFERN.pm
+++ b/fhem/FHEM/30_DUOFERN.pm
@@ -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}};
     }