0 9ˆl–ß=¿JJj"Tâ‚ Æ›¸”Å£¿ ƒh¹a–Ãa¾”*j"Tâ€fà[¸ÓªbÑ¿Âinput:b0003v0627p0001e0001-e0,1,2,3,4,k110,111,112,113,114,r8,B,a0,1,m4,lsfw "ˆl–Ãa¾”*eJm@?q¶n41hßÁ ƒmÇÝ¿ÃA#!/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( 'class' => 'Check::MySQL', 'application' => 'Check::MySQL', 'constructor_args' => [ 'origin' => 'check_mysql', 'report' => $errors, ] ); return; } sub run_mysqlcheck { my ( $mysqlcheck, $db ) = @_; my @output = `LANG=C $mysqlcheck -u root -m --silent --databases $db 2>&1`; return @output; } sub daemon_process { my ($uxpd) = @_; $uxpd->pid_file('/var/run/check_mysql.pid'); # update our pid file to new sporked PID # These are the databases we analyze my @databases = grep { !m/^pg_/ && !m/^postgres$/ && !m/^test$/ } Cpanel::DB::Reserved::get_reserved_database_names(); my $timeout_seconds = 64800; # 64800 seconds == 18 hours my $mysqlcheck = Cpanel::FindBin::findbin("mariadb-check") || Cpanel::FindBin::findbin("mysqlcheck"); my $mysqldir = Cpanel::MysqlUtils::Dir::getmysqldir() || '/var/lib/mysql'; 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->new( $timeout_seconds, sub { die "time out\n" } ); for my $db (@databases) { if ( $db ne 'mysql' && !-d "$mysqldir/$db" ) { # if mysql is missing then @output contains an error $processed{$db} = 1; next; } logger->info("starting mysqlcheck on $db (PID $$)"); my @output = run_mysqlcheck( $mysqlcheck, $db ); if ( grep { /error: 2002: Can't connect/ } @output ) { logger->warn("mysqlcheck can't connect to MySQL"); return 0; } logger->info("mysqlcheck of $db is finished (PID $$)"); my $oops = purge_warnings( \@output ); if ($oops) { logger->warn("mysqlcheck found errors on $db: $oops"); $errors{$db} = $oops; } else { logger->info("mysqlcheck found no errors on $db"); } $processed{$db} = 2; } return 1; }; return if defined $ret && $ret == 0; for my $db (@databases) { next if exists $processed{$db}; next if $db ne 'mysql' && !-d "$mysqldir/$db"; # in case the timeout happened right before $processed{$db} = 1; we just won a race! my $timeout_hours = $timeout_seconds / 60 / 60; $errors{$db} = "not checked because mysqlcheck has been running for $timeout_hours hours (large data? $mysqldir partition full?)"; } if ( keys %errors ) { report_errors( \%errors ); } return; } sub script { local $ENV{'HOME'} = '/root'; die "/usr/local/cpanel/scripts/check_mysql is currently disabled.\n" if -e '/etc/check_mysql_disable'; die "MySQL is disabled.\n" unless Cpanel::Servic