paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-10 04:47:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed compilation of apache modules in Lazarus

Browse Source 
git-svn-id: trunk@17329 -
This commit is contained in:
michael 2011-04-16 14:36:19 +00:00
parent ee54a8b879
commit 953560eeaa
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-web/src/base/fpapache.pp
View File

@ -128,6 +128,7 @@ Type
procedure ShowException(E: Exception); override;
Function ProcessRequest(P : PRequest_Rec) : Integer; virtual;
Function AllowRequest(P : PRequest_Rec) : Boolean; virtual;
Procedure SetModuleRecord(Var ModuleRecord : Module);
Property HandlerPriority : THandlerPriority Read GetPriority Write SetPriority default hpMiddle;
Property BeforeModules : TStrings Read GetBeforeModules Write SetBeforeModules;
Property AfterModules : TStrings Read GetAfterModules Write SetAfterModules;
@ -731,6 +732,11 @@ begin
result := TApacheHandler(WebHandler).AllowRequest(p);
end;
procedure TCustomApacheApplication.SetModuleRecord(var ModuleRecord: Module);
begin
TApacheHandler(WebHandler).SetModuleRecord(ModuleRecord);
end;
Initialization
BeginThread(@__dummythread);//crash prevention for simultaneous requests
sleep(300);