(Perl) hotelbeds.com REST API Authentication

Demonstrates how to calculate the X-Signature header and add to requests sent to api.test.hotelbeds.com.

For more information, see https://developer.hotelbeds.com/documentation/getting-started/

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

# This example duplicates the following CURL statement provided in the hotelbeds.com "Getting Started"
# developer documentation:

# #!/bin/bash 
# apiKey="yourApiKey"
# secret="yourSecret"
# curl -i \
#   -X GET \
#   -H 'Accept:application/json' \
#   -H 'Api-key:'$apiKey'' \
#   -H 'X-Signature:'$(echo -n ${apiKey}${secret}$(date +%s)|sha256sum|awk '{ print $1}')'' \
#   https://api.test.hotelbeds.com/hotel-api/1.0/status

# The "date + %s" command emits a UNIX date/time number such as 1605548842
# We need to concatenate the apiKey, secret, and current date/time in UNIX (numeric) time format.
$dt = chilkat::CkDateTime->new();
$dt->SetFromCurrentSystemTime();
# Get the UNIX time string in the GMT timezone.
$bLocalTime = 0;
$unixTimeStr = $dt->getAsUnixTimeStr($bLocalTime);
print $unixTimeStr . "\r\n";

# Use your own API key and secret.  (These are not valid values)
$apiKey = "227b20a2cb705e45f3b0a0944672dc07";
$secret = "54dc7ba9e2";

$sb = chilkat::CkStringBuilder->new();
$sb->Append($apiKey);
$sb->Append($secret);
$sb->Append($unixTimeStr);

$crypt = chilkat::CkCrypt2->new();
$crypt->put_HashAlgorithm("sha256");
$crypt->put_EncodingMode("hexlower");
$signature = $crypt->hashStringENC($sb->getAsString());

print $signature . "\r\n";

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

$http->SetRequestHeader("Accept","application/json");
$http->SetRequestHeader("Api-key",$apiKey);
$http->SetRequestHeader("X-Signature",$signature);

$jsonResponse = $http->quickGetStr("https://api.test.hotelbeds.com/hotel-api/1.0/status");
print $jsonResponse . "\r\n";
print $http->get_LastStatus() . "\r\n";

# Sample output:  

# 1605549542
# 2146aefb36e7331b3b29aafd7638398ca22e689573224f1a71274d60bd201ec2
# {"auditData":{"timestamp":"2020-11-16 18:59:02.430"},"status":"OK"}
# 200