(Perl) Adobe Analytics Reporting API (1.4)

Demonstrates a simple POST of JSON to the Adobe Analytics Reporting API (v1.4)

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

use chilkat();

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

#  In this example, replace "rsid" with your report suite id, and update the URL to use the correct endpoint
$url = "https://api.omniture.com/admin/1.4/rest/?method=Report.Queue";

$json = chilkat::CkJsonObject->new();
$json->UpdateString("reportDescription.reportSuiteID","rsid");
$json->UpdateString("reportDescription.dateGranularity","hour");

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

$dt = chilkat::CkDateTime->new();
$dt->SetFromCurrentSystemTime();
$timecreated = $dt->getAsTimestamp(0);

$prng = chilkat::CkPrng->new();
$nonce = $prng->genRandom(12,"hex");

$secret = "SECRET";

$sb = chilkat::CkStringBuilder->new();
$sb->Append($nonce);
$sb->Append($timecreated);
$sb->Append($secret);

$crypt = chilkat::CkCrypt2->new();
$crypt->put_HashAlgorithm("sha1");
$crypt->put_EncodingMode("base64");
$digest = $crypt->hashStringENC($sb->getAsString());

$sbNonce = chilkat::CkStringBuilder->new();
$sbNonce->Append($nonce);
$sbNonce->Encode("base64");

$sb->Clear();
$sb->Append("UsernameToken Username=\"USERNAME\", PasswordDigest=\"");
$sb->Append($digest);
$sb->Append("\", Nonce=\"");
$sb->Append($sbNonce->getAsString());
$sb->Append("\", Created=\"");
$sb->Append($timecreated);
$sb->Append("\"");

print $sb->getAsString() . "\r\n";

$http->SetRequestHeader("X-WSSE",$sb->getAsString());

# resp is a HttpResponse
$resp = $http->PostJson2($url,"text/json",$json->emit());
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "Http Status code: " . $resp->get_StatusCode() . "\r\n";
print "JSON response:" . "\r\n";
print $resp->bodyStr() . "\r\n";