35 lines
345 B
ObjectPascal
35 lines
345 B
ObjectPascal
unit cgi_mapper;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, DaemonApp;
|
|
|
|
type
|
|
TDaemonMapper1 = class(TDaemonMapper)
|
|
private
|
|
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
DaemonMapper1: TDaemonMapper1;
|
|
|
|
implementation
|
|
|
|
procedure RegisterMapper;
|
|
begin
|
|
RegisterDaemonMapper(TDaemonMapper1)
|
|
end;
|
|
|
|
{$R *.lfm}
|
|
|
|
|
|
initialization
|
|
RegisterMapper;
|
|
end.
|
|
|