FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-10 08:04:00 +00:00
Code Issues Releases Wiki Activity

92_FileLog.pm: delete the temp glue file (Forum #41791)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@9819 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2015-11-08 11:32:33 +00:00
parent a04ac8e1a2
commit 9032ded329
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
fhem/FHEM/92_FileLog.pm
View File

@ -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++) {