diff options
Diffstat (limited to 't/check_stuff.pl')
| -rwxr-xr-x | t/check_stuff.pl | 45 |
1 files changed, 20 insertions, 25 deletions
diff --git a/t/check_stuff.pl b/t/check_stuff.pl index 112a18a..4fc125c 100755 --- a/t/check_stuff.pl +++ b/t/check_stuff.pl | |||
| @@ -2,21 +2,21 @@ | |||
| 2 | 2 | ||
| 3 | ### check_stuff.pl | 3 | ### check_stuff.pl |
| 4 | 4 | ||
| 5 | # an example Nagios plugin using the Nagios::Plugin modules. | 5 | # an example Monitoring plugin using the Monitoring::Plugin modules. |
| 6 | 6 | ||
| 7 | # Originally by Nathan Vonnahme, n8v at users dot sourceforge | 7 | # Originally by Nathan Vonnahme, n8v at users dot sourceforge |
| 8 | # dot net, July 19 2006 | 8 | # dot net, July 19 2006 |
| 9 | 9 | ||
| 10 | # Please modify to your heart's content and use as the basis for all | 10 | # Please modify to your heart's content and use as the basis for all |
| 11 | # the really cool Nagios monitoring scripts you're going to create. | 11 | # the really cool monitoring scripts you're going to create. |
| 12 | # You rock. | 12 | # You rock. |
| 13 | 13 | ||
| 14 | ############################################################################## | 14 | ############################################################################## |
| 15 | # prologue | 15 | # prologue |
| 16 | use strict; | 16 | use strict; |
| 17 | use warnings; | 17 | use warnings; |
| 18 | 18 | ||
| 19 | use Nagios::Plugin ; | 19 | use Monitoring::Plugin; |
| 20 | 20 | ||
| 21 | use vars qw($VERSION $PROGNAME $verbose $warn $critical $timeout $result); | 21 | use vars qw($VERSION $PROGNAME $verbose $warn $critical $timeout $result); |
| 22 | $VERSION = '1.0'; | 22 | $VERSION = '1.0'; |
| @@ -28,18 +28,18 @@ $PROGNAME = basename($0); | |||
| 28 | 28 | ||
| 29 | ############################################################################## | 29 | ############################################################################## |
| 30 | # define and get the command line options. | 30 | # define and get the command line options. |
| 31 | # see the command line option guidelines at | 31 | # see the command line option guidelines at |
| 32 | # http://nagiosplug.sourceforge.net/developer-guidelines.html#PLUGOPTIONS | 32 | # https://www.monitoring-plugins.org/doc/guidelines.html#PLUGOPTIONS |
| 33 | 33 | ||
| 34 | 34 | ||
| 35 | # Instantiate Nagios::Plugin object (the 'usage' parameter is mandatory) | 35 | # Instantiate Monitoring::Plugin object (the 'usage' parameter is mandatory) |
| 36 | my $p = Nagios::Plugin->new( | 36 | my $p = Monitoring::Plugin->new( |
| 37 | usage => "Usage: %s [ -v|--verbose ] [-H <host>] [-t <timeout>] | 37 | usage => "Usage: %s [ -v|--verbose ] [-H <host>] [-t <timeout>] |
| 38 | [ -c|--critical=<critical threshold> ] | 38 | [ -c|--critical=<critical threshold> ] |
| 39 | [ -w|--warning=<warning threshold> ] | 39 | [ -w|--warning=<warning threshold> ] |
| 40 | [ -r|--result = <INTEGER> ]", | 40 | [ -r|--result = <INTEGER> ]", |
| 41 | version => $VERSION, | 41 | version => $VERSION, |
| 42 | blurb => 'This plugin is an example of a Nagios plugin written in Perl using the Nagios::Plugin modules. It will generate a random integer between 1 and 20 (though you can specify the number with the -n option for testing), and will output OK, WARNING or CRITICAL if the resulting number is outside the specified thresholds.', | 42 | blurb => 'This plugin is an example of a monitoring plugin written in Perl using the Monitoring::Plugin modules. It will generate a random integer between 1 and 20 (though you can specify the number with the -n option for testing), and will output OK, WARNING or CRITICAL if the resulting number is outside the specified thresholds.', |
| 43 | 43 | ||
| 44 | extra => " | 44 | extra => " |
| 45 | 45 | ||
| @@ -47,11 +47,7 @@ THRESHOLDs for -w and -c are specified 'min:max' or 'min:' or ':max' | |||
| 47 | (or 'max'). If specified '\@min:max', a warning status will be generated | 47 | (or 'max'). If specified '\@min:max', a warning status will be generated |
| 48 | if the count *is* inside the specified range. | 48 | if the count *is* inside the specified range. |
| 49 | 49 | ||
| 50 | See more threshold examples at http | 50 | See more threshold examples at https://www.monitoring-plugins.org/doc/guidelines.html#THRESHOLDFORMAT |
| 51 | : // nagiosplug | ||
| 52 | . sourceforge | ||
| 53 | . net / developer-guidelines | ||
| 54 | . html #THRESHOLDFORMAT | ||
| 55 | 51 | ||
| 56 | Examples: | 52 | Examples: |
| 57 | 53 | ||
| @@ -75,7 +71,7 @@ See more threshold examples at http | |||
| 75 | $p->add_arg( | 71 | $p->add_arg( |
| 76 | spec => 'warning|w=s', | 72 | spec => 'warning|w=s', |
| 77 | 73 | ||
| 78 | help => | 74 | help => |
| 79 | qq{-w, --warning=INTEGER:INTEGER | 75 | qq{-w, --warning=INTEGER:INTEGER |
| 80 | Minimum and maximum number of allowable result, outside of which a | 76 | Minimum and maximum number of allowable result, outside of which a |
| 81 | warning will be generated. If omitted, no warning is generated.}, | 77 | warning will be generated. If omitted, no warning is generated.}, |
| @@ -86,7 +82,7 @@ qq{-w, --warning=INTEGER:INTEGER | |||
| 86 | 82 | ||
| 87 | $p->add_arg( | 83 | $p->add_arg( |
| 88 | spec => 'critical|c=s', | 84 | spec => 'critical|c=s', |
| 89 | help => | 85 | help => |
| 90 | qq{-c, --critical=INTEGER:INTEGER | 86 | qq{-c, --critical=INTEGER:INTEGER |
| 91 | Minimum and maximum number of the generated result, outside of | 87 | Minimum and maximum number of the generated result, outside of |
| 92 | which a critical will be generated. }, | 88 | which a critical will be generated. }, |
| @@ -94,7 +90,7 @@ qq{-c, --critical=INTEGER:INTEGER | |||
| 94 | 90 | ||
| 95 | $p->add_arg( | 91 | $p->add_arg( |
| 96 | spec => 'result|r=f', | 92 | spec => 'result|r=f', |
| 97 | help => | 93 | help => |
| 98 | qq{-r, --result=INTEGER | 94 | qq{-r, --result=INTEGER |
| 99 | Specify the result on the command line rather than generating a | 95 | Specify the result on the command line rather than generating a |
| 100 | random number. For testing.}, | 96 | random number. For testing.}, |
| @@ -106,11 +102,11 @@ $p->getopts; | |||
| 106 | 102 | ||
| 107 | # perform sanity checking on command line options | 103 | # perform sanity checking on command line options |
| 108 | if ( (defined $p->opts->result) && ($p->opts->result < 0 || $p->opts->result > 20) ) { | 104 | if ( (defined $p->opts->result) && ($p->opts->result < 0 || $p->opts->result > 20) ) { |
| 109 | $p->nagios_die( " invalid number supplied for the -r option " ); | 105 | $p->plugin_die( " invalid number supplied for the -r option " ); |
| 110 | } | 106 | } |
| 111 | 107 | ||
| 112 | unless ( defined $p->opts->warning || defined $p->opts->critical ) { | 108 | unless ( defined $p->opts->warning || defined $p->opts->critical ) { |
| 113 | $p->nagios_die( " you didn't supply a threshold argument " ); | 109 | $p->plugin_die( " you didn't supply a threshold argument " ); |
| 114 | } | 110 | } |
| 115 | 111 | ||
| 116 | 112 | ||
| @@ -135,8 +131,7 @@ else { | |||
| 135 | ############################################################################## | 131 | ############################################################################## |
| 136 | # check the result against the defined warning and critical thresholds, | 132 | # check the result against the defined warning and critical thresholds, |
| 137 | # output the result and exit | 133 | # output the result and exit |
| 138 | $p->nagios_exit( | 134 | $p->plugin_exit( |
| 139 | return_code => $p->check_threshold($result), | 135 | return_code => $p->check_threshold($result), |
| 140 | message => " sample result was $result" | 136 | message => " sample result was $result" |
| 141 | ); | 137 | ); |
| 142 | |||
