Devil Killer Is Here MiNi Shell
MiNi SheLL

Current Path : /usr/bin/
Linux boscustweb5006.eigbox.net 5.4.91 #1 SMP Wed Jan 20 18:10:28 EST 2021 x86_64
Current File : //usr/bin/check_nfs_timeouts.pl
#!/usr/bin/perl

use strict;
use Getopt::Long;

### Set up defaults in case we don't get any arguments on the command line
# Debug status
my $debug = 0;
# Set the critical threshold we want to alert on
my $crit = 5;
my $warn = 2;
# How big of a window are we checking?
my $min_ago = 5;

### Get our command line arguments
&GetOptions(
    "warn=i" => \$warn,
    "crit=i" => \$crit,
    "ago=i" => \$min_ago,
    "debug" => \$debug,
    );

# Set up a reverse mapping of month name to number
my %r_months = (
    'Jan' => 1,
    'Feb' => 2,
    'Mar' => 3,
    'Apr' => 4,
    'May' => 5,
    'Jun' => 6,
    'Jul' => 7,
    'Aug' => 8,
    'Sep' => 9,
    'Oct' => 10,
    'Nov' => 11,
    'Dec' => 12,
);



# Convert to seconds
my $sec_ago = $min_ago * 60;

# Get the current time as well as the past time
my $cur_time = localtime();
my $age_time = localtime( time() - $sec_ago );
# Split into fields we actually want to use
$cur_time =~ s/\s+/ /g;
$age_time =~ s/\s+/ /g;
my ($cday, $cmon, $cmday, $ctime, $cyear) = split / /,$cur_time;
print "$cday $cmon $cmday $ctime $cyear\n" if ( $debug );
my ($pday, $pmon, $pmday, $ptime, $pyear) = split / /,$age_time;
print "$pday $pmon $pmday $ptime $pyear\n" if ( $debug );
my ($chour, $cmin, $csec) = split /:/, $ctime;
my ($phour, $pmin, $psec) = split /:/, $ptime;

# Open /var/log/messages, read it in, and close it as fast as possible
open(MSGS,"/var/log/messages") or die "Unable to open /var/log/messages for reading\n";
my @msgs = <MSGS>;
close MSGS;

# Initialize our state
my $count = 0;
my $marked = 0;
foreach my $line ( @msgs ) {
    # Get the timestamp on the messages line
    $line =~ s/\s+/ /g;
    my ($lmon,$lmday,$ltime,$ldata) = split / /,$line,4;
    my ($lhour, $lmin, $lsec) = split /:/, $ltime;

    # Skip varnishd entries in /var/log/messages.  varnishd logs time incorrectly.
    next if ( $line =~ /varnishd/ );

    # Skip CGI script email log entries in /var/log/messages.
    next if ( $line =~ /USER=/ );

    # If we're already past the 'past time', just start checking lines
    if ( $marked == 1 ) {
	# Skip any lines that are missing 'nfs'
	next if ( $line !~ /nfs/ );
	# Skip any lines that are missing 'not responding'
	next if ( $line !~ /not responding/ );
	# Increment our counter
	$count++;
    } else {
	# If the month in the messages line is later than the 'past time'
	#  set the marker
	$marked = 1 if ( $r_months{$lmon} > $r_months{$pmon} );
	print "Found start month\n" if ( $r_months{$lmon} > $r_months{$pmon} && $debug );
	# If the day in the messages line is later than the 'past time'
	#  set the marker
	$marked = 1 if ( $lmday > $pmday && $r_months{$lmon} == $r_months{$pmon});
	print "Found start day on :\n$line\n" if ( $lmday > $pmday && $r_months{$lmon} == $r_months{$pmon} && $debug );

	# If the hour in the messages line is later than the 'past time'
	#  set the marker
	$marked = 1 if ( $lhour > $phour && $lmday == $pmday && $r_months{$lmon} == $r_months{$pmon} );
	print "Found start hour ($lhour > $phour)\n" if ( $lhour > $phour && $lmday == $pmday && $r_months{$lmon} == $r_months{$pmon}  && $debug );
	# If the minute in the messages line is later than the 'past time'
	#  set the marker
	$marked = 1 if ( $lmin > $pmin && $lhour == $phour && $lmday == $pmday && $r_months{$lmon} == $r_months{$pmon} );
	print "Found start minute ($lmin > $pmin)\n" if ( $lmin > $pmin && $lhour == $phour && $lmday == $pmday && $r_months{$lmon} == $r_months{$pmon}  && $debug );
    }
}

# Send a critical alert if we are over our crit level
print "CRITICAL - NFS timeouts ($count >= $crit)\n" if ( $count >= $crit );
# Send a warning if we are over our warn level  but below our crit level
print "WARNING - NFS timeouts ($count >= $warn)\n" if ( $count >= $warn && $count < $crit );
# Send an OK if the counter is below our warning threshold
print "OK - NFS timeouts ($count < $warn)\n" if ( $count < $warn );
exit;
Creat By MiNi SheLL
Email: devilkiller@gmail.com