Gecko [ touzafair.com ]

Name	Size	Permission
authorized_users.list	143 B	-rw-r-----
check-autobackup.sh	6.68 KB	-rwxr-xr-x
check-cagefs-status.sh	2.04 KB	-rwxr-xr-x
check-cpanel-update.sh	1.85 KB	-rwxr-xr-x
check-litespeed-version.sh	2.87 KB	-rwxr-xr-x
check-lscache-version.sh	3.84 KB	-rwxr-xr-x
check-mail-filter-avlb.sh	2.18 KB	-rwxr-xr-x
check-outmailip-rbl.py	3.99 KB	-rwxr-xr-x
check-rpmdb-integrity.sh	1.63 KB	-rwxr-xr-x
check-unexpected-systemd-servi...	8.07 KB	-rwxr-xr-x
check_backup.sh	6.35 KB	-rwxr-xr-x
check_cl_license	950 B	-rwxr-xr-x
check_cplicense.sh	268 B	-rwxr-xr-x
check_cpshell	949 B	-rwxr-xr-x
check_csf	3.72 KB	-rwxr-xr-x
check_cwaf.sh	2.44 KB	-rwxr-xr-x
check_execve_filter.list	370 B	-rw-r-----
check_execve_privileges.sh	2.51 KB	-rwxr-x---
check_eximq.sh	3.16 KB	-rwxr-xr-x
check_extra_accts.py	4.18 KB	-rwxr-xr-x
check_http_full_stack.conf	144 B	-rw-r--r--
check_http_full_stack.py	4.3 KB	-rwxr-xr-x
check_if_ips.py	4.15 KB	-rwxr-xr-x
check_if_ips_tcp.py	4.71 KB	-rwxr-xr-x
check_ip_update_log.sh	540 B	-rwxr-xr-x
check_ip_usage.py	6.67 KB	-rwxr-xr-x
check_kernelcare.sh	2.13 KB	-rwxr-xr-x
check_lfd_logs.conf	471 B	-rw-r--r--
check_logfiles.conf	595 B	-rw-r--r--
check_logfiles.pl	206.82 KB	-rwxr-xr-x
check_logfiles_innodbcounter.c...	1002 B	-rw-r--r--
check_mailip.py	3.83 KB	-rwxr-xr-x
check_mem.pl	12.85 KB	-rwxr-xr-x
check_mysqld_msize.sh	666 B	-rwxr-xr-x
check_nc_cp_backup_process.sh	8.75 KB	-rwxr-xr-x
check_ncsslplugin.py	1.89 KB	-rwxr-xr-x
check_ntp_client	11.78 KB	-rwxr-xr-x
check_openport.sh	7.59 KB	-rwxr-xr-x
check_pem_worker.pl	929 B	-rwxr-xr-x
check_pgactivity	294.21 KB	-rwxr-xr-x
check_plans.py	7.59 KB	-rwxr-xr-x
check_puppet	16.14 KB	-rwxr-xr-x
check_quota_on.sh	902 B	-rwxr-xr-x
check_ro_fs.py	3.43 KB	-rwxr-xr-x
check_service.sh	9.34 KB	-rwxr-xr-x
check_software_updates	31.68 KB	-rwxr-xr-x
check_spamd	6.7 KB	-rwxr-xr-x
check_stalled_procs.py	4.42 KB	-rwxr-xr-x
check_suid_status.sh	295 B	-rwxr-xr-x
check_suspicious_files_status....	1.42 KB	-rwxr-xr-x
check_unauthorized_user.sh	17.16 KB	-rwxr-xr-x
replcheck_param.pl	5.48 KB	-rwxr-xr-x
systemd_scopes_whitelist	10 B	-rw-r--r--
systemd_services_folders	70 B	-rw-r--r--
systemd_services_whitelist	6.67 KB	-rw-r-----
systemd_targets_whitelist	12 B	-rw-r--r--
test.eml	3.26 KB	-rwxr-xr-x

Code Editor : replcheck_param.pl

#!/usr/bin/perl

use DBI;
use Time::Local;
use FileHandle;
use strict;
our $dbh;
my ($p_file,$p_offset,$p_warn,$p_crit,$p_sqlhost,$p_sqlport,$p_sqluser,$p_sqlpass,$p_dbname);

$p_sqlhost = '127.0.0.1';
$p_sqlport = '3306';
$p_sqluser = 'root';
$p_sqlpass = '';
$p_dbname = 'dnsdatadb';
$p_offset = 1800;
$p_warn = 10;
$p_crit = 300;
$p_file = "/var/tmp/replcheck";

if ( $ARGV[0] eq "-help" || $ARGV[0] eq "--help" ){
    help();
    exit(1);
}

my %par;

if ( $ARGV[0] ne "" ){
    my $chk = @ARGV;
    for ( my $i = 0; $i < $chk; $i = $i + 2 ){
        if ($ARGV[$i] =~ /^\-/ ){
            my $key = $ARGV[$i];
            $key =~ s/^\-//ig;
            my $j = $i + 1;
            $par{$key} = $ARGV[$j];
        }
    }
}

#while( my ($key,$value) = each %par){
#    print "$key => $value\n";
#}

