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

6
mdl/m_logroller.pas
View File

@ -38,7 +38,7 @@ Begin
MaxSize := Max * 1024;
MaxLogs := ML;
BufSize := 4 * 1024;
BufSize := 8 * 1024;
CurLevel := Level;
PreFix := FN;
@ -60,7 +60,7 @@ Var
Begin
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;
FileErase (PreFix + '_' + strI2S(MaxLogs) + '.log');
@ -79,4 +79,4 @@ Begin
LogFile.WriteBlock (LogStr[1], Length(LogStr));
End;
End.
End.