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

FileLog: reopen renames the file if necessary

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@5044 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2014-02-25 11:38:35 +00:00
parent d78dfe1398
commit ba3854b030
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
fhem/FHEM/92_FileLog.pm
View File

@ -109,12 +109,13 @@ FileLog_Switch($)
$fh = new IO::File ">>$cn";
if(!defined($fh)) {
Log3 $log, 0, "Can't open $cn";
return;
return 0;
}
$log->{currentlogfile} = $cn;
$log->{FH} = $fh;
return 1;
}
return 0;
}
#####################################
@ -198,12 +199,14 @@ FileLog_Set($@)
return "$cmd needs $sets{$cmd} parameter(s)" if(@a-$sets{$cmd} != 2);
if($cmd eq "reopen") {
my $fh = $hash->{FH};
my $cn = $hash->{currentlogfile};
$fh->close();
$fh = new IO::File(">>$cn");
return "Can't open $cn" if(!defined($fh));
$hash->{FH} = $fh;
if(!FileLog_Switch($hash)) { # No rename, reopen anyway
my $fh = $hash->{FH};
my $cn = $hash->{currentlogfile};
$fh->close();
$fh = new IO::File(">>$cn");
return "Can't open $cn" if(!defined($fh));
$hash->{FH} = $fh;
}
} elsif($cmd eq "addRegexpPart") {
my %h;