(null) File not found. "lm_J*j"TvCqţ h0 File not found. File not found. File not found. File not found. "laeJq@Ne1h u#!/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::dovecot_maintenance; =pod =head1 NAME dovecot_maintenance - Run nightly maintenance for dovecot which includes purging deleted messages from mdbox. =head1 SYNOPSIS /usr/local/cpanel/scripts/dovecot_maintenance [options] Options: --help This help message --background Run in the background =head1 DESCRIPTION All deleted email will be purged from mdbox users who have logged in since this script was last run. This program will also purge all expired APNs registrations =cut use strict; use Cpanel::IONice (); use Cpanel::PwCache (); use Cpanel::PwCache::Build (); use Cpanel::Config::LoadCpConf (); use Cpanel::Config::LoadConfig (); use Cpanel::ConfigFiles (); use Cpanel::Dovecot (); use Cpanel::Dovecot::Utils (); use Cpanel::AdvConfig (); use Cpanel::Locale (); use Cpanel::AcctUtils::DomainOwner::Tiny (); use Cpanel::AcctUtils::Lookup (); use Cpanel::FileUtils::Open (); use Cpanel::Email::Exists (); use Cpanel::FileUtils::Dir (); use Cpanel::SQLite::Compat (); use DBD::SQLite (); use Cpanel::DBI::SQLite (); use File::Path (); use Getopt::Long (); use Pod::Usage (); use Umask::Local (); use Try::Tiny; my $background = 0; my $help = 0; unless ( caller() ) { Getopt::Long::GetOptions( 'background' => \$background, 'help' => \$help ); Pod::Usage::pod2usage( -verbose => 2 ) if $help; if ($background) { require Cpanel::Daemonizer::Tiny; my $pid = Cpanel::Daemonizer::Tiny::run_as_daemon( sub { #### # The next two calls are unchecked because it cannot be captured when running as a daemon Cpanel::FileUtils::Open::sysopen_with_real_perms( \*STDERR, $Cpanel::ConfigFiles::CPANEL_ROOT . '/logs/error_log', 'O_WRONLY|O_APPEND|O_CREAT', 0600 ); open( STDOUT, '>&', \*STDERR ) || warn "Failed to redirect STDOUT to STDERR"; exit( __PACKAGE__->script() ); } ); } else { exit( __PACKAGE__->script() ); } } our $DEFAULT_IO_NICE = 7; sub script { my ($class) = @_; my $self = bless {}, $class; $self->_init(); local $| = 1; my $exit_status = 0; # Order matters since for mdbox expunge will only mark it for purge foreach my $op (qw(_purge_deleted_messages)) { try { $self->$op(); } catch { warn $_; $exit_status = 1; }; } return $exit_status; } sub _init { my ($self) = @_; $self->{'mailbox_formats'} = scalar Cpanel::Config::LoadConfig::loadConfig( "/etc/mailbox_formats", undef, ": " ); $self->{'dovecot_conf'} = Cpanel::AdvConfig::load_app_conf('dovecot'); Cpanel::AcctUtils::DomainOwner::Tiny::build_domain_cache(); Cpanel::PwCache::Build::init_passwdless_pwcache(); return; } sub _ionice { my ($self) = @_; return if $self->{'did_ionice'}; $self->{'did_ionice'} = 1; my $cpconf_ref = Cpanel::Config::LoadCpConf::loadcpconf(); if ( Cpanel::IONice::ionice( 'best-effort', exists $cpconf_ref->{'ionice_dovecot_maintenance'} ? $cpconf_ref->{'ionice_dovecot_maintenance'} : $$DEFAULT_IO_NICE ) ) { print "[dovecot_maintenance] Setting I/O priority to reduce system load: " . Cpanel::IONice