From baf0c8d20919ce1f36090ee1f2ebc8383d65cbfd Mon Sep 17 00:00:00 2001
From: Philip Molter <hrunting@hrunting.org>
Date: Sat, 27 May 2023 11:20:45 -0500
Subject: [PATCH] Fix cookie extraction for lowercase HTTP headers

---
 src/WebResponse.cls | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/WebResponse.cls b/src/WebResponse.cls
index a24a1ce7..b241bbf1 100644
--- a/src/WebResponse.cls
+++ b/src/WebResponse.cls
@@ -269,7 +269,7 @@ Public Function ExtractCookies(Headers As Collection) As Collection
     Dim web_Cookies As New Collection
 
     For Each web_Header In Headers
-        If web_Header("Key") = "Set-Cookie" Then
+        If LCase(web_Header("Key")) = "set-cookie" Then
             web_Cookie = web_Header("Value")
             If VBA.InStr(1, web_Cookie, "=") > 0 Then
                 web_Key = VBA.Mid$(web_Cookie, 1, VBA.InStr(1, web_Cookie, "=") - 1)