(Tcl) Example: Http.SetCookieXml method

Demonstrates the SetCookieXml method.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set success 0

set http [new_CkHttp]

CkHttp_put_SaveCookies $http 1
CkHttp_put_CookieDir $http "c:/temp/cookie_cache"
# For this initial request, we are not sending cookies.
# We are starting a new (cookie) session and saving the cookies we receive.
CkHttp_put_SendCookies $http 0

# Do a request that establishes and saves cookies in files in the cookie directory.
set html [CkHttp_quickGetStr $http "https://google.com/"]

# Examine the LastResponseHeader to see the cookies that were received:
puts [CkHttp_lastResponseHeader $http]
puts "----------------------------------"

# We can see the following Set-Cookie response header fields:

# Set-Cookie: AEC=AVh_V2h-fsL2-****; expires=Mon, 23-Feb-2026 19:15:10 GMT; path=/; domain=.google.com; Secure; HttpOnly; SameSite=lax
# Set-Cookie: NID=525=XC_cL****Hn7-WONX; expires=Thu, 26-Feb-2026 19:15:10 GMT; path=/; domain=.google.com; HttpOnly

# The following file was created:  c:/temp/cookie_cache/google_com.xml

# Examine the cookies received in the above request.
puts [CkHttp_getCookieXml $http google.com]
puts "----------------------------------"

# Sample output.

# <?xml version="1.0" encoding="utf-8"?>
# <cookies>
#     <cookie key=".google.com,/,AEC" v="0" expire="Mon, 23-Feb-2026 19:05:20 GMT" secure="yes">
#         <AEC>AVh_V2gL8QzTdFGYq6_rS6ktBfqm8WNG3pzHxS2nTZD5i23dRBau2c4ZRA</AEC>
#     </cookie>
#     <cookie key=".google.com,/,NID" v="0" expire="Thu, 26-Feb-2026 19:05:20 GMT">
#         <NID>525=SuLcnaSkFqF4Jz_jLEq4kt_f3MY2Xro1VDoVzLKvp8XHcW2UHuLKJSr55iDeW0NiRIPXoAwJWF1-YNl29unX2xfhEWsS5BhbuK_2DXdD9cTOmn5BSENMhZasxeJ71mEP2PQRMXBndqnl41DhblC2jjdac_so4TESIll1B0GCVe9wRFjqI6DTZItRCj61BHmr1_RAQi0_jrh_ihn6KYtIFEY7</NID>
#     </cookie>
# </cookies>

# -------------------------------------------------------------------------------------------
# Let's say we want to continue with the session at some later time with a new HTTP object.
# One way to do it is to simply set the same cookie properties:
set httpB [new_CkHttp]

CkHttp_put_SaveCookies $httpB 1
CkHttp_put_CookieDir $httpB "c:/temp/cookie_cache"
CkHttp_put_SendCookies $httpB 1

# The cookies from the cache are sent.
set html [CkHttp_quickGetStr $httpB "https://google.com/"]

# Examine the LastHeader to see the contents of the Cookie header field.
puts [CkHttp_lastHeader $httpB]
puts "----------------------------------"

# -------------------------------------------------------------------------------------------
# Another way to do it is to explicitly load the cookies from XML
# and set the cookies for the particular domain.

set httpC [new_CkHttp]

CkHttp_put_SaveCookies $httpC 1
# Do not save cookies to files, just keep them in memory.
CkHttp_put_CookieDir $httpC "memory"
CkHttp_put_SendCookies $httpC 1

set sbCookiesXml [new_CkStringBuilder]

set success [CkStringBuilder_LoadFile $sbCookiesXml "c:/temp/cookie_cache/google_com.xml" "utf-8"]
if {$success == 0} then {
    puts [CkStringBuilder_lastErrorText $sbCookiesXml]
    delete_CkHttp $http
    delete_CkHttp $httpB
    delete_CkHttp $httpC
    delete_CkStringBuilder $sbCookiesXml
    exit
}

set success [CkHttp_SetCookieXml $httpC "google.com" [CkStringBuilder_getAsString $sbCookiesXml]]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $httpC]
    delete_CkHttp $http
    delete_CkHttp $httpB
    delete_CkHttp $httpC
    delete_CkStringBuilder $sbCookiesXml
    exit
}

set html [CkHttp_quickGetStr $httpC "https://google.com/"]

# Examine the LastHeader to see the contents of the Cookie header field.
puts [CkHttp_lastHeader $httpC]

delete_CkHttp $http
delete_CkHttp $httpB
delete_CkHttp $httpC
delete_CkStringBuilder $sbCookiesXml