Trim port number from URL-based domain for cookies

EricGrange · Apr 14, 2023 · 3b34d56 · 3b34d56
1 parent 3dd3835
commit 3b34d56
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/uCEFBrowserThread.pas b/uCEFBrowserThread.pas
@@ -706,6 +706,9 @@ procedure TCEFBrowserThread.SetCookies;
          if domain = '' then begin
             var p := Pos('//', url);
             domain := Copy(url, p+2, Pos('/', url, p+2)-p-2);
+            p := Pos(':', domain);
+            if p > 0 then
+               SetLength(domain, p-1);
          end;
 
          var path := fields.Values['path'];