From 31611429f49cfe81d82fde7df634e293ce237d84 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Wed, 11 Mar 2020 16:09:28 +0000
Subject: [PATCH] AttrTemplate.pm: add checkPar and some more deteiledd error
 msg (Forum #108999)

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@21408 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/AttrTemplate.pm | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/FHEM/AttrTemplate.pm b/FHEM/AttrTemplate.pm
index 92749d153..30f13f651 100644
--- a/FHEM/AttrTemplate.pm
+++ b/FHEM/AttrTemplate.pm
@@ -211,6 +211,23 @@ AttrTemplate_Set($$@)
     return join("\n", @hlp);
   }
 
+  if($entry eq "checkPar") {
+    my @ret;
+    foreach $entry (sort keys %templates) {
+      my $h = $templates{$entry};
+      for my $k (@{$h->{pars}}) {
+        my ($parname, $comment, $perl_code) = split(";",$k,3);
+        nex if(!$perl_code);
+        $perl_code =~ s/(?<!\\)DEVICE/bla/g;
+        $perl_code =~ s/\\DEVICE/DEVICE/g;
+        my $ret = eval $perl_code;
+        push @ret,"$entry:$parname:$@" if($@);
+      }
+    }
+    return "No errors found" if (!@ret);
+    return join("\n", @ret);
+  }
+
   my $h = $templates{$entry};
   return "Unknown template_entry_name $entry" if(!$h);
 
@@ -245,7 +262,8 @@ AttrTemplate_Set($$@)
       $perl_code =~ s/(?<!\\)DEVICE/$name/g;
       $perl_code =~ s/\\DEVICE/DEVICE/g;
       my $ret = eval $perl_code;
-      return "Error checking template regexp: $@" if($@);
+      return "ERROR executing perl-code $perl_code for param $parname: $@ "
+                if($@);
       if(defined($ret)) {
         $repl{$parname} = $ret;
         next;