CentrED

unit Logging;

{$mode objfpc}{$H+}

interface

uses

  MultiLog{$IFNDEF NoLogging}, IPCChannel{$ENDIF};

const

  lcAll = [0..31]; //all logging classes

  lcDebug = 0;

  lcError = 1;

  lcInfo = 2;

  lcWarning = 3;

  lcEvents = 4;

  lcServer = 10;

  lcClient = 11;

  lcLandscape = 12;

var

  Logger: TLogger;

implementation

initialization

  Logger := TLogger.Create;

  {$IFNDEF NoLogging}

  Logger.Channels.Add(TIPCChannel.Create);

  Logger.ActiveClasses := lcAll;

  {$ENDIF}

finalization

  Logger.Free;

end.