109 lines
3.4 KiB
ObjectPascal
109 lines
3.4 KiB
ObjectPascal
{*******************************************************}
|
|
|
|
{ Renegade BBS }
|
|
|
|
{ Copyright (c) 1990-2013 The Renegade Dev Team }
|
|
{ Copyleft (ↄ) 2016-2017 Renegade BBS }
|
|
|
|
{ This file is part of Renegade BBS }
|
|
|
|
{ Renegade is free software: you can redistribute it }
|
|
{ and/or modify it under the terms of the GNU General }
|
|
{ Public License as published by the Free Software }
|
|
{ Foundation, either version 3 of the License, or }
|
|
{ (at your option) any later version. }
|
|
|
|
{ Renegade is distributed in the hope that it will be }
|
|
{ useful, but WITHOUT ANY WARRANTY; without even the }
|
|
{ implied warranty of MERCHANTABILITY or FITNESS FOR }
|
|
{ A PARTICULAR PURPOSE. See the GNU General Public }
|
|
{ License for more details. }
|
|
|
|
{ You should have received a copy of the GNU General }
|
|
{ Public License along with Renegade. If not, see }
|
|
{ <http://www.gnu.org/licenses/>. }
|
|
|
|
{*******************************************************}
|
|
{ _______ __ }
|
|
{ | _ .-----.-----.-----.-----.---.-.--| .-----. }
|
|
{ |. l | -__| | -__| _ | _ | _ | -__| }
|
|
{ |. _ |_____|__|__|_____|___ |___._|_____|_____| }
|
|
{ |: | | |_____| }
|
|
{ |::.|:. | }
|
|
{ `--- ---' }
|
|
{*******************************************************}
|
|
{$mode objfpc}
|
|
{$interfaces corba}
|
|
{$codepage utf8}
|
|
{$h+}
|
|
{ namespace Renegade.Logger }
|
|
unit Logger.LoggerInterface;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes,
|
|
Logger.HandlerInterface;
|
|
|
|
type
|
|
LogLevels = (
|
|
LOG_EMERG,
|
|
LOG_ALERT,
|
|
LOG_CRIT,
|
|
LOG_ERR,
|
|
LOG_WARNING,
|
|
LOG_NOTICE,
|
|
LOG_INFO,
|
|
LOG_DEBUG);
|
|
|
|
const
|
|
LOG_PRIMASK = $07; // Internal Unix Use;
|
|
|
|
type
|
|
{ Every procedure takes an array of const as Context, this is for any
|
|
extra information that doesn't fit well in the message,
|
|
(e.g. User id, menu name, etc.) }
|
|
LoggerInterface = interface
|
|
['{3220524c-fae0-11e6-8b70-9c5c8e742ab6}']
|
|
|
|
// Sets the Logging Handler to use. (e.g. SysLogHandler, FileHandler, etc.)
|
|
procedure SetHandler(Handler: LoggingHandlerInterface);
|
|
|
|
// System is unusable
|
|
procedure Emergency(Message: UTF8String; Context: array of const);
|
|
|
|
// Action must be taken immediately
|
|
procedure Alert(Message: UTF8String; Context: array of const);
|
|
|
|
// Critical conditions
|
|
procedure Critical(Message: UTF8String; Context: array of const);
|
|
|
|
// Error conditions
|
|
procedure Error(Message: UTF8String; Context: array of const);
|
|
|
|
// Warning conditions
|
|
procedure Warning(Message: UTF8String; Context: array of const);
|
|
|
|
// Normal, but significant, condition
|
|
procedure Notice(Message: UTF8String; Context: array of const);
|
|
|
|
// Informational message
|
|
procedure Info(Message: UTF8String; Context: array of const);
|
|
|
|
// Debug-level message
|
|
procedure Debug(Message: UTF8String; Context: array of const);
|
|
|
|
{ General logging procedure
|
|
LogLevel : array of const containing the different log levels
|
|
Message : The Log Message }
|
|
procedure Log(LogLevel: LogLevels; Message: UTF8String;
|
|
Context: array of const);
|
|
|
|
// Holds the current logging handler.
|
|
property LoggingHandler: LoggingHandlerInterface write SetHandler;
|
|
end;
|
|
|
|
implementation
|
|
|
|
end.
|