#!/usr/bin/perl

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

my($crontime) = "0 6 * * *";
my(@CRONTAB) = split(/\n/, `/usr/bin/crontab -l`);
@CRONTAB = grep(!/^#/, @CRONTAB);
@CRONTAB = grep(!/exim_tidydb/, @CRONTAB);
@CRONTAB = grep(!/cleanmsglog/, @CRONTAB);


push(@CRONTAB,"$crontime /scripts/exim_tidydb > /dev/null 2>&1");


open(CRONTAB,"|/usr/bin/crontab -");
foreach(@CRONTAB) {
	s/\n//g;
	print CRONTAB;
	print CRONTAB "\n";
}
close(CRONTAB);
                                                                                
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 "";
}