(Visual FoxPro) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loDt
LOCAL lnBLocalTime
LOCAL lcUnixTimeStr
LOCAL lcApiKey
LOCAL lcSecret
LOCAL loSb
LOCAL loCrypt
LOCAL lcSignature
LOCAL loHttp
LOCAL lcJsonResponse

* 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.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CkDateTime')
loDt = CreateObject('Chilkat.CkDateTime')
loDt.SetFromCurrentSystemTime()
* Get the UNIX time string in the GMT timezone.
lnBLocalTime = 0
lcUnixTimeStr = loDt.GetAsUnixTimeStr(lnBLocalTime)
? lcUnixTimeStr

* Use your own API key and secret.  (These are not valid values)
lcApiKey = "227b20a2cb705e45f3b0a0944672dc07"
lcSecret = "54dc7ba9e2"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSb = CreateObject('Chilkat.StringBuilder')
loSb.Append(lcApiKey)
loSb.Append(lcSecret)
loSb.Append(lcUnixTimeStr)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')
loCrypt.HashAlgorithm = "sha256"
loCrypt.EncodingMode = "hexlower"
lcSignature = loCrypt.HashStringENC(loSb.GetAsString())

? lcSignature

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

loHttp.SetRequestHeader("Accept","application/json")
loHttp.SetRequestHeader("Api-key",lcApiKey)
loHttp.SetRequestHeader("X-Signature",lcSignature)

lcJsonResponse = loHttp.QuickGetStr("https://api.test.hotelbeds.com/hotel-api/1.0/status")
? lcJsonResponse
? STR(loHttp.LastStatus)

* Sample output:  

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

RELEASE loDt
RELEASE loSb
RELEASE loCrypt
RELEASE loHttp