From a010700219905e88b72948f294d6dfba1a08228f Mon Sep 17 00:00:00 2001
From: "ronierys2@hotmail.com" <ronierys2>
Date: Tue, 19 Mar 2024 22:39:56 -0300
Subject: [PATCH] Update uRESTDWBasic.pas
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

- Roniery ajuste para encontrar o evento na lista de eventos, para assim determinar se passa ou não no validador de permissão
---
 CORE/Source/Basic/uRESTDWBasic.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/CORE/Source/Basic/uRESTDWBasic.pas b/CORE/Source/Basic/uRESTDWBasic.pas
index d11cc4ef..30f07b65 100644
--- a/CORE/Source/Basic/uRESTDWBasic.pas
+++ b/CORE/Source/Basic/uRESTDWBasic.pas
@@ -3837,6 +3837,11 @@ procedure TRESTClientPoolerBase.SetIpVersion(IpV: TRESTDWClientIpVersions);
            vAcceptAuth           := False;
            vErrorCode            := 401;
            vErrorMessage         := cInvalidAuth;
+           //Roniery ajuste para encontrar o evento na lista de eventos,
+           //para assim determinar se passa ou não no validador de permissão
+           if vUrlToExec[Length(vUrlToExec)] = '/' then
+            delete(vUrlToExec, Length(vUrlToExec), 1);
+
            // verifica se precisa autenticação
            vNeedAuthorization := False;
            {$IFNDEF RESTDWLAZARUS}