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

@@ -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;
 }