{*******************************************************} { 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 } { . } {*******************************************************} { _______ __ } { | _ .-----.-----.-----.-----.---.-.--| .-----. } { |. 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, LOG_UNKNOWN); 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.