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.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


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