(Tcl) Google Search Console API - Add

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

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# 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 sbUrlToAdd [new_CkStringBuilder]

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

set sbUrl [new_CkStringBuilder]

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

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

# resp is a CkHttpResponse
set resp [CkHttp_QuickRequest $http "PUT" [CkStringBuilder_getAsString $sbUrl]]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkJsonObject $jsonToken
    delete_CkHttp $http
    delete_CkStringBuilder $sbUrlToAdd
    delete_CkStringBuilder $sbUrl
    exit
}

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

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

puts "Success"
delete_CkHttpResponse $resp


delete_CkJsonObject $jsonToken
delete_CkHttp $http
delete_CkStringBuilder $sbUrlToAdd
delete_CkStringBuilder $sbUrl