From 951b2a87e2e58f48eebe0c363bae895b135c3ccd Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Fri, 29 Jan 2021 20:13:00 +0000
Subject: [PATCH] 98_autocreate.pm: allow createlog for noAutocreatedFilelog
 (Forum #118256)

git-svn-id: https://svn.fhem.de/fhem/trunk@23637 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_autocreate.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/98_autocreate.pm b/fhem/FHEM/98_autocreate.pm
index cbc4f0890..f2fe38cd5 100644
--- a/fhem/FHEM/98_autocreate.pm
+++ b/fhem/FHEM/98_autocreate.pm
@@ -113,8 +113,10 @@ autocreate_Notify($$)
 
   my $me = $ntfy->{NAME};
   my $max = int(@{$dev->{CHANGED}});
+  my $calledByCreatelog;
   my $ret = "";
   my $nrcreated;
+  $calledByCreatelog = ($dev && $me eq $dev->{NAME});
 
   for (my $i = 0; $i < $max; $i++) {
 
@@ -256,7 +258,8 @@ autocreate_Notify($$)
 
       ####################
       my $fl = replace_wildcards($hash, AttrVal($me, "filelog", ""));
-      $fl = undef if($modules{$hash->{TYPE}}{noAutocreatedFilelog});
+      $fl = undef if($modules{$hash->{TYPE}}{noAutocreatedFilelog} &&
+                     !$calledByCreatelog);
       my $flname = "FileLog_$name";
       delete($defs{$flname}) if($fl); # If we are re-creating it with createlog.
       my ($gplot, $filter, $devattr) = ("", $name, "");