From 41cec8d1b3eb8664af7b5d1e76e7a7d78fbaf553 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sat, 15 Apr 2017 12:54:03 +0000
Subject: [PATCH] 01_FHEMWEB.pm: add hiddengroupRegexp (Forum #54938)

git-svn-id: https://svn.fhem.de/fhem/trunk@13999 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/01_FHEMWEB.pm | 31 +++++++++++++++++++++++--------
 1 file changed, 23 insertions(+), 8 deletions(-)

diff --git a/fhem/FHEM/01_FHEMWEB.pm b/fhem/FHEM/01_FHEMWEB.pm
index 1d3ec5089..6343042df 100755
--- a/fhem/FHEM/01_FHEMWEB.pm
+++ b/fhem/FHEM/01_FHEMWEB.pm
@@ -160,6 +160,7 @@ FHEMWEB_Initialize($)
     endPlotToday:1,0
     fwcompress:0,1
     hiddengroup
+    hiddengroupRegexp
     hiddenroom
     hiddenroomRegexp
     iconPath
@@ -1757,6 +1758,7 @@ FW_showRoom()
   foreach my $r (split(",",AttrVal($FW_wname, "hiddengroup", ""))) {
     $FW_hiddengroup{$r} = 1;
   }
+  my $hge = AttrVal($FW_wname, "hiddengroupRegexp", undef);
 
   FW_pO "<form method=\"$FW_formmethod\" ".  # Why do we need a form here?
                 "action=\"$FW_ME\" autocomplete=\"off\">";
@@ -1780,6 +1782,7 @@ FW_showRoom()
     next if(!$FW_types{$dev});   # FHEMWEB connection, missed due to caching
     foreach my $grp (split(",", AttrVal($dev, "group", $FW_types{$dev}))) {
       next if($FW_hiddengroup{$grp}); 
+      next if($hge && $grp =~ m/$hge/);
       $sortIndex{$dev} = FW_sortIndex($dev);
       $group{$grp}{$dev} = 1;
     }
@@ -3465,6 +3468,20 @@ FW_widgetOverride($$)
         </li>
         <br>
 
+    <a name="hiddengroup"></a>
+    <li>hiddengroup<br>
+        Comma separated list of groups to "hide", i.e. not to show in any room
+        of this FHEMWEB instance.<br>
+        Example:  attr WEBtablet hiddengroup FileLog,dummy,at,notify
+        </li>
+        <br>
+
+    <a name="hiddengroupRegexp"></a>
+    <li>hiddengroupRegexp<br>
+        One regexp for the same purpose as hiddengroup.
+        </li>
+        <br>
+
     <a name="hiddenroom"></a>
     <li>hiddenroom<br>
         Comma separated list of rooms to "hide", i.e. not to show. Special
@@ -3488,14 +3505,6 @@ FW_widgetOverride($$)
         <br>
 
 
-    <a name="hiddengroup"></a>
-    <li>hiddengroup<br>
-        Comma separated list of groups to "hide", i.e. not to show in any room
-        of this FHEMWEB instance.<br>
-        Example:  attr WEBtablet hiddengroup FileLog,dummy,at,notify
-        </li>
-        <br>
-
     <a name="HTTPS"></a>
     <li>HTTPS<br>
         Enable HTTPS connections. This feature requires the perl module
@@ -4223,6 +4232,12 @@ FW_widgetOverride($$)
         Beispiel:  attr WEBtablet hiddengroup FileLog,dummy,at,notify
         </li><br>
 
+    <a name="hiddengroupRegexp"></a>
+    <li>hiddengroupRegexp<br>
+        Ein regul&auml;rer Ausdruck, um Gruppen zu verstecken.
+        </li>
+        <br>
+
     <a name="hiddenroom"></a>
     <li>hiddenroom<br>
        Eine Komma getrennte Liste, um R&auml;ume zu verstecken, d.h. nicht