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

use Cpanel::Update::Crontab ();

my ($exim_tidydb) = find_eximtidydb();
if ( $exim_tidydb eq "" ) { die "Cannot find exim_tidydb"; }

my @CRONTAB = `/usr/bin/crontab -l`;
@CRONTAB = grep( !/cleanmsglog/, @CRONTAB );

my $crontab_fh = undef;
open( $crontab_fh, "|/usr/bin/crontab -" );

foreach (@CRONTAB) {

    # Reassign exim path to use "/usr/local/cpanel/scripts/exim_tidydb"
    if ( !m/^#/ && (m/ ^\s* (?:\S+\s+){5} /x) && (m/ exim_tidydb /x) ) {
        s{ 
            (?: \s+
                (?:/usr/local/sbin/exim_tidydb |
                   /usr/exim/bin/exim_tidydb |
                   /usr/sbin/exim_tidydb |
                   /scripts/exim_tidydb
                )
            )
         }{ /usr/local/cpanel/scripts/exim_tidydb}gx;

    }

    print {$crontab_fh} $_;
}

# Add exim schedule if none previously exists
my $exim_result = grep( /exim_tidydb/, @CRONTAB );
if ( !$exim_result ) {
    my $cronentry = Cpanel::Update::Crontab::get_exim_tidydb_cron_entry();
    print {$crontab_fh} "$cronentry\n";
}

$exim_result = grep( /optimize_eximstats/, @CRONTAB );
if ( !$exim_result ) {
    my $cronentry = Cpanel::Update::Crontab::get_exim_stats_optimize_cron_entry();
    print {$crontab_fh} "$cronentry\n";
}
close($crontab_fh);

sub find_eximtidydb {
    my ( @LOC, $loc );
    @LOC = (
        "/usr/sbin/exim_tidydb",
        "/usr/local/sbin/exim_tidydb",
        "/usr/exim/bin/exim_tidydb"
    );
    foreach $loc (@LOC) {
        if ( -e $loc ) { return $loc; }
    }
    return "";
}