Xbase++

Google Search Console API - Add

See more Google Search Console Examples

Demonstrates how to add a site to the set of the user's sites in Search Console. Xbase++

LOCAL nSuccess
LOCAL oJsonToken
LOCAL oHttp
LOCAL oSbUrlToAdd
LOCAL oSbUrl
LOCAL cUrl
LOCAL oResp
LOCAL nStatusCode

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

oSbUrlToAdd := CreateObject("Chilkat.StringBuilder")
oSbUrlToAdd:Append("https://www.example.com/")
oSbUrlToAdd:Encode("url", "utf-8")

oSbUrl := CreateObject("Chilkat.StringBuilder")
oSbUrl:Append("https://www.googleapis.com/webmasters/v3/sites/")
oSbUrl:AppendSb(oSbUrlToAdd)

//  Our URL looks like this:  https://www.googleapis.com/webmasters/v3/sites/https%3A%2F%2Fwww.example.com%2F
? oSbUrl:GetAsString()

cUrl := oSbUrl:GetAsString()
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpNoBody("PUT", cUrl, oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oJsonToken:destroy()
    oHttp:destroy()
    oSbUrlToAdd:destroy()
    oSbUrl:destroy()
    oResp:destroy()
    RETURN
ENDIF

nStatusCode := oResp:StatusCode
? "Response Status Code: " + Str(nStatusCode)

IF (nStatusCode >= 400)
    ? oResp:BodyStr
    ? "Failed."
ENDIF

? "Success"

oJsonToken:destroy()
oHttp:destroy()
oSbUrlToAdd:destroy()
oSbUrl:destroy()
oResp:destroy()