(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"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.UpdateString("reportDescription.reportSuiteID","rsid")
loJson.UpdateString("reportDescription.dateGranularity","hour")

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CkDateTime')
loDt = CreateObject('Chilkat.CkDateTime')
loDt.SetFromCurrentSystemTime()
lcTimecreated = loDt.GetAsTimestamp(0)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Prng')
loPrng = CreateObject('Chilkat.Prng')
lcNonce = loPrng.GenRandom(12,"hex")

lcSecret = "SECRET"

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

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbNonce = CreateObject('Chilkat.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