Tcl

Http Follow Redirects

See more HTTP Examples

Demonstrates how to automatically follow redirects. Tcl

load ./chilkat.dll

set http [new_CkHttp]

# If you would like to see the HTTP session log to see how 
# HTTP redirects were followed.
CkHttp_put_SessionLogFilename $http "c:/temp/qa_output/sessionLog.txt"

# Run the test using this URL.
# (Works while httpbin.org keeps the test endpoint available.)

set url "https://httpbin.org/redirect-to?url={$redirectUrl}&status_code={$statusCode}"

CkHttp_SetUrlVar $http "redirectUrl" "https://chilkatsoft.com/helloWorld.json"
CkHttp_SetUrlVar $http "statusCode" "302"

set jsonResponse [CkHttp_quickGetStr $http $url]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

puts "Response status code: [CkHttp_get_LastStatus $http]"
puts "$jsonResponse"

# How to tell if the request was redirected, and if so,
# what was the final redirect URL?
puts "Was Redirected: [CkHttp_get_WasRedirected $http]"
puts "Final Redirect URL: [CkHttp_finalRedirectUrl $http]"

# Output:

# Response status code: 200
# { "hello": "world" }
# Was Redirected: True
# Final Redirect URL: https://chilkatsoft.com/helloWorld.json

# -----------------------------------------------
# Here are the contents of the sessionLog.txt

# ---- Sending Sat, 30 Aug 2025 11:41:37 GMT ----
# GET /redirect-to?url=https%3A%2F%2Fchilkatsoft.com%2FhelloWorld.json&status_code=302 HTTP/1.1
# Host: httpbin.org
# Accept: */*
# Accept-Encoding: gzip
# 
# 
# ---- Received Sat, 30 Aug 2025 11:41:37 GMT ----
# HTTP/1.1 302 FOUND
# Date: Sat, 30 Aug 2025 11:41:38 GMT
# Content-Type: text/html; charset=utf-8
# Content-Length: 0
# Connection: keep-alive
# Server: gunicorn/19.9.0
# Location: https://chilkatsoft.com/helloWorld.json
# Access-Control-Allow-Origin: *
# Access-Control-Allow-Credentials: true
# 
# 
# ---- Sending Sat, 30 Aug 2025 11:41:38 GMT ----
# GET /helloWorld.json HTTP/1.1
# Host: chilkatsoft.com
# Accept: */*
# Accept-Encoding: gzip
# 
# 
# ---- Received Sat, 30 Aug 2025 11:41:38 GMT ----
# HTTP/1.1 200 OK
# Content-Type: application/json
# Last-Modified: Sun, 20 Aug 2023 11:36:27 GMT
# Accept-Ranges: bytes
# ETag: "34c27f8e5ad3d91:0"
# Server: Microsoft-IIS/10.0
# X-Powered-By: ASP.NET
# Date: Sat, 30 Aug 2025 11:41:38 GMT
# Content-Length: 22
# 
# { "hello": "world" }

delete_CkHttp $http