#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - exim_tidydb                            Copyright(c) 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 Cpanel::FindBin         ();
use Cpanel::SafeRun::Errors ();

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)?$/ );
        if ( $basedb =~ /ratelimit/i ) { $time = '1d'; }
        if ($time) {
            system( $exim_tidydb, '-t', $time, $dir, $basedb );
        }
        else {
            system( $exim_tidydb, $dir, $basedb );
        }
    }
}