(Perl) WordPress Create Tag

See more WordPress Examples

Demonstrates how to create a new tag in Wordpress, or to find the ID of an existing tag.

For more information, see https://wordpress.org/plugins/application-passwords/

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$http = chilkat::CkHttp->new();

# Use your WordPress login, such as "admin", not the application name.
$http->put_Login("wp_username");
# Use the application password, such as "Nths RwVH eDJ4 weNZ orMN jabq"
# See WordPress Application Passwords Plugin
$http->put_Password("app_password");
$http->put_BasicAuth(1);

# Create the tag "ChatGPT" if it does not already exist.
$json = chilkat::CkJsonObject->new();
$json->UpdateString("name","ChatGPT");

# This will create the tag if it does not yet exist.
# If the tag already exists, then a 400 status code is returned.
# If the tag deoes not yet exist, then a 201 status code is returned.
# resp is a HttpResponse
$resp = $http->PostJson3("https://cknotes.com/wp-json/wp/v2/tags","application/json",$json);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$jResp = chilkat::CkJsonObject->new();
$jResp->Load($resp->bodyStr());

# Check if the tag already exists..
if ($resp->get_StatusCode() == 400) {
    if ($jResp->HasMember("code") == 1) {
        if ($jResp->StringOfEquals("code","term_exists",1) == 1) {
            # The tag already exists.
            print "The tag already exists." . "\r\n";
            print "Tag ID: " . $jResp->IntOf("data.term_id") . "\r\n";

            exit;
        }

    }

    # Fall through to check for errors.
}

# Check for errors.
if ($resp->get_StatusCode() != 201) {
    print $resp->bodyStr() . "\r\n";
    print "status code = " . $resp->get_StatusCode() . "\r\n";

    exit;
}

# We get here if the tag was created..
print "The tag was created." . "\r\n";
print "Tag ID = " . $jResp->IntOf("id") . "\r\n";