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

correction

Browse Source
This commit is contained in:
Functioning Member of Society 2023-09-23 20:12:27 +00:00
parent c15a4b6030
commit 64b28349c9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
logger.pm
View File

@ -158,7 +158,7 @@ sub prepareLogFile {
my $aChannelName = $_[2];
if(exists($aLogFiles->{$aChannelName})) {
my $filename = localtime->ydm("-").".txt";
my $filename = localtime->ymd("-").".txt";
if($filename ne $aLogFiles->{$aChannelName}{"filename"}) {
close($aLogFiles->{$aChannelName}{"file"});
my $outputFileFolder = $configuration::logFolder."/".$aServerName."/".$aChannelName;
@ -180,12 +180,12 @@ sub prepareLogFile {
if(!(-e $outputFileFolder)) {
File::Path::make_path($outputFileFolder);
}
my $outputFilePath = $outputFileFolder."/".localtime->ydm("-").".txt";
my $outputFilePath = $outputFileFolder."/".localtime->ymd("-").".txt";
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"} = localtime->ydm("-").".txt";
$aLogFiles->{$aChannelName}{"filename"} = localtime->ymd("-").".txt";
$aLogFiles->{$aChannelName}{"names"} = [];
}
else {