$p_sqlhost = $par{'sqlhost'} if ($par{'sqlhost'} ne "" );
$p_sqlport = $par{'sqlport'} if ($par{'sqlport'} ne "" );
$p_sqluser = $par{'sqluser'} if ($par{'sqluser'} ne "" );
$p_sqlpass = $par{'sqlpass'} if ($par{'sqlpass'} ne "" );
$p_dbname = $par{'sqldb'} if ($par{'sqldb'} ne "" );
$p_offset = $par{'offset'} if ($par{'offset'} ne "" );
$p_warn = $par{'warn'} if ($par{'warn'} ne "" );
$p_crit = $par{'crit'} if ($par{'crit'} ne "" );
$p_file = $par{'file'} if ($par{'file'} ne "" );

connect_db($p_sqlhost,$p_sqlport,$p_sqluser,$p_sqlpass,$p_dbname);

if ( $p_crit < $p_warn ){
    print "Critical alert offset cannot be less than warning alert offset\n";
    exit(1);
}

my $pointer = $p_file;
my $logpos = get_mysql_status(0);
my $sec_to_master = get_mysql_status(1);

if ( $sec_to_master > $p_warn ){
    print "Warning! The parameter \"seconds behind master\" greater than $p_warn ($sec_to_master)\n";
    exit(1);
}
elsif ( $sec_to_master > $p_crit ){
    print "CRITICAL! The parameter \"seconds behind master\" greater than $p_crit sec ($sec_to_master)\n";
    exit(2);
}

my $chk_step = $p_offset;

my $time = time();
my $timeleft;

if ( -e $pointer ){
    open (LOG,"$pointer") || error("Cannot open file");
    my @strs = <LOG>;
    close(LOG);
    my ($logtime,$chkpos) = split( /-/, $strs[0]);
    chomp($chkpos);
    my $chktime = $time - $chk_step;
    my $timefut = $logtime + $chk_step;
    $timeleft = $timefut - $time;
    if ( $logtime < $chktime ){
        if ( $chkpos != $logpos ){
            #print "Different - $chkpos - $logpos\n";
        }
        else {
            #print "The same! $chkpos - $logpos\n";
            error("No changes during $chk_step seconds");
        }
        put_result($pointer, $logpos, $time);
        print "OK\n";
        exit(0);
    }
}
else {
    #print "There is no logfile. Creating...\n";
    put_result($pointer, $logpos, $time);
}

print "Waiting for next check... $timeleft seconds left\n";
exit(0);

sub error {
    my $reason = shift;
    print "CRITICAL - $reason\n";
    exit(2);
}

sub put_result {
    my $pointer = shift;
    my $logpos = shift;
    my $time = shift;
    open (FILE, ">$pointer") || error("Cannot open logfile");
    print FILE "$time-$logpos\n";
    close(FILE);
}

sub get_mysql_status {
    my $request = shift;
    my $res;
    my $sth = $dbh->prepare("show slave status");
    $sth->execute;
    my $result = $sth->fetchrow_hashref();
#    print "$result->{'Exec_Master_Log_Pos'}\n";
    if ( $request == 1 ){
        $res = $result->{'Seconds_Behind_Master'};
    }
    else {
        $res = $result->{'Exec_Master_Log_Pos'};
    }
return($res);
}

sub connect_db{
my ($db_base, $db_host, $db_user, $db_pass, $db_enc);

my $db_host = shift;
my $db_port = shift;
my $db_user = shift;
my $db_pass = shift;
my $db_name = shift;

$db_enc = 'utf8';

my $dsn = "DBI:mysql:$db_name:$db_host:$db_port";
$dbh = DBI->connect($dsn, $db_user, $db_pass) || error("MySQL error");
my $sth = $dbh->do("set names \'$db_enc\'");

}
sub help {

my $script = $0;
print <<"[END]";

The script $script made as NRPE plugin. It\'s checking MySQL slave status and generates the correspondent status message.
The command line should be the next:

$script [option1] [value1] [option2] [value2] ... [optionN] [valueN]

You can specify the next options in command line running the script:

-offset [seconds]  - Option that specifies the frequency of comparing of "Exec_Master_Log_Pos" values. If the values stays the same after this time, you get CRITICAL status.
                     Default value: 1800 (30 min)
-warn [seconds]    - Option that specifies the value of "Seconds_Behind_Master" when the script start returning of WARNING status.
                     Default value: 10
-crit [seconds]    - Option that specifies the value of "Seconds_Behind_Master" when the script start returning CRITICAL status.
                     Default value: 300
-sqlhost [address] - MySQL server address
                     Default value: localhost
-sqlport [port]    - MySQL server port
                     Default value: 3306
-sqluser [username]- MySQL username
                     Deafult: root
-sqlpass [password]- MySQL password
                     Default: <none>
-sqldb [name]      - Database name
                     Default: dnsdatadb
-file [/path/file] - File to store time and "Exec_Master_Log_Pos" values.
                     Default: /var/tmp/replcheck
-help                Show this help

Sample:

$script -offset 1800 -warn 10 -crit 300 -sqlhost localhost -sqlport 3306 -sqluser root -sqlpass password -sqldb dnsdatadb -file /var/tmp/replcheck
        $script -offset 1800 -warn 10 -crit 300 -sqlhost localhost
        $script -sqlhost localhost -sqlport 3306 -sqluser root -sqlpass password

[END]

exit;
}

${this.title}

Code Editor : replcheck_param.pl