From 9e6971d40a2288c7a3a654e921336737f2b7dcf5 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 20 Mar 2018 21:15:44 +0000
Subject: [PATCH] fhem.pl: add setDevAttrList (Forum #85868)

git-svn-id: https://svn.fhem.de/fhem/trunk@16453 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index c063894c9..94e832c0b 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -149,6 +149,8 @@ sub restoreDir_saveFile($$);
 sub restoreDir_mkDir($$$);
 sub setGlobalAttrBeforeFork($);
 sub setReadingsVal($$$$);
+sub setAttrList($$);
+sub setDevAttrList($;$);
 sub toJSON($);
 sub utf8ToLatin1($);
 
@@ -3923,6 +3925,20 @@ addToAttrList($)
   addToDevAttrList("global", shift);
 }
 
+# device specific attrList, overwrites module AttrList, user undef for $argList
+# to delete it
+sub
+setDevAttrList($;$)
+{
+  my ($dev,$argList) = @_;
+  return if(!$defs{$dev});
+  if(defined($argList)) {
+    $defs{$dev}{".AttrList"} = $argList;
+  } else {
+    delete($defs{$dev}{".AttrList"});
+  }
+}
+
 sub
 attrSplit($)
 {