From 36b425aef11acd36d6681351af09370f99a24cbe Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= Date: Sun, 20 Nov 2022 21:17:37 +0100 Subject: [PATCH] The contents of the '.public' directory is now automatically served by webpages. [GB.WEB] * NEW: The contents of the '.public' directory is now automatically served by webpages. --- comp/src/gb.web/.src/WebPage.class | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/comp/src/gb.web/.src/WebPage.class b/comp/src/gb.web/.src/WebPage.class index 8e2657aa5..e4bb5f34b 100644 --- a/comp/src/gb.web/.src/WebPage.class +++ b/comp/src/gb.web/.src/WebPage.class @@ -14,6 +14,13 @@ Private $bBuffered As Boolean Static Public Sub Main() Dim hObject As WebPage + Dim sPath As String + + sPath = Mid$(Request.Path, 2) + If sPath And If Exist("../.public/" &/ sPath) Then + Response.SendFile("../.public/" &/ sPath) + Return + Endif Try hObject = Application.Startup.AutoCreate() If Not hObject Then Return