From 4ee72d099e862abe3b85e82b5ec7d2fbb75000b2 Mon Sep 17 00:00:00 2001
From: TH9 <>
Date: Fri, 13 Nov 2020 10:15:46 +0000
Subject: [PATCH] LUXTRONIK2: new feature: set opModeVentilation

git-svn-id: https://svn.fhem.de/fhem/trunk@23147 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED               |  1 +
 fhem/FHEM/23_LUXTRONIK2.pm | 25 ++++++++++++++++++++++---
 fhem/MAINTAINER.txt        |  2 +-
 3 files changed, 24 insertions(+), 4 deletions(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index 901b2b633..4b105940b 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+ - feature: 23_LUXTRONIK2: new set parameter opModeVentilation
  - feature: 93_DbRep: new attrbute avgDailyMeanGWSwithGTS for Grassland 
                       temperature sum calculation
  - feature: 76_SMAPortal: random select the default user agent
diff --git a/fhem/FHEM/23_LUXTRONIK2.pm b/fhem/FHEM/23_LUXTRONIK2.pm
index 81ee5fc81..63810e2ac 100644
--- a/fhem/FHEM/23_LUXTRONIK2.pm
+++ b/fhem/FHEM/23_LUXTRONIK2.pm
@@ -52,8 +52,8 @@ sub LUXTRONIK2_readData ($);
 
 
 #List of firmware versions that are known to be compatible with this modul
-my $testedFirmware = "#V1.51#V1.54C#V1.60#V1.61#V1.64#V1.69#V1.70#V1.73#V1.77#V1.80#V1.81#";
-my $compatibleFirmware = "#V1.51#V1.54C#V1.60#V1.61#V1.64#V1.69#V1.70#V1.73#V1.77#V1.80#V1.81#";
+my $testedFirmware = "#V1.51#V1.54C#V1.60#V1.61#V1.64#V1.69#V1.70#V1.73#V1.77#V1.80#V1.81#V1.86.0#";
+my $compatibleFirmware = "#V1.51#V1.54C#V1.60#V1.61#V1.64#V1.69#V1.70#V1.73#V1.77#V1.80#V1.81#V1.86.0#";
 
 sub ##########################################
 LUXTRONIK2_Log($$$)
@@ -240,7 +240,7 @@ LUXTRONIK2_Set($$@)
    }
 
   #Check Firmware and Set-Parameter-lock 
-  if ( $cmd =~ /^(synchronizeClockHeatPump|hotWaterTemperatureTarget|opModeHotWater)$/i ) 
+  if ( $cmd =~ /^(synchronizeClockHeatPump|hotWaterTemperatureTarget|opModeHotWater|opModeVentilation)$/i ) 
    {
     my $firmware = ReadingsVal($name,"firmware","");
     my $firmwareCheck = LUXTRONIK2_checkFirmware($firmware);
@@ -276,6 +276,7 @@ LUXTRONIK2_Set($$@)
    elsif(int(@_)==4 &&
          ($cmd eq 'hotWaterTemperatureTarget'
             || $cmd eq 'opModeHotWater'
+            || $cmd eq 'opModeVentilation'
             || $cmd eq 'returnTemperatureHyst'
             || $cmd eq 'returnTemperatureSetBack'
             || $cmd eq 'heatingCurveEndPoint'
@@ -323,6 +324,7 @@ LUXTRONIK2_Set($$@)
           ." returnTemperatureHyst "
           ." returnTemperatureSetBack "
           ." opModeHotWater:Auto,Party,Off"
+          ." opModeVentilation:Auto,Off"
           ." synchronizeClockHeatPump:noArg"
           ." INTERVAL ";
           
@@ -1399,6 +1401,8 @@ sub LUXTRONIK2_SetParameter ($$$)
    my %opMode = ( "Auto" => 0,
                  "Party" => 2,
                    "Off" => 4);
+   my %opVentMode = ( "Auto" => 0,
+                       "Off" => 3);
    
   if(AttrVal($name, "allowSetParameter", 0) != 1) {
    return $name." Error: Setting of parameters not allowed. Please set attribut 'allowSetParameter' to 1";
@@ -1467,6 +1471,14 @@ sub LUXTRONIK2_SetParameter ($$$)
      $setValue = $opMode{$realValue};
   }
   
+  elsif ($parameterName eq "opModeVentilation") {
+    if (! exists($opVentMode{$realValue})) {
+      return "$name Error: Wrong parameter given for opModeVentilation, use Automatik,Off"
+     }
+     $setParameter = 894;
+     $setValue = $opVentMode{$realValue};
+  }
+  
   elsif ($parameterName eq "returnTemperatureHyst") {
      #parameter number
     $setParameter = 88;
@@ -2288,6 +2300,9 @@ LUXTRONIK2_doStatisticDeltaSingle ($$$$$$$)
        <li><code>opModeHotWater &lt;Mode&gt;</code><br>
          Operating Mode of domestic hot water boiler (Auto | Party | Off)
          </li><br>
+       <li><code>opModeVentilation &lt;Mode&gt;</code><br>
+         Operating Mode of Ventilation (Auto | Off)
+         </li><br>
      <li><code>resetStatistics &lt;statReadings&gt;</code>
          <br>
          Deletes the selected statistic values <i>all, statBoilerGradientCoolDownMin, statAmbientTemp..., statElectricity..., statHours..., statHeatQ...</i>
@@ -2450,6 +2465,10 @@ LUXTRONIK2_doStatisticDeltaSingle ($$$$$$$)
          <br>
          Betriebsmodus des Heißwasserspeichers ( Auto | Party | Off )
          </li><br>
+      <li><code>opModeVentilation &lt;Betriebsmodus&gt;</code>
+         <br>
+         Betriebsmodus der Lueftung ( Auto | Off )
+         </li><br>
      <li><code>resetStatistics &lt;statWerte&gt;</code>
          <br>
          Löscht die ausgewählten statistischen Werte: <i>all, statBoilerGradientCoolDownMin, statAmbientTemp..., statElectricity..., statHours..., statHeatQ...</i>
diff --git a/fhem/MAINTAINER.txt b/fhem/MAINTAINER.txt
index b182292d6..e0b544ebf 100644
--- a/fhem/MAINTAINER.txt
+++ b/fhem/MAINTAINER.txt
@@ -149,7 +149,7 @@ FHEM/21_SONOSPLAYER          Reinerlein           Multimedia
 FHEM/21_VBUSDEV.pm           Tobias/pejonp        Sonstige Systeme
 FHEM/22_HOMEMODE.pm          DeeSPe               Automatisierung
 FHEM/23_KOSTALPIKO.pm        john                 CodeSchnipsel
-FHEM/23_LUXTRONIK2.pm        tupol                Heizungssteuerung/Raumklima (link als PM an tupol)
+FHEM/23_LUXTRONIK2.pm        TH9                  Heizungssteuerung/Raumklima (link als PM an TH9)
 FHEM/24_Iluminize.pm         VolkerKettenbach     Sonstige Systeme
 FHEM/24_NetIO230B.pm         rudolfkoenig/orphan  Sonstiges
 FHEM/24_TPLinkHS110.pm       VolkerKettenbach     Sonstige Systeme