Changeset 139 for trunk/Application

Timestamp:

Sep 9, 2022, 9:41:42 PM (2 years ago)

Author:

chronos

Message:

• Fixed: Better handle invalid not found pages including correct HTTP code.

File:

• trunk/Application/UWebSession.pas (modified) (4 diffs)

trunk/Application/UWebSession.pas

@@ -9 +9 @@
 
 type
+
   { TWebSession }
 
@@ -25 +26 @@
     BaseURL: string;
     ModuleManager: TModuleManager;
+    procedure PageNotFound;
     procedure InitDatabase;
     constructor Create; override;
@@ -38 +40 @@
   UCore, UModuleSystem, UModuleZdechovNET, UModuleUser, UPageAdmin, UModuleTV,
   UModuleFinance, UModuleNetwork, UModulePortal, UModuleIS, UModuleBase,
-  UModuleNews;
+  UModuleNews, UPageNotFound;
 
 resourcestring
@@ -187 +189 @@
 end;
 
+procedure TWebSession.PageNotFound;
+var
+  Page: TPageNotFound;
+begin
+  Page := TPageNotFound.Create(nil);
+  try
+    if Assigned(Page.OnProduce) then
+      Page.OnProduce(Self);
+  finally
+    Page.Free;
+  end;
+end;
+
 
 end.