(PureBasic) Google Search Console API - Delete

Demonstrates how to remove a site from the set of the user's Search Console sites.

For more information, see https://developers.google.com/webmaster-tools/search-console-api-original/v3/sites/delete

Chilkat PureBasic Module Download Chilkat PureBasic Module

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

Procedure ChilkatExample()

    ; 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.i = 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)

    resp.i = CkHttp::ckQuickRequest(http,"DELETE",CkStringBuilder::ckGetAsString(sbUrl))
    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
        CkJsonObject::ckDispose(jsonToken)
        CkHttp::ckDispose(http)
        CkStringBuilder::ckDispose(sbUrlToDelete)
        CkStringBuilder::ckDispose(sbUrl)
        ProcedureReturn
    EndIf

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

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

    CkHttpResponse::ckDispose(resp)



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


    ProcedureReturn
EndProcedure