(Tcl) Paynow.pl -- Make a Payment Request

Make a payment request POST with prepared message on Paynow payment request endpoint.

For more information, see https://docs.paynow.pl/#section/Payments/Make-a-payment

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

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]

# Implements the following CURL command:

# curl --request POST 'https://api.sandbox.paynow.pl/v1/payments' \
# -H 'Content-Type: application/json' \
# -H 'Api-Key: c12c386b-650b-43db-9430-d84fc05d9433' \
# -H 'Signature: aYPCytCoc+/wFgqHZJjgBCi20omXTn0yzm9LysJgnFo=' \
# -H 'Idempotency-Key: 59c6dd26-f905-487b-96c9-fd1d2bd76885' \
# --data-raw '{
#     "amount": 45671,
#     "externalId": "234567898654",
#     "description": "Test transaction",
#     "buyer": {
#         "email": "jan.kowalski@melements.pl"
#     }
# }'

# Use the following online tool to generate HTTP code from a CURL command
# Convert a cURL Command to HTTP Source Code

# Use this online tool to generate code from sample JSON:
# Generate Code to Create JSON

# The following JSON is sent in the request body.

# {
#   "amount": 45671,
#   "externalId": "234567898654",
#   "description": "Test transaction",
#   "buyer": {
#     "email": "jan.kowalski@melements.pl"
#   }
# }

set json [new_CkJsonObject]

CkJsonObject_UpdateInt $json "amount" 45671
CkJsonObject_UpdateString $json "externalId" "234567898654"
CkJsonObject_UpdateString $json "description" "Test transaction"
CkJsonObject_UpdateString $json "buyer.email" "jan.kowalski@melements.pl"

set myApiAccessKey "c12c386b-650b-43db-9430-d84fc05d9433"
set mySigCalcKey "b758f20d-ba92-44fa-acca-f57e99787b9d"

# Calculate the Signature header.
set crypt [new_CkCrypt2]

CkCrypt2_put_MacAlgorithm $crypt "hmac"
CkCrypt2_put_EncodingMode $crypt "base64"
CkCrypt2_SetMacKeyString $crypt $mySigCalcKey
CkCrypt2_put_HashAlgorithm $crypt "SHA-256"
set messageBody [CkJsonObject_emit $json]
set signature [CkCrypt2_macStringENC $crypt $messageBody]

CkHttp_SetRequestHeader $http "Idempotency-Key" [CkCrypt2_generateUuid $crypt]
CkHttp_SetRequestHeader $http "Api-Key" $myApiAccessKey
CkHttp_SetRequestHeader $http "Signature" $signature
CkHttp_SetRequestHeader $http "Content-Type" "application/json"
CkHttp_put_Accept $http "application/json"

# resp is a CkHttpResponse
set resp [CkHttp_PostJson3 $http "https://api.sandbox.paynow.pl/v1/payments" "application/json" $json]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $json
    delete_CkCrypt2 $crypt
    exit
}

puts "Response body:"
puts [CkHttpResponse_bodyStr $resp]

# Sample response:
# {
#   "redirectUrl": "https://paywall.sandbox.paynow.pl/NOA0-YJ9-Y1P-29V?token=eyJraWQiOiJhMD ... L60wk",
#   "paymentId": "NOA0-YJ9-Y1P-29V",
#   "status": "NEW"
# }

set jsonResp [new_CkJsonObject]

CkJsonObject_Load $jsonResp [CkHttpResponse_bodyStr $resp]
set redirectUrl [CkJsonObject_stringOf $json "redirectUrl"]
set paymentId [CkJsonObject_stringOf $json "paymentId"]
set status [CkJsonObject_stringOf $json "status"]

delete_CkHttp $http
delete_CkJsonObject $json
delete_CkCrypt2 $crypt
delete_CkJsonObject $jsonResp