Changeset 139 for trunk/Modules/ZdechovNET/ULinksPage.pas

Timestamp:

Sep 9, 2022, 9:41:42 PM (21 months ago)

Author:

chronos

Message:

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

File:

• trunk/Modules/ZdechovNET/ULinksPage.pas (modified) (2 diffs)

trunk/Modules/ZdechovNET/ULinksPage.pas

@@ -12 +12 @@
   TLinksPage = class(TWebPage)
     procedure DataModuleProduce(HandlerData: THTTPHandlerData);
-  private
-    { private declarations }
   public
     ModuleUser: TModuleUser;
@@ -34 +32 @@
 begin
   with TWebSession(HandlerData), HtmlDocument.Body, SubItems.AddString do begin
+    if Request.Path.Count > 1 then begin
+      PageNotFound;
+      Exit;
+    end;
+
     ModuleUser.LoadUserInfo;
     Text := '<strong>Odkazy související s obcí:</strong><br/>' +