Tcl

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

load ./chilkat.dll

set success 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..
set jsonToken [new_CkJsonObject]

set success [CkJsonObject_LoadFile $jsonToken "qa_data/tokens/googleSearchConsole.json"]
if {[CkJsonObject_HasMember $jsonToken "access_token"] == 0} then {
    puts "No access token found."
    delete_CkJsonObject $jsonToken
    exit
}

set http [new_CkHttp]

CkHttp_put_AuthToken $http [CkJsonObject_stringOf $jsonToken "access_token"]

set sbUrlToDelete [new_CkStringBuilder]

CkStringBuilder_Append $sbUrlToDelete "https://www.example.com/"
CkStringBuilder_Encode $sbUrlToDelete "url" "utf-8"

set sbUrl [new_CkStringBuilder]

CkStringBuilder_Append $sbUrl "https://www.googleapis.com/webmasters/v3/sites/"
CkStringBuilder_AppendSb $sbUrl $sbUrlToDelete

# Our URL looks like this:  https://www.googleapis.com/webmasters/v3/sites/https%3A%2F%2Fwww.example.com%2F
puts [CkStringBuilder_getAsString $sbUrl]

set url [CkStringBuilder_getAsString $sbUrl]
set resp [new_CkHttpResponse]

set success [CkHttp_HttpNoBody $http "DELETE" $url $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkJsonObject $jsonToken
    delete_CkHttp $http
    delete_CkStringBuilder $sbUrlToDelete
    delete_CkStringBuilder $sbUrl
    delete_CkHttpResponse $resp
    exit
}

set statusCode [CkHttpResponse_get_StatusCode $resp]
puts "Response Status Code: $statusCode"

if {$statusCode >= 400} then {
    puts [CkHttpResponse_bodyStr $resp]
    puts "Failed."
}


delete_CkJsonObject $jsonToken
delete_CkHttp $http
delete_CkStringBuilder $sbUrlToDelete
delete_CkStringBuilder $sbUrl
delete_CkHttpResponse $resp