(Perl) Google Search Console API - List

Lists the user's Search Console sites.

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

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

$responseStr = $http->quickGetStr("https://www.googleapis.com/webmasters/v3/sites");
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

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

# Sample response:

# {
#  "siteEntry": [
#   {
#    "siteUrl": "https://www.example.com/",
#    "permissionLevel": "siteUnverifiedUser"
#   },
#   {
#    "siteUrl": "http://www.chilkatsoft.com/",
#    "permissionLevel": "siteOwner"
#   }
#  ]
# }

print $responseStr . "\r\n";

# Use this online tool to generate parsing code from sample JSON: 
# Generate Parsing Code from JSON

$json = chilkat::CkJsonObject->new();

$success = $json->Load($responseStr);

$i = 0;
$count_i = $json->SizeOfArray("siteEntry");
while ($i < $count_i) {
    $json->put_I($i);
    $siteUrl = $json->stringOf("siteEntry[i].siteUrl");
    print "siteUrl: " . $siteUrl . "\r\n";
    $permissionLevel = $json->stringOf("siteEntry[i].permissionLevel");
    print "permissionLevel: " . $permissionLevel . "\r\n";
    $i = $i + 1;
}