\_SB_.PCI0.S70_
Index of /configAHR/Jump/0-coastlinecompg/wp-includes/js/dist/script-modules/core-abilities
Index of /configAHR/Jump/0-coastlinecompg/wp-includes/js/dist/script-modules/core-abilities
" lz Jj"Tҁzţ
y !a #!/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__->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{'TZ'} = Cpanel::Timezones::calculate_TZ_env();
my $cpanel_conf = Cpanel::Config::LoadCpConf::loadcpconf_not_copy();
my $NEEDDISKUSED = exists $cpanel_conf->{'disk_usage_include_mailman'} ? $cpanel_conf->{'disk_usage_include_mailman'} : 1;
if ( !$NEEDDISKUSED ) {
clear_db_caches();
return 0;
}
my $datastore_path = Cpanel::DatastoreDir::Init::initialize();
my $missing_info_yaml_file = "$datastore_path/mailman_missing_info_mail_list.yaml";
my $mailman_list_usage_file = _mailman_list_usage_file();
my $mailman_disk_usage_file = _mailman_disk_usage_file();
my $progress_file = "$datastore_path/update_mailman_cache-in-progress";
my ( $user_to_rebuild, $list_to_rebuild ) = @args;
if ( $user_to_rebuild && !Cpanel::PwCache::getpwnam_noshadow($user_to_rebuild) ) {
die "Usage: $0 []\n";
}
my $mmlock = Cpanel::SafeFile::safeopen( my $fh, '>', $progress_file );
if ( !$mmlock ) {
warn "Could not get a lock on '$progress_file': $!\n";
return 1;
}
my $finally = Cpanel::Finally->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);
Cpane