Server IP : 162.241.126.129 / Your IP : 13.59.1.58 Web Server : Apache System : Linux 162-241-126-129.cprapid.com 4.18.0-477.27.2.el8_8.x86_64 #1 SMP Fri Sep 29 08:21:01 EDT 2023 x86_64 User : rvway5nu4 ( 1018) PHP Version : 7.4.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /proc/thread-self/root/scripts/ |
Upload File : |
#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/exim_tidydb 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::exim_tidydb; use strict; use warnings; use File::Glob (); use File::Basename (); use Umask::Local (); use Cpanel::Autodie (); use Cpanel::FileUtils::TouchFile (); use Cpanel::NameVariant (); use Cpanel::Time::ISO (); use Cpanel::Binaries (); use Cpanel::SafeRun::Object (); use Cpanel::AccessIds::ReducedPrivileges (); our @exim_dirs = qw(/var/spool/exim_incoming /var/spool/exim); use constant VALID_STATIC_DB_NAMES => ( 'retry', 'misc', 'callout', 'ratelimit', ); __PACKAGE__->script() unless caller(); sub script { my $exim_tidydb = Cpanel::Binaries::path('exim_tidydb'); if ( !-x $exim_tidydb ) { die 'Cannot find exim_tidydb'; } foreach my $dir (@exim_dirs) { next if ( !-d $dir ); my @dbs = File::Glob::bsd_glob("$dir/db/*"); foreach my $db (@dbs) { my $basedb = File::Basename::basename($db); next if ( $basedb =~ /^\.|\.lock(file)?$/ ); # Valid database names = retry | misc | wait-<transport-name> | callout | ratelimit my $is_valid = grep { $_ eq $basedb } VALID_STATIC_DB_NAMES(); $is_valid ||= $basedb =~ m{^wait-}; next if !$is_valid; my $dbpath = "$dir/db/$basedb"; my $lock = "$dbpath.lockfile"; unless ( -e $lock ) { my $privs = Cpanel::AccessIds::ReducedPrivileges->new(qw/mailnull mail/); my $umask = Umask::Local->new(027); Cpanel::FileUtils::TouchFile::touchfile($lock); } my $run = Cpanel::SafeRun::Object->new( 'program' => $exim_tidydb, 'args' => [ ( $basedb eq 'ratelimit' ? ( '-t', '1d' ) : () ), $dir, $basedb ] ); print $run->stdout(); if ( $run->CHILD_ERROR() && $run->error_code() == 1 ) { my $new_filename = Cpanel::NameVariant::find_name_variant( max_length => 254, name => $dbpath . '.broken.' . Cpanel::Time::ISO::unix2iso(), test => sub { Cpanel::Autodie::link_if_no_conflict( $dbpath, $_[0] ); }, ); unlink $dbpath or warn "unlink($dbpath): $!"; print "Renamed corrupt “$dbpath” to “$new_filename”.\n"; } } } Cpanel::SafeRun::Object->new( 'program' => '/usr/local/cpanel/scripts/cleanmsglog' ); return; } 1;