^^&&^^

Edit File: exim_tidydb

#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - exim_tidydb                               Copyright 2010 cPanel, Inc.
#                                                           All rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

use strict;
use File::Glob                           ();
use File::Basename                       ();
use Umask::Local                         ();
use Cpanel::FileUtils::TouchFile         ();
use Cpanel::FindBin                      ();
use Cpanel::SafeRun::Errors              ();
use Cpanel::AccessIds::ReducedPrivileges ();

Cpanel::SafeRun::Errors::saferunnoerror('/usr/local/cpanel/scripts/cleanmsglog');
my $exim_tidydb = Cpanel::FindBin::findbin( 'exim_tidydb', 'path' => [ '/usr/sbin', '/usr/local/sbin', '/usr/bin', '/usr/local/bin', '/usr/exim/bin' ] );
if ( !$exim_tidydb ) { die 'Cannot find exim_tidydb'; }

foreach my $dir (qw(/var/spool/exim_incoming /var/spool/exim)) {
    next if ( !-d $dir );
    my @dbs = File::Glob::glob("$dir/db/*");
    foreach my $db (@dbs) {
        my $time;
        my $basedb = File::Basename::basename($db);
        next if ( $basedb =~ /^\.|\.lock(file)?$/ );
        my $lock = "$dir/db/$basedb.lockfile";
        unless ( -e $lock ) {
            my $privs = Cpanel::AccessIds::ReducedPrivileges->new(qw/mailnull mail/);
            my $umask = Umask::Local->new(027);
            Cpanel::FileUtils::TouchFile::touchfile($lock);
        }
        if ( $basedb =~ /ratelimit/i ) { $time = '1d'; }
        if ($time) {
            system( $exim_tidydb, '-t', $time, $dir, $basedb );
        }
        else {
            system( $exim_tidydb, $dir, $basedb );
        }
    }
}