mysticbbs/mdl/m_logroller.pas

Unit m_LogRoller;

{$I M_OPS.PAS}

Interface

Uses
  m_FileIO,
  m_Strings,
  m_DateTime;

Const
  CRLF     = {$IFDEF WINDOWS} #13#10; {$ENDIF}
             {$IFDEF UNIX}    #10;    {$ENDIF}
             {$IFDEF OS2}     #13#10; {$ENDIF}
  log      = 1;
  logStart = 2;

Type
  TLogRoller = Class
    PreFix   : String;
    LogFile  : TFileBuffer;
    BufSize  : LongInt;
    MaxSize  : LongInt;
    MaxLogs  : Byte;
    CurLevel : Byte;

    Constructor Create (FN: String; Max: LongInt; ML, Level: Byte);
    Destructor  Destroy; Override;
    Procedure   Add (LogType, LogLevel: Byte; LogChar: Char; LogStr: String);
  End;

Implementation

Constructor TLogRoller.Create (FN: String; Max: LongInt; ML, Level: Byte);
Begin
  Inherited Create;

  MaxSize  := Max * 1024;
  MaxLogs  := ML;
  BufSize  := 8 * 1024;
  CurLevel := Level;
  PreFix   := FN;

  LogFile := TFileBuffer.Create(BufSize);

  LogFile.OpenStream (PreFix + '_1.log', 1, fmOpenCreate, 66);
End;

Destructor TLogRoller.Destroy;
Begin
  LogFile.Free;

  Inherited Destroy;
End;

Procedure TLogRoller.Add (LogType, LogLevel: Byte; LogChar: Char; LogStr: String);
Var
  Count : Byte;
Begin
  If CurLevel < LogLevel Then Exit;

  If (MaxSize > 0) And (System.FileSize(LogFile.InFile) + LogFile.BufPos > MaxSize) Then Begin
    LogFile.CloseStream;

    FileErase (PreFix + '_' + strI2S(MaxLogs) + '.log');

    For Count := MaxLogs - 1 DownTo 1 Do
      FileReName (PreFix + '_' + strI2S(Count) + '.log', PreFix + '_' + strI2S(Count + 1) + '.log');

    LogFile.OpenStream (PreFix + '_1.log', 1, fmOpenAppend, 66);
  End;

  Case LogType of
    logStart : LogStr := '----------  ' + LogStr + ', ' + FormatDate(CurDateDT, 'NNN DD YYYY') + CRLF;
    log      : LogStr := LogChar + ' ' + FormatDate(CurDateDT, 'HH:II:SS') + '  ' + LogStr + CRLF;
  End;

  LogFile.WriteBlock (LogStr[1], Length(LogStr));
End;

End.