From 71f08bcdb2186ec699648af3f546407091461c9b Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Fri, 18 Jan 2019 17:06:18 +0000
Subject: [PATCH] fhem.pl: attribute exclusion list for GetDefAndAttr, by
 betateilchen (Forum #95902)

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

diff --git a/fhem.pl b/fhem.pl
index c486e3600..6ba684689 100755
--- a/fhem.pl
+++ b/fhem.pl
@@ -65,6 +65,7 @@ sub FileRead($);
 sub FileWrite($@);
 sub FmtDateTime($);
 sub FmtTime($);
+sub GetDefAndAttr($;$);
 sub GetLogLevel(@);
 sub GetTimeSpec($);
 sub GetType($;$);
@@ -1619,13 +1620,15 @@ GetDefAndAttr($;$)
   push @ret, "setuuid $d $defs{$d}{FUUID}"
         if($dumpFUUID && defined($defs{$d}{FUUID}) && $defs{$d}{FUUID});
 
+# exclude attributes, format <deviceName>:<attrName>, space separated list
+  my @dontSave = qw(configdb:rescue configdb:nostate configdb:loadversion 
+                    global:configfile global:version);
   foreach my $a (sort {
                    return -1 if($a eq "userattr"); # userattr must be first
                    return  1 if($b eq "userattr");
                    return $a cmp $b;
                  } keys %{$attr{$d}}) {
-    next if($d eq "global" &&
-            ($a eq "configfile" || $a eq "version"));
+    next if (grep { $_ eq "$d:$a" } @dontSave);
     my $val = $attr{$d}{$a};
     $val =~ s/;/;;/g;
     $val =~ s/\n/\\\n/g;