Xbase++

Google Search Console API - List

See more Google Search Console Examples

Lists the user's Search Console sites. Xbase++

LOCAL nSuccess
LOCAL oJsonToken
LOCAL oHttp
LOCAL cResponseStr
LOCAL nStatusCode
LOCAL oJson
LOCAL cSiteUrl
LOCAL cPermissionLevel
LOCAL i
LOCAL nCount_i

nSuccess := 0

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

//  This example uses a previously obtained access token having permission for the 
//  Google Search Console scope.

//  In this example, Get a Google Search Console OAuth2 Access Token, the access
//  token was saved to a JSON file.  This example fetches the access token from the file..
oJsonToken := CreateObject("Chilkat.JsonObject")
nSuccess := oJsonToken:LoadFile("qa_data/tokens/googleSearchConsole.json")
IF (oJsonToken:HasMember("access_token") == 0)
    ? "No access token found."
    oJsonToken:destroy()
    RETURN
ENDIF

oHttp := CreateObject("Chilkat.Http")
oHttp:AuthToken := oJsonToken:StringOf("access_token")

cResponseStr := oHttp:QuickGetStr("https://www.googleapis.com/webmasters/v3/sites")
IF (oHttp:LastMethodSuccess == 0)
    ? oHttp:LastErrorText
    oJsonToken:destroy()
    oHttp:destroy()
    RETURN
ENDIF

nStatusCode := oHttp:LastStatus
? "Response Status Code: " + Str(nStatusCode)

//  Sample response:

//  {
//   "siteEntry": [
//    {
//     "siteUrl": "https://www.example.com/",
//     "permissionLevel": "siteUnverifiedUser"
//    },
//    {
//     "siteUrl": "http://www.chilkatsoft.com/",
//     "permissionLevel": "siteOwner"
//    }
//   ]
//  }

? cResponseStr

//  Use this online tool to generate parsing code from sample JSON: 
//  Generate Parsing Code from JSON

oJson := CreateObject("Chilkat.JsonObject")

nSuccess := oJson:Load(cResponseStr)

i := 0
nCount_i := oJson:SizeOfArray("siteEntry")
DO WHILE i < nCount_i
    oJson:I := i
    cSiteUrl := oJson:StringOf("siteEntry[i].siteUrl")
    ? "siteUrl: " + cSiteUrl
    cPermissionLevel := oJson:StringOf("siteEntry[i].permissionLevel")
    ? "permissionLevel: " + cPermissionLevel
    i := i + 1
ENDDO

oJsonToken:destroy()
oHttp:destroy()
oJson:destroy()