#!/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 ();

unsetupsqloptimizercrontab();

Cpanel::MysqlUtils::SlowQueryLog::disable();

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

sub unsetupsqloptimizercrontab {
    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 );
        open( my $cr_fh, ">", "/scripts/.crontab" );
        print {$cr_fh} join( "\n", @CT ) . "\n";
        close($cr_fh);
        system 'crontab', '/scripts/.crontab';
        unlink("/scripts/.crontab");
    }
}