From 9032ded329257e9c998e74edd2922f4e315b363c Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sun, 8 Nov 2015 11:32:33 +0000
Subject: [PATCH] 92_FileLog.pm: delete the temp glue file (Forum #41791)

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

diff --git a/fhem/FHEM/92_FileLog.pm b/fhem/FHEM/92_FileLog.pm
index 8ad54ddf7..74996a9ed 100755
--- a/fhem/FHEM/92_FileLog.pm
+++ b/fhem/FHEM/92_FileLog.pm
@@ -561,6 +561,7 @@ FileLog_Get($@)
   }
 
   my $reformatFn = AttrVal($name, "reformatFn", "");
+  my $tempread;
 
   if($inf eq "-") {
     # In case now is after midnight, before the first event is logged.
@@ -588,21 +589,19 @@ FileLog_Get($@)
           my $linf_to = $hash->{logfile};
           my ($Y,$m,$d) = ($1,$2,$3);
           $linf_to=expandFileWildcards($linf_to,$Y,$m,$d);
-          if(!($linf_to =~ m/%/)){
-            if($linf ne $linf_to){  # use to log files
-              my $tempread=$linf_to.".transit.temp.log";
-              if(open(my $temp,'>',$tempread)){
-                if(open(my $i,'<',$linf)){
-                  print $temp join("",<$i>);
-                  close($i);
-                }
-                if(open(my $i,'<',$linf_to)){
-                  print $temp join("",<$i>);
-                  close($i);
-                }
-                $linf=$tempread;
-                close($temp);
+          if($linf ne $linf_to){  # use to log files
+            $tempread=$linf_to.".transit.temp.log";
+            if(open(my $temp,'>',$tempread)){
+              if(open(my $i,'<',$linf)){
+                print $temp join("",<$i>);
+                close($i);
               }
+              if(open(my $i,'<',$linf_to)){
+                print $temp join("",<$i>);
+                close($i);
+              }
+              $linf=$tempread;
+              close($temp);
             }
           }
         }
@@ -825,6 +824,7 @@ RESCAN:
   }
 
   $ifh->close() if($ifh);
+  unlink($tempread) if($tempread);
 
   my $ret = "";
   for(my $i = 0; $i < int(@a); $i++) {