Perl

Google Search Console API - Add

See more Google Search Console Examples

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

use chilkat();

$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..
$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"));

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

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

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

$url = $sbUrl->getAsString();
$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpNoBody("PUT",$url,$resp);
if ($success == 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";
}

print "Success" . "\r\n";