eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

increased buffer size to 8kb, now rolls at proper filesize

This commit is contained in:
g00r00 2013-10-02 20:38:06 -04:00
parent afa47cad86
commit fce718ece3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mdl/m_logroller.pas
View File

@ -38,7 +38,7 @@ Begin
MaxSize := Max * 1024; MaxSize := Max * 1024;
MaxLogs := ML; MaxLogs := ML;
BufSize := 4 * 1024; BufSize := 8 * 1024;
CurLevel := Level; CurLevel := Level;
PreFix := FN; PreFix := FN;
@ -60,7 +60,7 @@ Var
Begin Begin
If CurLevel < LogLevel Then Exit; If CurLevel < LogLevel Then Exit;
If (MaxSize > 0) And (System.FileSize(LogFile.InFile) > MaxSize) Then Begin If (MaxSize > 0) And (System.FileSize(LogFile.InFile) + LogFile.BufPos > MaxSize) Then Begin
LogFile.CloseStream; LogFile.CloseStream;
FileErase (PreFix + '_' + strI2S(MaxLogs) + '.log'); FileErase (PreFix + '_' + strI2S(MaxLogs) + '.log');