Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Tcl) Google Search Console API - DeleteDemonstrates 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
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 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] # resp is a CkHttpResponse set resp [CkHttp_QuickRequest $http "DELETE" [CkStringBuilder_getAsString $sbUrl]] if {[CkHttp_get_LastMethodSuccess $http] == 0} then { puts [CkHttp_lastErrorText $http] delete_CkJsonObject $jsonToken delete_CkHttp $http delete_CkStringBuilder $sbUrlToDelete 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." } delete_CkHttpResponse $resp delete_CkJsonObject $jsonToken delete_CkHttp $http delete_CkStringBuilder $sbUrlToDelete delete_CkStringBuilder $sbUrl |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.