From 258833574a91fcd7496cb873e3632ea938cdbb34 Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Fri, 18 Apr 2014 08:47:43 +0000
Subject: [PATCH] read additional config files

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@5547 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/10_CUL_HM.pm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/FHEM/10_CUL_HM.pm b/FHEM/10_CUL_HM.pm
index b2e06b840..4ca8c8869 100755
--- a/FHEM/10_CUL_HM.pm
+++ b/FHEM/10_CUL_HM.pm
@@ -5547,13 +5547,23 @@ sub CUL_HM_getChnLvl($){# in: name out: vit or phys level
 
 #--------------- Conversion routines for register settings---------------------
 sub CUL_HM_initRegHash() { #duplicate short and long press register
+  my $mp = "./FHEM";
+  opendir(DH, $mp) || return;
+  foreach my $m (grep /^HMConfig_(.*)\.pm$/,readdir(DH)) {
+    my $file = "$mp$m";
+    no strict "refs";
+      my $ret = do $file;
+    use strict "refs";
+    Log3 undef, 1, "Error loading file: $file:\n $@" if(!$ret) ;
+  }
+  closedir(DH);
 
   foreach my $reg (keys %{$culHmRegDefShLg}){ #update register list
     %{$culHmRegDefine->{"sh".$reg}} = %{$culHmRegDefShLg->{$reg}};
     %{$culHmRegDefine->{"lg".$reg}} = %{$culHmRegDefShLg->{$reg}};
     $culHmRegDefine->{"lg".$reg}{a} +=0x80;
   }
-  foreach my $rN (keys %{$culHmRegDefine}){#create literal inverse for fast search
+  foreach my $rN  (keys %{$culHmRegDefine}){#create literal inverse for fast search
     if ($culHmRegDefine->{$rN}{lit}){# literal assigned => create inverse
       foreach my $lit (keys %{$culHmRegDefine->{$rN}{lit}}){
         $culHmRegDefine->{$rN}{litInv}{$culHmRegDefine->{$rN}{lit}{$lit}}=$lit;