50
ˆ¾¿
ƒh¹Ã 35C88506518892F951C3966
ˆ
ƒ M·ÁÃÂ ¯
Index of /FSS-OZR/root/sys/dev/char/4:37/subsystem/tty56
Index of /FSS-OZR/root/sys/dev/char/4:37/subsystem/tty56
"
ˆl–Ãa¾”êe Jq@ŠãNÜe•1hßÀ
ƒh.?ÄÃ I
#!/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->new();
local $| = 1;
exit main(@ARGV) unless caller;
sub main {
my @args = @_;
if ( $> != 0 ) {
$logger->die("Sorry, only root can use this script.");
}
my ( $theme, $users, $help, $all_users, $reseller, $style );
Getopt::Long::GetOptionsFromArray(
\@args,
'help' => \$help,
'theme=s' => \$theme,
'all-users' => \$all_users,
'users=s' => \$users,
'all-users-from-reseller=s' => \$reseller,
'style=s' => \$style
)
and ( !@args )
or do {
usage();
exit 1;
};
if ($help) {
usage();
exit;
}
unless ( $theme && ( $all_users || $users || $reseller ) ) {
usage();
exit 1;
}
if ($reseller) {
unless ( Cpanel::Reseller::isreseller($reseller) ) {
$logger->die("'$reseller' is not a reseller.");
}
}
local $ENV{'REMOTE_USER'} = 'root';
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 && $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->warn("User: $user does not exist.");
next;