MIGDYN/irclogger_web
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Logger: Update output file after date change

Browse Source
This commit is contained in:
mrkubax10 2023-09-18 10:07:15 +02:00
parent d89006fb46
commit 94696bc4f1
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
logger.pm
View File

@ -156,7 +156,25 @@ sub prepareLogFile {
my $aServerName = $_[1]; my $aServerName = $_[1];
my $aChannelName = $_[2]; my $aChannelName = $_[2];
if(!exists($aLogFiles->{$aChannelName})) { if(exists($aLogFiles->{$aChannelName})) {
my $filename = localtime->dmy("-").".txt";
if($filename ne $aLogFiles->{$aChannelName}{"filename"}) {
close($aLogFiles->{$aChannelName}{"file"});
my $outputFileFolder = $configuration::logFolder."/".$aServerName."/".$aChannelName;
my $outputFilePath = $outputFileFolder."/".$filename;
open(my $file, ">>", $outputFilePath);
if($file) {
printf("[info] Outputting channel '%s' at '%s' to '%s'\n", $aChannelName, $aServerName, $outputFilePath);
$aLogFiles->{$aChannelName}{"file"} = $file;
$aLogFiles->{$aChannelName}{"filename"} = $filename;
}
else {
print("[error] Failed to open '$outputFilePath' for writing\n");
return 0;
}
}
}
else {
my $outputFileFolder = $configuration::logFolder."/".$aServerName."/".$aChannelName; my $outputFileFolder = $configuration::logFolder."/".$aServerName."/".$aChannelName;
if(!(-e $outputFileFolder)) { if(!(-e $outputFileFolder)) {
File::Path::make_path($outputFileFolder); File::Path::make_path($outputFileFolder);
@ -166,6 +184,7 @@ sub prepareLogFile {
if($file) { if($file) {
printf("[info] Outputting channel '%s' at '%s' to '%s'\n", $aChannelName, $aServerName, $outputFilePath); printf("[info] Outputting channel '%s' at '%s' to '%s'\n", $aChannelName, $aServerName, $outputFilePath);
$aLogFiles->{$aChannelName}{"file"} = $file; $aLogFiles->{$aChannelName}{"file"} = $file;
$aLogFiles->{$aChannelName}{"filename"} = localtime->dmy("-").".txt";
$aLogFiles->{$aChannelName}{"names"} = []; $aLogFiles->{$aChannelName}{"names"} = [];
} }
else { else {