(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.
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]
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 responseStr [CkHttp_putText $http $url [CkJsonObject_emit $json] "utf-8" "application/json" 0 0]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
puts [CkHttp_lastErrorText $http]
delete_CkHttp $http
delete_CkJsonObject $json
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 = [CkHttp_get_LastStatus $http]"
puts "response string:"
puts "$responseStr"
# 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
|
