(Perl) 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 Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# 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 = chilkat::CkJsonObject->new();
$success = $jsonToken->LoadFile("qa_data/tokens/googleSearchConsole.json");
if ($jsonToken->HasMember("access_token") == 0) {
    print "No access token found." . "\r\n";
    exit;
}

$http = chilkat::CkHttp->new();
$http->put_AuthToken($jsonToken->stringOf("access_token"));

$sbUrlToDelete = chilkat::CkStringBuilder->new();
$sbUrlToDelete->Append("https://www.example.com/");
$sbUrlToDelete->Encode("url","utf-8");

$sbUrl = chilkat::CkStringBuilder->new();
$sbUrl->Append("https://www.googleapis.com/webmasters/v3/sites/");
$sbUrl->AppendSb($sbUrlToDelete);

# Our URL looks like this:  https://www.googleapis.com/webmasters/v3/sites/https%3A%2F%2Fwww.example.com%2F
print $sbUrl->getAsString() . "\r\n";

# resp is a HttpResponse
$resp = $http->QuickRequest("DELETE",$sbUrl->getAsString());
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$statusCode = $resp->get_StatusCode();
print "Response Status Code: " . $statusCode . "\r\n";

if ($statusCode >= 400) {
    print $resp->bodyStr() . "\r\n";
    print "Failed." . "\r\n";
}