(Tcl) Persist Cookies to XML Files and Auto Re-Send

Demonstrates how to persist incoming cookies to XML files and automatically re-send in subsesquent HTTP requests.

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]

# To save cookies to XML files (per domain) in a specific
# directory, set the CookieDir property (the directory must
# already exist and be writeable by the caller).  Also,
# set the SaveCookies property:
CkHttp_put_CookieDir $http "/cookieDir"
CkHttp_put_SaveCookies $http 1

# Any methods that do a GET, POST, etc. will save cookies
# to the CookieDir:

set html [CkHttp_quickGetStr $http "https://www.paypal.com/"]

# After running this code, a "paypal_com.xml" file should appear
# in /cookieDir.

# It's content will look something like this:

# <cookies>
#     <cookie key=".paypal.com,/" v="0" secure="yes">
#         <navcmd>_home-general</navcmd>
#         <HttpOnly />
#         <cwrClyrK4LoCV1fydGbAxiNL6iG>9cz...</cwrClyrK4LoCV1fydGbAxiNL6iG>
#     </cookie>
# </cookies>

# To cause cached cookies to be sent with 
# subsequent HTTP requests, set the SendCookies
# property = 1.
CkHttp_put_SendCookies $http 1

# If another HTTP request is sent, the cookies should
# be added:
set html [CkHttp_quickGetStr $http "https://www.paypal.com/"]

# Check the LastHeader property to see the MIME header
# of the last HTTP request sent.
# The "Cookie" header field should be present.
puts "--- LastHeader ---"
puts [CkHttp_lastHeader $http]

delete_CkHttp $http