From 623147eac0e6129348111ee6c3f551b29eee30d4 Mon Sep 17 00:00:00 2001 From: Telekatz <> Date: Fri, 5 Mar 2021 18:24:36 +0000 Subject: [PATCH] 10_DUOFERNSTICK.pm/30_DUOFERN.pm: fix remotePair git-svn-id: https://svn.fhem.de/fhem/trunk@23892 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/10_DUOFERNSTICK.pm | 9 ++++----- fhem/FHEM/30_DUOFERN.pm | 3 ++- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/fhem/FHEM/10_DUOFERNSTICK.pm b/fhem/FHEM/10_DUOFERNSTICK.pm index 9a43fe9b8..0047bcbda 100644 --- a/fhem/FHEM/10_DUOFERNSTICK.pm +++ b/fhem/FHEM/10_DUOFERNSTICK.pm @@ -5,6 +5,7 @@ package main; use strict; use warnings; +use DevIo; sub DUOFERNSTICK_Read($); sub DUOFERNSTICK_Ready($); @@ -32,14 +33,12 @@ my $duoStartPair = "04000000000000000000000000000000000000000000"; my $duoStopPair = "05000000000000000000000000000000000000000000"; my $duoStartUnpair = "07000000000000000000000000000000000000000000"; my $duoStopUnpair = "08000000000000000000000000000000000000000000"; -my $duoRemotePair = "0D0006010000000000000000000000000000yyyyyy01"; +my $duoRemotePair = "0D0106010000000000000000000000000000yyyyyy00"; sub DUOFERNSTICK_Initialize($) { my ($hash) = @_; - - require "$attr{global}{modpath}/FHEM/DevIo.pm"; - + $hash->{ReadFn} = "DUOFERNSTICK_Read"; $hash->{ReadyFn} = "DUOFERNSTICK_Ready"; $hash->{WriteFn} = "DUOFERNSTICK_Write"; @@ -449,7 +448,7 @@ DUOFERNSTICK_SimpleWrite(@) ##################################### sub -DUOFERNSTICK_ReadAnswer($$$$) +DUOFERNSTICK_ReadAnswer($$) { my ($hash, $arg) = @_; my $ohash = $hash; diff --git a/fhem/FHEM/30_DUOFERN.pm b/fhem/FHEM/30_DUOFERN.pm index a00f3ecfb..0e98dc0d1 100644 --- a/fhem/FHEM/30_DUOFERN.pm +++ b/fhem/FHEM/30_DUOFERN.pm @@ -6,6 +6,7 @@ package main; use strict; use warnings; use SetExtensions; +use DevIo; my %devices = ( "40" => {"name" => "RolloTron Standard" }, @@ -567,7 +568,7 @@ my %setsHSA = ( my $duoStatusRequest = "0DFFnn400000000000000000000000000000yyyyyy01"; my $duoCommand = "0Dccnnnnnnnnnnnnnnnnnnnn000000zzzzzzyyyyyy00"; -my $duoCommand2 = "0Dccnnnnnnnnnnnnnnnnnnnn000000000000yyyyyy01"; +my $duoCommand2 = "0Dccnnnnnnnnnnnnnnnnnnnn000000000000yyyyyy00"; my $duoWeatherConfig = "0D001B400000000000000000000000000000yyyyyy00"; my $duoWeatherWriteConfig = "0DFF1Brrnnnnnnnnnnnnnnnnnnnn00000000yyyyyy00"; my $duoSetTime = "0D0110800001mmmmmmmmnnnnnn0000000000yyyyyy00";