PureBasic

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. PureBasic

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

    success.i = 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..
    jsonToken.i = CkJsonObject::ckCreate()
    If jsonToken.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkJsonObject::ckLoadFile(jsonToken,"qa_data/tokens/googleSearchConsole.json")
    If CkJsonObject::ckHasMember(jsonToken,"access_token") = 0
        Debug "No access token found."
        CkJsonObject::ckDispose(jsonToken)
        ProcedureReturn
    EndIf

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttp::setCkAuthToken(http, CkJsonObject::ckStringOf(jsonToken,"access_token"))

    sbUrlToAdd.i = CkStringBuilder::ckCreate()
    If sbUrlToAdd.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkStringBuilder::ckAppend(sbUrlToAdd,"https://www.example.com/")
    CkStringBuilder::ckEncode(sbUrlToAdd,"url","utf-8")

    sbUrl.i = CkStringBuilder::ckCreate()
    If sbUrl.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkStringBuilder::ckAppend(sbUrl,"https://www.googleapis.com/webmasters/v3/sites/")
    CkStringBuilder::ckAppendSb(sbUrl,sbUrlToAdd)

    ; Our URL looks like this:  https://www.googleapis.com/webmasters/v3/sites/https%3A%2F%2Fwww.example.com%2F
    Debug CkStringBuilder::ckGetAsString(sbUrl)

    url.s = CkStringBuilder::ckGetAsString(sbUrl)
    resp.i = CkHttpResponse::ckCreate()
    If resp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkHttp::ckHttpNoBody(http,"PUT",url,resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkJsonObject::ckDispose(jsonToken)
        CkHttp::ckDispose(http)
        CkStringBuilder::ckDispose(sbUrlToAdd)
        CkStringBuilder::ckDispose(sbUrl)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

    statusCode.i = CkHttpResponse::ckStatusCode(resp)
    Debug "Response Status Code: " + Str(statusCode)

    If statusCode >= 400
        Debug CkHttpResponse::ckBodyStr(resp)
        Debug "Failed."
    EndIf

    Debug "Success"


    CkJsonObject::ckDispose(jsonToken)
    CkHttp::ckDispose(http)
    CkStringBuilder::ckDispose(sbUrlToAdd)
    CkStringBuilder::ckDispose(sbUrl)
    CkHttpResponse::ckDispose(resp)


    ProcedureReturn
EndProcedure