(Perl) ChartURL - Create a Signed URL

Demonstrates how to create a signed URL for ChartURL.

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.

$crypt = chilkat::CkCrypt2->new();

# Example key: "dek-d7a46236eda961a6c3c18ffcc6b077ba87d27e9ae85f7842c6d427c265dd5f69d5131308d93332353d4a55a4b1160fcf516515a4a9f0aa50fbf2d7a2e7d0f1c5"
$key = "charturl-sign-encrypt-key";
# Example token: "dt-RwYN"
$token = "charturl-token";

$slug = "weekly-activity";
$data = "{ \"options\": {\"data\": {\"columns\": [[\"This Week\",10,13],[\"Last Week\",9,5]]}}}";

$crypt->put_HashAlgorithm("SHA256");
$crypt->put_MacAlgorithm("HMAC");
$crypt->SetMacKeyString($key);
$crypt->put_EncodingMode("base64");

$json = chilkat::CkJsonObject->new();
$json->Load($data);
print "json = " . $json->emit() . "\r\n";

$sig = $crypt->macStringENC($json->emit());

$sbUrl = chilkat::CkStringBuilder->new();
$sbUrl->Append("https://charturl.com/i/");
$sbUrl->Append($token);
$sbUrl->Append("/");
$sbUrl->Append($slug);
$sbUrl->Append("?d=");
$sbUrl->Append($crypt->encodeString($json->emit(),"utf-8","url"));
$sbUrl->Append("&s=");
$sbUrl->Append($crypt->encodeString($sig,"utf-8","url"));

print "Signed URL: " . $sbUrl->getAsString() . "\r\n";