* Fixed missing initialization of webhandler

git-svn-id: trunk@17533 -

packages/fcl-web/src/base/fpapache.pp

@@ -125,6 +125,7 @@ Type
     procedure SetPriority(const AValue: THandlerPriority);
   public
     function InitializeWebHandler: TWebHandler; override;
+    Procedure Initialize;
     procedure ShowException(E: Exception); override;
     Function ProcessRequest(P : PRequest_Rec) : Integer; virtual;
     Function AllowRequest(P : PRequest_Rec) : Boolean; virtual;
@@ -718,6 +719,11 @@ begin
   Result:=TApacheHandler.Create(self);
 end;
 
+procedure TCustomApacheApplication.Initialize;
+begin
+  TApacheHandler(WebHandler).Initialize;
+end;
+
 procedure TCustomApacheApplication.ShowException(E: Exception);
 begin
   ap_log_error(pchar(TApacheHandler(WebHandler).ModuleName),0,APLOG_ERR,0,Nil,'module: %s',[Pchar(E.Message)]);