Merge pull request #13 from HashLoad/fix-bypass-root-route-in-lazarus

(fix) bypass root route in lazarus
HashLoad · Feb 17, 2022 · d3f4479 · d3f4479
2 parents 8d27b53 + 85dc014
commit d3f4479
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/src/Horse.BasicAuthentication.pas b/src/Horse.BasicAuthentication.pas
@@ -78,8 +78,12 @@ procedure Middleware(Req: THorseRequest; Res: THorseResponse; Next: {$IF DEFINED
   LBase64String: string;
   LBasicAuthenticationDecode: TStringList;
   LIsAuthenticated: Boolean;
+  LPathInfo: string;
 begin
-  if MatchText(Req.RawWebRequest.PathInfo, Config.SkipRoutes) then
+  LPathInfo := Req.RawWebRequest.PathInfo;
+  if LPathInfo = EmptyStr then
+    LPathInfo := '/';
+  if MatchText(LPathInfo, Config.SkipRoutes) then
   begin
     Next();
     Exit;
@@ -186,4 +190,4 @@ function THorseBasicAuthenticationConfig.SkipRoutes: TArray<string>;
   Result := FSkipRoutes;
 end;
 
-end.
+end.