mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-07 06:52:44 +02:00
39 lines
950 B
ObjectPascal
39 lines
950 B
ObjectPascal
Library mod_helloworld;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
Uses
|
|
{$ifdef unix}
|
|
cthreads,
|
|
{$endif}
|
|
httpd,fpApache, webmodule;
|
|
|
|
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_helloworld';
|
|
|
|
{ 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;
|
|
|
|
{$IFDEF WINDOWS}{$R mod_helloworld.rc}{$ENDIF}
|
|
|
|
begin
|
|
Application.Title:='mod_helloworld';
|
|
Application.ModuleName:=ModuleName;
|
|
Application.HandlerName:=HandlerName;
|
|
Application.SetModuleRecord(DefaultModule);
|
|
Application.Initialize;
|
|
end.
|
|
|