dispersion check now controlled by warn and crit

git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@90 f882894a-f735-0410-b71e-b25c423dba1c

diff --git a/plugins-scripts/check_ntp.pl b/plugins-scripts/check_ntp.pl
index fee58e69deb1107a0c381f567e5939bbc8c53fc0..dce515ef243dd2c50604c7cabe5a9b4658150f22 100755 (executable)
--- a/plugins-scripts/check_ntp.pl
+++ b/plugins-scripts/check_ntp.pl
@@ -76,8 +76,8 @@ GetOptions
        ("V"   => \$opt_V, "version"    => \$opt_V,
         "h"   => \$opt_h, "help"       => \$opt_h,
         "v" => \$verbose, "verbose"  => \$verbose,
-        "w=s" => \$opt_w, "warning=s"  => \$opt_w,   # offset|adjust warning if above this number
-        "c=s" => \$opt_c, "critical=s" => \$opt_c,   # offset|adjust critical if above this number
+        "w=f" => \$opt_w, "warning=f"  => \$opt_w,   # offset|adjust warning if above this number
+        "c=f" => \$opt_c, "critical=f" => \$opt_c,   # offset|adjust critical if above this number
         "H=s" => \$opt_H, "hostname=s" => \$opt_H);
 
 if ($opt_V) {
@@ -98,13 +98,14 @@ unless ($host) {
        exit $ERRORS{'UNKNOWN'};
 }
 
-($opt_w) || ($opt_w = shift) || ($opt_w = 60);
-my $warning = $1 if ($opt_w =~ /([0-9]+)/);
+($opt_w) || ($opt_w = 60);
+my $warning = $1 if ($opt_w =~ /([0-9.]+)/);
 
-($opt_c) || ($opt_c = shift) || ($opt_c = 120);
-my $critical = $1 if ($opt_c =~ /([0-9]+)/);
+($opt_c) || ($opt_c = 120);
+my $critical = $1 if ($opt_c =~ /([0-9.]+)/);
 
-if ($opt_c < $opt_w) {
+
+if ($critical < $warning ) {
        print "Critical offset should be larger than warning offset\n";
        print_usage();
        exit $ERRORS{"UNKNOWN"};
@@ -189,11 +190,11 @@ if ($have_ntpdc) {
                while (<NTPDC>) {
                        print $_ if ($verbose);
                        if (/([^\s]+)\s+([-0-9.]+)\s+([-0-9.]+)\s+([-0-9.]+)\s+([-0-9.]+)\s+([-0-9.]+)\s+([-0-9.]+)\s+([-0-9.]+)/) {
-                               if ($8>15) {
-                                       print "Dispersion = $8 \n" if ($verbose);
+                               if ($8 gt $critical) {
+                                       print "Dispersion_crit = $8 :$critical\n" if ($verbose);
                                        $dispersion_error = $ERRORS{'CRITICAL'};
-                               } elsif ($8>5 && $dispersion_error<$ERRORS{'CRITICAL'}) {
-                                       print "Dispersion = $8 \n" if ($verbose);
+                               } elsif ($8 gt $warning ) {
+                                       print "Dispersion_warn = $8 :$warning \n" if ($verbose);
                                        $dispersion_error = $ERRORS{'WARNING'};
                                } else {
                                        $dispersion_error = $ERRORS{'OK'};
@@ -252,7 +253,7 @@ foreach $key (keys %ERRORS) {
 exit $state;
 
 sub print_usage () {
-       print "Usage: $PROGNAME -H <host> [-w <warn>] [-c <crit>]\n";
+       print "Usage: $PROGNAME -H <host> [-w <warn>] [-c <crit>] [-v verbose]\n";
 }
 
 sub print_help () {
@@ -263,5 +264,7 @@ sub print_help () {
        print "\n";
        print "<warn> = Clock offset in seconds at which a warning message will be generated.\n Defaults to 60.\n";
        print "<crit> = Clock offset in seconds at which a critical message will be generated.\n        Defaults to 120.\n\n";
+       print "The same warning and critical values are used to check against the dispersion \n";
+       print "column of ntpdc/xntpdc for the host being queried.\n\n";
        support();
 }