FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +00:00
Code Issues Releases Wiki Activity

92_FileLog.pm: fix createGluedFile for endPlotNow (Forum #139640)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@29319 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2024-10-30 17:18:26 +00:00
parent 9e32aa7b28
commit b6489663ca
1 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
fhem/FHEM/92_FileLog.pm
View File

@ -836,32 +836,29 @@ FileLog_Get($@)
} else {
my $linf;
if($inf eq "CURRENT") {
if($from =~ m/^(....)-(..)-(..)/) { # compute the log filename
my ($fy,$fm,$fd) = ($1,$2,$3);
if($from =~ m/^(....-..-..)_(..:..:..)/) {
my ($from_ymd, $from_hms) = ($1,$2);
$linf = ResolveDateWildcards($hash->{logfile},
localtime(time_str2num("$fy-$fm-$fd 00:00:00")));
localtime(time_str2num("$from_ymd $from_hms")));
if(AttrVal($name, "createGluedFile", 0)) {
$to = (split(" ", TimeNow()))[0] if($to eq "9"); # Special
if($to =~ m/^(....)-(..)-(..)/) {
my ($ty,$tm,$td) = ($1,$2,$3);
if($to =~ m/^(....-..-..)_(..:..:..)/) {
my ($to_ymd, $to_hms) = ($1,$2);
my $linf_to = ResolveDateWildcards($hash->{logfile},
localtime(time_str2num("$ty-$tm-$td 00:00:00")));
localtime(time_str2num("$to_ymd $to_hms")));
if($linf ne $linf_to){ # append each file into a temporary one
$tempfileName = $linf.".transit.temp.log";
unlink($tempfileName);
my $lf = $linf;
if(open(my $out,'>',$tempfileName)){
my $sec = time_str2num("$fy-$fm-$fd 00:00:00");
my $secTo = time_str2num("$ty-$tm-$td 00:00:00");
if(($secTo-$sec)%86400) { #DST change inbetween, #99215
$secTo = $sec + 86400*int(($secTo-$sec+3600)/86400);
}
my $sec = time_str2num("$from_ymd $from_hms");
my $secTo = time_str2num("$to_ymd $to_hms");
my $lastFile = "";
while($sec <= $secTo) { # Loop over each day
$linf=ResolveDateWildcards($hash->{logfile},localtime($sec));
$sec += 86400;
$sec += 3600;
if($linf ne $lastFile) {
$lastFile = $linf;
if(open(my $i,'<',$linf)){