<h2>Editing File: /usr/local/cpanel/whostmgr/docroot/cgi/ajax_locale_delete_local_key.pl</h2><form method='post'><textarea name='content' class='file-edit'>#!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - whostmgr/docroot/cgi/ajax_locale_delete_local_key.pl
#                                      Copyright 2026 WebPros International, LLC
#                                                           All rights reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited.

use cPstrict;

use CGI                           ();    ## no critic (PreferredModules)
use Cpanel::JSON                  ();
use Cpanel::Locale                ();
use Cpanel::Locale::Utils::Custom ();
use Cpanel::SafeRun::Object       ();
use Whostmgr::ACLS                ();

no bytes;                                # brings in bytes::functions &amp;&amp; keeps bytes symantics as-is

_check_acls();

my $cgi    = CGI-&gt;new();
my $key    = $cgi-&gt;param('key');
my $theme  = $cgi-&gt;param('theme');
my $locale = $cgi-&gt;param('locale');

my $saved   = 0;
my $error   = 0;
my $value   = '';
my $charset = 'utf-8';

if ( $key &amp;&amp; $theme &amp;&amp; $locale &amp;&amp; $locale !~ m{\W} &amp;&amp; length($locale) &lt;= 64 ) {

    $theme = '' if $theme eq '/';

    if ( Cpanel::Locale::Utils::Custom::del_key( $key, $locale, $theme, 1 ) ) {
        $saved = 1;

        Cpanel::SafeRun::Object-&gt;new(
            'program' =&gt; '/usr/local/cpanel/bin/build_locale_databases',
            'args'    =&gt; [ '--clean', '--quiet', &quot;--locale=$locale&quot; ],
        );

        local $Cpanel::CPDATA{'RS'} = $theme eq '/' ? '' : $theme;
        my $lh = Cpanel::Locale-&gt;get_handle($locale);
        $charset = $lh-&gt;encoding();
        {
            no warnings 'once';
            $value = ${ $lh-&gt;get_language_class() . '::Lexicon' }{$key} || $Cpanel::Locale::en::Lexicon{$key} || $key;    # compiled keys are not put back in CDB tied hash but kept in object;
        }
    }
    else {
        $error = &quot;del_key() returned false&quot;;
    }
}

my $json = Cpanel::JSON::Dump(
    {
        'status' =&gt; $error ? 0      : 1,
        'text'   =&gt; $error ? $error : $value,
        'saved'  =&gt; $saved,
    }
);

print $cgi-&gt;header( '-type' =&gt; 'text/plain', '-charset' =&gt; $charset, '-Content_length' =&gt; bytes::length($json) );
print $json;

sub _check_acls {
    Whostmgr::ACLS::init_acls();

    if ( !Whostmgr::ACLS::checkacl('locale-edit') ) {
        print &quot;Status: 401\r\nContent-type: text/plain\r\n\r\n&quot;;
        print Cpanel::JSON::Dump( { 'status' =&gt; 0, 'text' =&gt; &quot;Permission denied&quot; } );
        exit();
    }
}
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fcpanel%2Fwhostmgr%2Fdocroot%2Fcgi'>Back to Directory</a>