(Perl) 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 Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$http = chilkat::CkHttp->new();

# 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"
#   }
# }

$json = chilkat::CkJsonObject->new();
$json->UpdateInt("amount",45671);
$json->UpdateString("externalId","234567898654");
$json->UpdateString("description","Test transaction");
$json->UpdateString("buyer.email",'jan.kowalski@melements.pl');

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

# Calculate the Signature header.
$crypt = chilkat::CkCrypt2->new();
$crypt->put_MacAlgorithm("hmac");
$crypt->put_EncodingMode("base64");
$crypt->SetMacKeyString($mySigCalcKey);
$crypt->put_HashAlgorithm("SHA-256");
$messageBody = $json->emit();
$signature = $crypt->macStringENC($messageBody);

$http->SetRequestHeader("Idempotency-Key",$crypt->generateUuid());
$http->SetRequestHeader("Api-Key",$myApiAccessKey);
$http->SetRequestHeader("Signature",$signature);
$http->SetRequestHeader("Content-Type","application/json");
$http->put_Accept("application/json");

# resp is a HttpResponse
$resp = $http->PostJson3("https://api.sandbox.paynow.pl/v1/payments","application/json",$json);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "Response body:" . "\r\n";
print $resp->bodyStr() . "\r\n";

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

$jsonResp = chilkat::CkJsonObject->new();
$jsonResp->Load($resp->bodyStr());
$redirectUrl = $json->stringOf("redirectUrl");
$paymentId = $json->stringOf("paymentId");
$status = $json->stringOf("status");