(Tcl) HTTP HEAD Request

Sends an HTTP HEAD request and gets the response.

Note: The response to an HTTP HEAD request is always just the response header. The reponse body is always 0 length (thus the reason it's called a "HEAD" request..)

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

# If the URL uses "https://", then the connection will be TLS.
# Otherwise it will be TCP.
# resp is a CkHttpResponse
set resp [CkHttp_GetHead $http "https://example-code.com/"]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    # A failure is when we don't get any response.  It could be a timeout, an inability to connect, etc.
    # For example, a "404 Not Found" response is still a response, and thus deemed success in terms of the API..
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

# Examine the response.
puts "Status Code = [CkHttpResponse_get_StatusCode $resp]"
puts "Status Line = [CkHttpResponse_statusLine $resp]"
puts "Status Text = [CkHttpResponse_statusText $resp]"
puts "Full Response Header:"
puts [CkHttpResponse_header $resp]
puts "----"
set numHeaderFields [CkHttpResponse_get_NumHeaderFields $resp]
puts "Num Header Fields: $numHeaderFields"

for {set i 0} {$i <= [expr $numHeaderFields - 1]} {incr i} {
    puts [CkHttpResponse_getHeaderName $resp $i]: [CkHttpResponse_getHeaderValue $resp $i]
}

delete_CkHttpResponse $resp


delete_CkHttp $http