From aec300c7a20f0afb454100754c124547452fc05c Mon Sep 17 00:00:00 2001
From: gvzdus <gvzdus@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Thu, 21 Jan 2021 14:48:33 +0000
Subject: [PATCH] 36_ShellyMonitor: Added support for Duo Color, bugfix for
 colorTemp

git-svn-id: https://svn.fhem.de/fhem/trunk@23574 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/36_ShellyMonitor.pm | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/fhem/FHEM/36_ShellyMonitor.pm b/fhem/FHEM/36_ShellyMonitor.pm
index a245fe4e8..5fc953f60 100644
--- a/fhem/FHEM/36_ShellyMonitor.pm
+++ b/fhem/FHEM/36_ShellyMonitor.pm
@@ -212,10 +212,12 @@ my %DEVID_MODEL = (
     "SHDM-2"   => "shellydimmer",
     "SHSW-44"  => "shelly4",
     "SHRGBW2"  => "shellyrgbw",
+    "SHCB-1"   => "shellybulb",
     "SHBLB-1"  => "shellybulb",
     "SHBDUO-1" => "shellybulb",
     "SHWT-1"   => "generic",
-    "SHHT-1"   => "generic"
+    "SHHT-1"   => "generic",
+    "SHBTN-2"  => "generic"
 );
 
 # Mapping of DeviceId in Multicast to suggested generic name
@@ -230,9 +232,11 @@ my %DEVID_PREFIX = (
     "SHSW-44"  => "shelly_4",
     "SHRGBW2"  => "shelly_rgbw",
     "SHBLB-1"  => "shelly_bulb",
+    "SHCB-1"   => "shelly_duo",
     "SHBDUO-1" => "shelly_duo",
     "SHWT-1"   => "shelly_flood",
-    "SHHT-1"   => "shelly_ht"
+    "SHHT-1"   => "shelly_ht",
+    "SHBTN-2"  => "shelly_button"
 );
 
 # Mapping of DeviceId in Multicast to additional attributes on creation
@@ -243,7 +247,8 @@ my %DEVID_ATTRS = (
 
 my %DEVID_TTL_OVERRIDE = (
     "SHWT-1"   => 90000,
-    "SHHT-1"   => 90000
+    "SHHT-1"   => 90000,
+    "SHBTN-2"   => 90000
 );
 
 
@@ -642,7 +647,7 @@ sub ShellyMonitor_DoRead
           my $rname = $defarr->{"desc"};
           #$rname .= "(" . $defarr->{"unit"} . ")" if ($defarr->{"unit"});
 
-          if ($rname =~ /^(power|output|energy|brightness)_(.).*/ || $rname =~ /^(roller.*|mode|L-.*)$/) {
+          if ($rname =~ /^(power|output|energy|brightness)_(.).*/ || $rname =~ /^(roller.*|mode|L-.*|colorTemp)$/) {
             my $rtype = $1;
             my $rno = $2;
 
@@ -692,6 +697,8 @@ sub ShellyMonitor_DoRead
                 readingsBulkUpdateIfChanged($device, "last_dir", "up") if ($svalue eq "open") ;
               } elsif ($rtype eq "mode" && $haveAutoCreated==1) {
 		CommandAttr ( undef, $_->{name} . ' mode ' . $svalue);
+              } elsif ($rtype eq "colorTemp") {
+                readingsBulkUpdateIfChanged($device, "ct", $svalue);
               } elsif ($rtype =~ /L-(red|green|blue|white)/) {
                 $rgb{$1} = $svalue;
                 $rgbdevices{$_->{name}} = 1;
@@ -932,7 +939,7 @@ sub ShellyMonitor_Set
     if ($model =~ /shellydimmer.*/) {
       CommandAttr ( undef, $dname . ' webCmd pct:on:off' );
     }
-    CommandAttr ( undef, $dname . ' interval 600' );
+    CommandAttr ( undef, $dname . ( $model eq 'generic' ? ' interval 0' : ' interval 600' ) );
     $created++;
   }
   FW_directNotify("#FHEMWEB:WEB", "location.reload('true')", "") if ($created>0);