(Tcl) CardConnect Validate Merchant-Level Credentials
To test and validate merchant-level credentials, you can make a PUT request, including the merchant ID in the body of the request, to the base URL. The Gateway verifies that the MID matches the credentials provided in the header. Note: This example requires Chilkat v11.0.0 or greater.
load ./chilkat.dll
set success 0
# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
set http [new_CkHttp]
CkHttp_put_BasicAuth $http 1
CkHttp_put_Login $http "API_USERNAME"
CkHttp_put_Password $http "API_PASSWORD"
set json [new_CkJsonObject]
set success [CkJsonObject_UpdateString $json "merchid" "MERCHANT_ID"]
set url "https://<site>.cardconnect.com:<port>/cardconnect/rest/"
set resp [new_CkHttpResponse]
set success [CkHttp_HttpStr $http "PUT" $url [CkJsonObject_emit $json] "utf-8" "application/json" $resp]
if {$success == 0} then {
puts [CkHttp_lastErrorText $http]
delete_CkHttp $http
delete_CkJsonObject $json
delete_CkHttpResponse $resp
exit
}
# If we get a 200 response status and an HTML response saying "CardConnect REST Servlet", then our credentials are correct.
puts "response status code = [CkHttpResponse_get_StatusCode $resp]"
puts "response string:"
puts [CkHttpResponse_bodyStr $resp]
# Sample output:
# response status code = 200
# response string:
# <html lang="en"><body><h1>CardConnect REST Servlet</h1></body></html
delete_CkHttp $http
delete_CkJsonObject $json
delete_CkHttpResponse $resp
|
