Handle multiple 100 responses in cURL

Fixes #156

Author: timhall

specs/Specs_WebResponse.bas

@@ -174,6 +174,8 @@ Public Function Specs() As SpecSuite
 
         Request.Format = WebFormat.PlainText
         Curl = "HTTP/1.1 100 Continue" & vbCrLf & _
+            vbCrLf & _
+            "HTTP/1.1 100 Continue" & vbCrLf & _
             vbCrLf & _
             "HTTP/1.1 200 OK" & vbCrLf & _
             "Set-Cookie: message=Howdy!" & vbCrLf & _

src/WebResponse.cls

@@ -380,17 +380,15 @@ Private Function web_ExtractResponseTextFromCurlResponse(web_CurlResponseLines()
 End Function
 
 Private Function web_FindStatusLine(web_CurlResponseLines() As String) As Long
-    If VBA.Split(web_CurlResponseLines(0), " ")(1) = "100" Then
-        ' Special case for cURL: 100 Continue is included before final status code
-        ' -> ignore 100 and find final status code (next non-blank line)
-        For web_FindStatusLine = 1 To UBound(web_CurlResponseLines)
-            If VBA.Trim$(web_CurlResponseLines(web_FindStatusLine)) <> "" Then
+    ' Special case for cURL: 100 Continue is included before final status code
+    ' -> ignore 100 and find final status code (next non-100 status code)
+    For web_FindStatusLine = LBound(web_CurlResponseLines) To UBound(web_CurlResponseLines)
+        If VBA.Trim$(web_CurlResponseLines(web_FindStatusLine)) <> "" Then
+            If VBA.Split(web_CurlResponseLines(web_FindStatusLine), " ")(1) <> "100" Then
                 Exit Function
             End If
-        Next web_FindStatusLine
-    Else
-        web_FindStatusLine = 0
-    End If
+        End If
+    Next web_FindStatusLine
 End Function
 
 Private Function web_FindBlankLine(web_CurlResponseLines() As String) As Long