PureBasic

Google Search Console API - Delete

See more Google Search Console Examples

Demonstrates how to remove a site from the set of the user's Search Console sites. 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"))

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

    CkStringBuilder::ckAppend(sbUrlToDelete,"https://www.example.com/")
    CkStringBuilder::ckEncode(sbUrlToDelete,"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,sbUrlToDelete)

    ; 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,"DELETE",url,resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkJsonObject::ckDispose(jsonToken)
        CkHttp::ckDispose(http)
        CkStringBuilder::ckDispose(sbUrlToDelete)
        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



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


    ProcedureReturn
EndProcedure