From d0e1a736a6a5d1c51d6f07742e8e5ed5630575a8 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Thu, 2 Jan 2025 09:36:20 +0000
Subject: [PATCH] 92_FileLog.pm: better way of logging "set clear" (Forum
 #140177)

git-svn-id: https://svn.fhem.de/fhem/trunk@29471 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/92_FileLog.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/92_FileLog.pm b/fhem/FHEM/92_FileLog.pm
index c19c81024..9806ec7a4 100644
--- a/fhem/FHEM/92_FileLog.pm
+++ b/fhem/FHEM/92_FileLog.pm
@@ -206,6 +206,8 @@ FileLog_Define($@)
     FileLog_initEMI($hash, "addLog", undef, 1);
     my $mi = $hash->{addLogMinInterval};
     InternalTimer(time()+$mi, "FileLog_addLog", $hash, 0) if($mi);
+    delete($hash->{READINGS}{linesInTheFile})
+      if($hash->{READONLY} && $hash->{READINGS});
   }, $hash);
 
   return undef;
@@ -478,7 +480,8 @@ FileLog_Set($@)
       $fh->close() if($fh);
       if($cmd eq "clear") {
         $fh = new IO::File(">$cn");
-        setReadingsVal($hash, "linesInTheFile", 0, TimeNow());
+        setReadingsVal($hash, "linesInTheFile", 0, TimeNow())
+          if(!$hash->{READONLY});
       } else {
         $fh = new IO::File(">>$cn");
       }
@@ -558,6 +561,8 @@ FileLog_Set($@)
     CommandDelete(undef, $victim);
 
   }
+  Log3 $me, 3, "set ".join(" ",@a);
+  
   return undef;
 }