(Visual FoxPro) Adobe Analytics Reporting API (1.4)

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL lcUrl
LOCAL loJson
LOCAL loHttp
LOCAL loDt
LOCAL lcTimecreated
LOCAL loPrng
LOCAL lcNonce
LOCAL lcSecret
LOCAL loSb
LOCAL loCrypt
LOCAL lcDigest
LOCAL loSbNonce
LOCAL loResp

*  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
lcUrl = "https://api.omniture.com/admin/1.4/rest/?method=Report.Queue"

loJson = CreateObject('Chilkat_9_5_0.JsonObject')
loJson.UpdateString("reportDescription.reportSuiteID","rsid")
loJson.UpdateString("reportDescription.dateGranularity","hour")

loHttp = CreateObject('Chilkat_9_5_0.Http')

loDt = CreateObject('Chilkat_9_5_0.CkDateTime')
loDt.SetFromCurrentSystemTime()
lcTimecreated = loDt.GetAsTimestamp(0)

loPrng = CreateObject('Chilkat_9_5_0.Prng')
lcNonce = loPrng.GenRandom(12,"hex")

lcSecret = "SECRET"

loSb = CreateObject('Chilkat_9_5_0.StringBuilder')
loSb.Append(lcNonce)
loSb.Append(lcTimecreated)
loSb.Append(lcSecret)

loCrypt = CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt.HashAlgorithm = "sha1"
loCrypt.EncodingMode = "base64"
lcDigest = loCrypt.HashStringENC(loSb.GetAsString())

loSbNonce = CreateObject('Chilkat_9_5_0.StringBuilder')
loSbNonce.Append(lcNonce)
loSbNonce.Encode("base64")

loSb.Clear()
loSb.Append('UsernameToken Username="USERNAME", PasswordDigest="')
loSb.Append(lcDigest)
loSb.Append('", Nonce="')
loSb.Append(loSbNonce.GetAsString())
loSb.Append('", Created="')
loSb.Append(lcTimecreated)
loSb.Append('"')

? loSb.GetAsString()

loHttp.SetRequestHeader("X-WSSE",loSb.GetAsString())

loResp = loHttp.PostJson2(lcUrl,"text/json",loJson.Emit())
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loJson
    RELEASE loHttp
    RELEASE loDt
    RELEASE loPrng
    RELEASE loSb
    RELEASE loCrypt
    RELEASE loSbNonce
    CANCEL
ENDIF

? "Http Status code: " + STR(loResp.StatusCode)
? "JSON response:"
? loResp.BodyStr

RELEASE loResp

RELEASE loJson
RELEASE loHttp
RELEASE loDt
RELEASE loPrng
RELEASE loSb
RELEASE loCrypt
RELEASE loSbNonce