Perl
Perl
Paynow.pl -- Make a Payment Request
See more Paynow.pl Examples
Make a payment request POST with prepared message on Paynow payment request endpoint.Chilkat Perl Downloads
use chilkat();
$success = 0;
# 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 = chilkat::CkHttpResponse->new();
$success = $http->HttpJson("POST","https://api.sandbox.paynow.pl/v1/payments",$json,"application/json",$resp);
if ($success == 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");