Tcl
Tcl
HTTP multipart-mixed POST (for a UPS Package Level Detail PLD Request)
See more HTTP Examples
Demonstrates how to create a POST for a UPS Package Level Detail PLD Request. The request must be a multipart-mixed request having two sub-parts. The first is a application/x-www-form-urlencoded with name=value URL encoded pairs. The second is a application/x-ups-binary containing a UPS PLD request.The HTTP request created by this example looks like this:
POST /hapld/tos/kdwhapltos HTTP/1.1 Content-Type: multipart/mixed; boundary=------------050801040202040701030308 Host: domain Content-Length: 658 --------------050801040202040701030308 Content-type: application/x-www-form-urlencoded Content-length: 134 AppVersion=1.0&AcceptUPSLicenseAgreement=YES&VersionNumber=V4R1&UserId=myUser&Password=myPassword&ResponseType=application/x-ups-pld --------------050801040202040701030308 Content-type: application/x-ups-binary Content-length: 721 020094 2014041500000594196532600 000000001*AAV0Y203 DE 5941965326000001*BA1ZV0Y2036650001829 00001+0000000000000012 +0000000000000000KGS07COL10 3CMEUR000001*CA18TC239 AOK Bahnhofstr. Dresden 01099 DE *EAEVS+000000000000104200EUR*PA1ZV0Y2036650001829 02+0000012 +0000000+00000000+00000000+00000000*SA000005 --------------050801040202040701030308--The HTTP response (if successful) is multipart MIME as shown below. This example will extract the response content using the Chilkat MIME API.
Content-type: text/html Content-length: 138 <HTML> <HEAD> <TITLE>UPS Internet Software</TITLE> </HEAD> <BODY> <P>UPS Internet Software, Copyright UPS 1998</P> </BODY> </HTML> --BOUNDARY Content-type: application/x-ups-psmpld Content-length: 104 UPSOnLine%1.0%0000%0000Successful completion - No errors found. --BOUNDARY Content-type: application/x-ups-pld Content-length: 800 000200000787300000640 KDGPLCR1 United Parcel Service 09/06/16 Page:1 Test PLD Control Report 05:44 PM ------------------------------------------------------------------------------- Pickup Date:20030813 Sequence#:000005900000002 #of Segments:000000000000000005 Shipper#:0TEST0 Book/Page#:5900000002 Shipments:000001 Packages:0000000001 10000012900000000Successful completion - No errors found. !!! Test Upload !!! File Uploaded: n/a --BOUNDARY--
Chilkat Tcl Downloads
load ./chilkat.dll
set success 0
# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
set req [new_CkHttpRequest]
# The ContentType, HttpVerb, and Path properties should
# always be explicitly set.
CkHttpRequest_put_HttpVerb $req "POST"
CkHttpRequest_put_Path $req "/hapld/tos/kdwhapltos"
CkHttpRequest_put_ContentType $req "multipart/mixed"
# The 1st body of the multipart/mixed HTTP request will have a content-type of application/x-www-form-urlencoded
# It contains URL encoded parameters.
# We'll use a temporary HTTP request object solely for the purpose of generating our URL encoded parameter string.
set paramEncoder [new_CkHttpRequest]
CkHttpRequest_AddParam $paramEncoder "AppVersion" "1.0"
CkHttpRequest_AddParam $paramEncoder "AcceptUPSLicenseAgreement" "YES"
CkHttpRequest_AddParam $paramEncoder "VersionNumber" "V4R1"
CkHttpRequest_AddParam $paramEncoder "UserId" "UPS_USERID"
CkHttpRequest_AddParam $paramEncoder "Password" "UPS_PASSWORD"
set urlEncodedParams [CkHttpRequest_getUrlEncodedParams $paramEncoder]
# The UPS server wants all params to be URL encoded except for the ResponseType param.
# Therefore, we'll add ResponseType unencoded at the end, like this:
set sbParams [new_CkStringBuilder]
CkStringBuilder_Append $sbParams $urlEncodedParams
CkStringBuilder_Append $sbParams "&ResponseType=application/x-ups-pld"
# Also, it is very important to include a CRLF at the end. (This is to satisfy undocumented details
# required by the UPS PLD server.)
CkStringBuilder_Append $sbParams "\r\n"
# Add the params as the 1st sub-part of the multipart/mixed request
CkHttpRequest_AddStringForUpload2 $req "" "" [CkStringBuilder_getAsString $sbParams] "" "application/x-www-form-urlencoded"
# Now for the 2nd part (using some junk data found on the developerkitcommunity.ups.com site.
# Notice the CRLF at the end of the string. This is important.
set pld "020094 2003081300000590000000200 000000001*AA0TEST0 DE 5900000002000001*BA1Z0TEST06800000018 00001+0000000000000010 +0000000000000000KGS11PRE10 3CMEUR000001*CA18 United Parcel Service Goerlitzer Str 1 Neuss 41460 DE *PA1Z0TEST06800000018 02+0000010 +0000000+00000000+00000000+00000000*SA000004\r\n"
CkHttpRequest_AddStringForUpload2 $req "" "" $pld "" "application/x-ups-binary"
# The UPS PLD server requires Content-Length headers within the MIME sub-parts of the request.
# If a Content-Length sub-header is added (with an arbitrary value, such as 0),
# then Chilkat will compute the actual sub-part size and replace the value when the request is sent.
CkHttpRequest_AddSubHeader $req 0 "Content-Length" "0"
CkHttpRequest_AddSubHeader $req 1 "Content-Length" "0"
# A few important comments about the HTTP request that is generated:
#
# 1) Chilkat automatically generates a random boundary string. In 99.999% of cases, this should
# be sufficient.
# 2) The top-level Content-Length header is automatically generated based on the actual length of the MIME message
# that follows the intial (topmost) MIME header.
# 3) The HOST header will automatically get filled in with the actual domain when HttpSReq
# method is called.
# Now send the request...
set http [new_CkHttp]
# If desired (for debugging), provide a flie path for a session log.
# The session log can be sent to support@chilkatsoft.com if the PLD request fails.
CkHttp_put_SessionLogFilename $http "c:/aaworkarea/ups_pld/sessionLog.txt"
# Send the PLD request over TLS..
set resp [new_CkHttpResponse]
set success [CkHttp_HttpSReq $http "www.pld-certify.ups.com" 443 1 $req $resp]
if {$success == 0} then {
puts [CkHttp_lastErrorText $http]
delete_CkHttpRequest $req
delete_CkHttpRequest $paramEncoder
delete_CkStringBuilder $sbParams
delete_CkHttp $http
delete_CkHttpResponse $resp
exit
}
# Load the response MIME.
set mime [new_CkMime]
CkMime_LoadMime $mime [CkHttpResponse_fullMime $resp]
# If it does not have 3 sub-parts, then something is amiss...
if {[CkMime_get_NumParts $mime] != 3} then {
puts "Unexpected number of MIME parts."
puts [CkHttpResponse_fullMime $resp]
delete_CkHttpRequest $req
delete_CkHttpRequest $paramEncoder
delete_CkStringBuilder $sbParams
delete_CkHttp $http
delete_CkHttpResponse $resp
delete_CkMime $mime
exit
}
# Examine each response part.
set part0 [new_CkMime]
set success [CkMime_PartAt $mime 0 $part0]
puts "---- text/html part ----"
puts [CkMime_getBodyDecoded $part0]
set part1 [new_CkMime]
set success [CkMime_PartAt $mime 1 $part1]
puts "---- application/x-ups-psmpld part ----"
puts [CkMime_getBodyDecoded $part1]
set part2 [new_CkMime]
set success [CkMime_PartAt $mime 2 $part2]
puts "---- application/x-ups-pld part ----"
puts [CkMime_getBodyDecoded $part2]
delete_CkHttpRequest $req
delete_CkHttpRequest $paramEncoder
delete_CkStringBuilder $sbParams
delete_CkHttp $http
delete_CkHttpResponse $resp
delete_CkMime $mime
delete_CkMime $part0
delete_CkMime $part1
delete_CkMime $part2