60 lines
954 B
ObjectPascal
60 lines
954 B
ObjectPascal
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.
|
|
|