{*******************************************************} { 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} {$codepage utf8} {$h+} unit Logger.NullHandler; interface uses Classes, SysUtils, Logger.HandlerInterface; type NullHandler = class(TObject, LoggingHandlerInterface) Public constructor Create(); destructor Destroy(); function Open(Identifier: UTF8String): boolean; function Close(): boolean; function Write(const LogData: UTF8String): boolean; end; implementation constructor NullHandler.Create(); begin inherited Create; end; destructor NullHandler.Destroy(); begin inherited Destroy; end; function NullHandler.Open(Identifier: UTF8String) : boolean; begin Result := True; end; function NullHandler.Close(): boolean; begin Result := True; end; function NullHandler.Write(const LogData: UTF8String): boolean; begin Result := True; end; end.