Remove GetRedirectLocation in favor of FollowRedirects

Author: timhall

specs/Specs_WebClient.bas

@@ -258,18 +258,6 @@ Public Function Specs() As SpecSuite
 
     ' SetProxy
 
-    ' GetRedirectLocation
-    ' --------------------------------------------- '
-    With Specs.It("should GetRedirectLocation of Request")
-        Set Request = New WebRequest
-        Request.Resource = "redirect/1"
-        
-        Dim RedirectLocation As String
-        RedirectLocation = Client.GetRedirectLocation(Request)
-        
-        .Expect(RedirectLocation).ToEqual "/get"
-    End With
-    
     ' GetFullUrl
     ' --------------------------------------------- '
     With Specs.It("should GetFullUrl of Request")

src/WebClient.cls

@@ -458,26 +458,6 @@ Public Sub SetProxy(ProxyServer As String, _
     Me.ProxyBypassList = BypassList
 End Sub
 
-''
-' If the given Request is a redirect (301, 302, or 307),
-' then get value of the "Location" header
-'
-' @param {WebRequest} Request
-' @return {String}
-''
-Public Function GetRedirectLocation(Request As WebRequest) As String
-    Dim RedirectRequest As WebRequest
-    Set RedirectRequest = Request.Clone
-    RedirectRequest.Method = WebMethod.HttpHead
-    
-    Dim Response As WebResponse
-    Set Response = Me.Execute(RedirectRequest)
-    
-    If Response.StatusCode = 301 Or Response.StatusCode = 302 Or Response.StatusCode = 307 Then
-        GetRedirectLocation = WebHelpers.FindInKeyValues(Response.Headers, "Location")
-    End If
-End Function
-
 ''
 ' Get full url by joining given `WebRequest.FormattedResource` and `BaseUrl`.
 '