(Tcl) Manually Follow HTTP Redirects

Demonstrates how to manually follow redirects for an HTTP GET.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set http [new_CkHttp]

# The FollowRedirects property controls whether redirects
# are automatically followed.  The default behavior is to
# automatically follow redirects.

# Explicitly set FollowRedirects so that redirects are NOT automatically taken:
CkHttp_put_FollowRedirects $http 0

# resp is a CkHttpResponse
set resp [CkHttp_QuickGetObj $http "http://yandex.ru/"]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

set status [CkHttpResponse_get_StatusCode $resp]
puts "HTTP Response Status: $status"

# The FinalRedirectUrl property will contain the redirect URL
# If FollowRedirects was equal to 1, then all of the 
# intermediate redirects (if any) would be followed until
# there were no more redirects.  However, because 
# FollowRedirects is not 1, FinalRedirectUrl contains
# the next redirect URL.

set loopCount 0

while {$status == 302} {

    # IMPORTANT: This example requires Chilkat v9.5.0.49 or greater because
    # the FinalRedirectUrl in prior versions is only set when redirects
    # are automatically followed.   Starting in v9.5.0.49, the FinalRedirectUrl is
    # set to the next redirect URL when a 301/302 response is received, regardless
    # of the value of the FollowRedirects property.
    puts "Redirect URL: [CkHttp_finalRedirectUrl $http]"

    delete_CkHttpResponse $resp

    set nextUrl [CkHttp_finalRedirectUrl $http]
    set resp [CkHttp_QuickGetObj $http $nextUrl]
    if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
        puts [CkHttp_lastErrorText $http]
        delete_CkHttp $http
        exit
    }

    set status [CkHttpResponse_get_StatusCode $resp]
    puts "HTTP Response Status: $status"

    # For safety, prevent infinite loops by
    # keeping a loopCount and only allows following a max 
    # of 10 redirects:
    set loopCount [expr $loopCount + 1]
    if {$loopCount > 10} then {
        delete_CkHttpResponse $resp

        puts "Too many redirects."
        delete_CkHttp $http
        exit
    }

    delete_CkHttpResponse $resp

}

delete_CkHttp $http