#!/usr/bin/perl
# cpanel - enable_sqloptimizer                                   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

BEGIN { unshift @INC, '/usr/local/cpanel'; }

require 5.006;

use Cpanel::SafeRun::Errors          ();
use Cpanel::MysqlUtils::SlowQueryLog ();
use Cpanel::Config ();

setupsqloptimizercrontab();

Cpanel::MysqlUtils::SlowQueryLog::enable();

my $cpconf = Cpanel::Config::loadcpconf();
if (!$cpconf->{'sqloptimizer'}) {
    $cpconf->{'sqloptimizer'}=1;
    Cpanel::Config::savecpconf( $cpconf );
}

sub setupsqloptimizercrontab {
    my $has_sqloptimizer = 0;
    my @CT = grep( !/^#/, split( /\n/, Cpanel::SafeRun::Errors::saferunnoerror( 'crontab', '-l' ) ) );
    if ( grep( /sqloptimizer/, @CT ) ) { $has_sqloptimizer = 1; }
    if ( !$has_sqloptimizer ) {
        @CT = grep( !/sqloptimizer/, @CT );
        push( @CT, "12 5 * * * /usr/local/cpanel/bin/sqloptimizer >/dev/null 2>&1" );
        open( my $cr_fh, ">", "/scripts/.crontab" );
        print {$cr_fh} join( "\n", @CT ) . "\n";
        close($cr_fh);
        system 'crontab', '/scripts/.crontab';
        unlink("/scripts/.crontab");
    }
}