(Tcl) HTTP Verb - How to use any Verb (GET, PUT, POST, DELETE, PROPFIND, etc.)

The HttpVerb property may be set to anything. Typically, it is set to the common/standard HTTP verbs such as GET, POST, PUT, DELETE, etc. It can be set to anything, including custom verbs that only have meaning to your particular server-side application.

This example demonstrates how to compose an HTTP request using the PROPFIND verb, which is something one might use with a WebDAV request.

This example composes the following HTTP request:

   PROPFIND  /container/ HTTP/1.1
   Host: www.foo.bar
   Depth: 1
   Content-Type: text/xml; charset="utf-8"
   Content-Length: xxxx

   <?xml version="1.0" encoding="utf-8" ?>
   <D:propfind xmlns:D="DAV:">
     <D:allprop/>
   </D:propfind>

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set req [new_CkHttpRequest]

# The ContentType, HttpVerb, and Path properties should
# always be explicitly set.
CkHttpRequest_put_HttpVerb $req "PROPFIND"
CkHttpRequest_put_Path $req "/container/"
CkHttpRequest_put_ContentType $req "text/xml"
CkHttpRequest_put_Charset $req "utf-8"
CkHttpRequest_put_SendCharset $req 1

CkHttpRequest_AddHeader $req "Depth" "1"

set xml [new_CkXml]

CkXml_put_Tag $xml "propfind"
CkXml_AddAttribute $xml "xmlns:D" "DAV:"
CkXml_NewChild2 $xml "allprop" ""

CkHttpRequest_LoadBodyFromString $req [CkXml_getXml $xml] "utf-8"

# View the request that would be sent if SynchronousRequest was called:
set requestMime [CkHttpRequest_generateRequestText $req]
puts "$requestMime"

# A few important comments about the HTTP request that is generated:
# 
# 1) The Content-Length header is automatically generated based on the actual length of the MIME message
#    that follows the intial (topmost) MIME header.
# 2) The HOST header will automatically get filled in with the actual domain when SynchronousRequest
#    is called

delete_CkHttpRequest $req
delete_CkXml $xml