mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-09 12:16:01 +02:00
38 lines
856 B
ObjectPascal
38 lines
856 B
ObjectPascal
Library echo;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
Uses
|
|
{$ifdef unix}
|
|
cthreads,
|
|
{$endif}
|
|
httpd,fpApache, wmecho;
|
|
|
|
Const
|
|
|
|
{ The following constant is used to export the module record. It must
|
|
always match the name in the LoadModule statement in the apache
|
|
configuration file(s). It is case sensitive !}
|
|
ModuleName='mod_echo';
|
|
|
|
{ The following constant is used to determine whether the module will
|
|
handle a request. It should match the name in the SetHandler statement
|
|
in the apache configuration file(s). It is not case sensitive. }
|
|
|
|
HandlerName=ModuleName;
|
|
|
|
Var
|
|
DefaultModule : module; {$ifdef unix} public name ModuleName;{$endif unix}
|
|
|
|
Exports defaultmodule name ModuleName;
|
|
|
|
{$R *.res}
|
|
|
|
begin
|
|
Application.ModuleName:=ModuleName;
|
|
Application.HandlerName:=HandlerName;
|
|
Application.SetModuleRecord(DefaultModule);
|
|
Application.Initialize;
|
|
end.
|
|
|