unit cgi_mapper;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, DaemonApp;

type

  { TDaemonMapper1 }

  TDaemonMapper1 = class(TDaemonMapper)
    procedure DaemonMapper1Create(Sender: TObject);
    procedure DaemonMapper1DaemonDefs0CreateInstance(Sender: TObject);
  private

  public

  end;

var
  DaemonMapper1: TDaemonMapper1;

implementation
uses
  lazutf8;
procedure RegisterMapper;
begin
  RegisterDaemonMapper(TDaemonMapper1)
end;

{$R *.lfm}

{ TDaemonMapper1 }

procedure TDaemonMapper1.DaemonMapper1Create(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to DaemonDefs.Count-1 do
    begin
     DaemonDefs.Daemons[i].DisplayName:=UTF8ToConsole(DaemonDefs.Daemons[i].DisplayName);
     DaemonDefs.Daemons[i].Description:=UTF8ToConsole(DaemonDefs.Daemons[i].Description);
    end;
end;

procedure TDaemonMapper1.DaemonMapper1DaemonDefs0CreateInstance(Sender: TObject
  );
begin

end;


initialization
  RegisterMapper;
end.