Tcl
Tcl
hotelbeds.com REST API Authentication
See more HTTP Misc Examples
Demonstrates how to calculate the X-Signature header and add to requests sent to api.test.hotelbeds.com.Chilkat Tcl Downloads
load ./chilkat.dll
set success 0
# 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.
set dt [new_CkDateTime]
CkDateTime_SetFromCurrentSystemTime $dt
# Get the UNIX time string in the GMT timezone.
set bLocalTime 0
set unixTimeStr [CkDateTime_getAsUnixTimeStr $dt $bLocalTime]
puts "$unixTimeStr"
# Use your own API key and secret. (These are not valid values)
set apiKey "227b20a2cb705e45f3b0a0944672dc07"
set secret "54dc7ba9e2"
set sb [new_CkStringBuilder]
CkStringBuilder_Append $sb $apiKey
CkStringBuilder_Append $sb $secret
CkStringBuilder_Append $sb $unixTimeStr
set crypt [new_CkCrypt2]
CkCrypt2_put_HashAlgorithm $crypt "sha256"
CkCrypt2_put_EncodingMode $crypt "hexlower"
set signature [CkCrypt2_hashStringENC $crypt [CkStringBuilder_getAsString $sb]]
puts "$signature"
set http [new_CkHttp]
CkHttp_SetRequestHeader $http "Accept" "application/json"
CkHttp_SetRequestHeader $http "Api-key" $apiKey
CkHttp_SetRequestHeader $http "X-Signature" $signature
set jsonResponse [CkHttp_quickGetStr $http "https://api.test.hotelbeds.com/hotel-api/1.0/status"]
puts "$jsonResponse"
puts [CkHttp_get_LastStatus $http]
# Sample output:
# 1605549542
# 2146aefb36e7331b3b29aafd7638398ca22e689573224f1a71274d60bd201ec2
# {"auditData":{"timestamp":"2020-11-16 18:59:02.430"},"status":"OK"}
# 200
delete_CkDateTime $dt
delete_CkStringBuilder $sb
delete_CkCrypt2 $crypt
delete_CkHttp $http