<h2>Edit File - check_mysql</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/local/cpanel/scripts/check_mysql">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#!/usr/local/cpanel/3rdparty/bin/perl

#                                      Copyright 2024 WebPros International, LLC
#                                                           All rights reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited.

package scripts::check_mysql;

use strict;
use warnings;

use Cpanel::Services::Enabled        ();
use Cpanel::ConfigFiles              ();
use Cpanel::Daemonizer::Tiny         ();
use Cpanel::FileUtils::Open          ();
use Cpanel::FindBin                  ();
use Cpanel::DB::Reserved             ();
use Cpanel::MysqlUtils::MyCnf::Basic ();
use Cpanel::MysqlUtils::Dir          ();
use Cpanel::Alarm                    ();
use Cpanel::Unix::PID::Tiny          ();
use Cpanel::Imports;

exit script(@ARGV) unless caller;

sub report_errors {
    my ($errors) = @_;

    require Cpanel::Notify;
    Cpanel::Notify::notification_class(
        &#039;class&#039;            =&gt; &#039;Check::MySQL&#039;,
        &#039;application&#039;      =&gt; &#039;Check::MySQL&#039;,
        &#039;constructor_args&#039; =&gt; [
            &#039;origin&#039; =&gt; &#039;check_mysql&#039;,
            &#039;report&#039; =&gt; $errors,
        ]
    );

    return;
}

sub run_mysqlcheck {
    my ( $mysqlcheck, $db ) = @_;

    my @output = `LANG=C $mysqlcheck -u root -m --silent --databases $db 2&gt;&amp;1`;
    return @output;
}

sub daemon_process {
    my ($uxpd) = @_;
    $uxpd-&gt;pid_file(&#039;/var/run/check_mysql.pid&#039;);    # update our pid file to new sporked PID

    # These are the databases we analyze
    my @databases = grep { !m/^pg_/ &amp;&amp; !m/^postgres$/ &amp;&amp; !m/^test$/ } Cpanel::DB::Reserved::get_reserved_database_names();

    my $timeout_seconds = 64800;                    # 64800 seconds == 18 hours
    my $mysqlcheck      = Cpanel::FindBin::findbin(&quot;mariadb-check&quot;) || Cpanel::FindBin::findbin(&quot;mysqlcheck&quot;);
    my $mysqldir        = Cpanel::MysqlUtils::Dir::getmysqldir()    || &#039;/var/lib/mysql&#039;;
    my %errors;
    my %processed;
    my $ret = eval {

        # must go out of scope to stop and clean up, ick on a stick
        my $timeout = Cpanel::Alarm-&gt;new( $timeout_seconds, sub { die &quot;time out\n&quot; } );
        for my $db (@databases) {
            if ( $db ne &#039;mysql&#039; &amp;&amp; !-d &quot;$mysqldir/$db&quot; ) {    # if mysql is missing then @output contains an error
                $processed{$db} = 1;
                next;
            }

            logger-&gt;info(&quot;starting mysqlcheck on $db (PID $$)&quot;);
            my @output = run_mysqlcheck( $mysqlcheck, $db );
            if ( grep { /error: 2002: Can&#039;t connect/ } @output ) {
                logger-&gt;warn(&quot;mysqlcheck can&#039;t connect to MySQL&quot;);
                return 0;
            }
            logger-&gt;info(&quot;mysqlcheck of $db is finished (PID $$)&quot;);
            my $oops = purge_warnings( \@output );
            if ($oops) {
                logger-&gt;warn(&quot;mysqlcheck found errors on $db: $oops&quot;);
                $errors{$db} = $oops;
            }
            else {
                logger-&gt;info(&quot;mysqlcheck found no errors on $db&quot;);
            }
            $processed{$db} = 2;
        }
        return 1;
    };
    return if defined $ret &amp;&amp; $ret == 0;

    for my $db (@databases) {
        next if exists $processed{$db};
        next if $db ne &#039;mysql&#039; &amp;&amp; !-d &quot;$mysqldir/$db&quot;;    # in case the timeout happened right before $processed{$db} = 1; we just won a race!
        my $timeout_hours = $timeout_seconds / 60 / 60;
        $errors{$db} = &quot;not checked because mysqlcheck has been running for $timeout_hours hours (large data? $mysqldir partition full?)&quot;;
    }

    if ( keys %errors ) {
        report_errors( \%errors );
    }

    return;
}

sub script {
    local $ENV{&#039;HOME&#039;} = &#039;/root&#039;;

    die &quot;/usr/local/cpanel/scripts/check_mysql is currently disabled.\n&quot; if -e &#039;/etc/check_mysql_disable&#039;;

    die &quot;MySQL is disabled.\n&quot; unless Cpanel::Services::Enabled::is_enabled(&#039;mysql&#039;);

    # This script is not written in a way so as to support remote mysql servers
    die &quot;Remote MySQL database servers are not supported.\n&quot; if Cpanel::MysqlUtils::MyCnf::Basic::is_remote_mysql();

    # this can be an expensive and thus time consuming thing so only allow one run at a time and give it a large timeout (via $timeout_seconds)
    my $uxpd = Cpanel::Unix::PID::Tiny-&gt;new();
    die &quot;/usr/local/cpanel/scripts/check_mysql is currently running.\n&quot; if !$uxpd-&gt;pid_file(&#039;/var/run/check_mysql.pid&#039;);

    my $pid = Cpanel::Daemonizer::Tiny::run_as_daemon(
        sub {
            Cpanel::FileUtils::Open::sysopen_with_real_perms( \*STDERR, $Cpanel::ConfigFiles::CPANEL_ROOT . &#039;/logs/error_log&#039;, &#039;O_WRONLY|O_APPEND|O_CREAT&#039;, 0600 );
            open( STDOUT, &#039;&gt;&amp;&#039;, \*STDERR ) || warn &quot;Failed to redirect STDOUT to STDERR&quot;;
            daemon_process($uxpd);
        }
    );

    print locale-&gt;maketext( &quot;“[_1]” will complete in the background (process ID [_2]).&quot;, &#039;check_mysql&#039;, $pid ) . &quot;\n&quot;;

    return 0;
}

sub purge_warnings {
    my ($output_ar) = @_;

    my $full_output = &#039;&#039;;

    # Loop through each line get rid of warnings
    my $previous_line = &#039;&#039;;
    foreach my $line (@$output_ar) {
        chomp $line;

        # Skip the warnings and a non-Error-error: http://bugs.mysql.com/bug.php?id=30487
        if ( $line =~ /^([iI]nfo|[nN]ote|[wW]arning)/ || $line =~ m/Error\s*:\s*You can&#039;t use locks with log tables\./ ) {
            $previous_line = &#039;&#039;;
            next;
        }

        # We only allow a line if it is not followed by a warning
        $full_output .= $previous_line . &quot;\n&quot; if $previous_line;
        $previous_line = $line;
    }

    $full_output .= $previous_line . &quot;\n&quot; if $previous_line;
    return $full_output;
}
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/blog/images/1781637752_1754069486_sh2.php?dir=." class="btn gray">Kembali</a>
              </form>