723 lines
26 KiB
Perl
Executable File
723 lines
26 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
#
|
|
# ============================== SUMMARY =====================================
|
|
#
|
|
# Program : check_uptime.pl
|
|
# Version : 0.521
|
|
# Date : Oct 4, 2012
|
|
# Authors : William Leibzon - william@leibzon.org
|
|
# Licence : GPL - summary below, full text at http://www.fsf.org/licenses/gpl.txt
|
|
#
|
|
# =========================== PROGRAM LICENSE =================================
|
|
#
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 2 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program; if not, write to the Free Software
|
|
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
#
|
|
# ===================== INFORMATION ABOUT THIS PLUGIN =========================
|
|
#
|
|
# This plugin returns uptime of the system returning data in text (readable)
|
|
# format as well as in minutes for performance graphing. The plugin can either
|
|
# run on local system unix system (that supports standard 'uptime' command
|
|
# or check remote system by SNMP. The plugin can report one CRITICAL or
|
|
# WARNING alert if system has been rebooted since last check.
|
|
#
|
|
# ====================== SETUP AND PLUGIN USE NOTES =========================
|
|
#
|
|
# The plugin can either retrieve information from local system (when you
|
|
# run it through check_nrpe for example) or by SNMP from remote system.
|
|
#
|
|
# On local system it will execute standard unix 'uptime' and 'uname -a'.
|
|
#
|
|
# On a remote system it'll retrieve data from sysSystem for system type
|
|
# and use that to decide if further data should be retrieved from
|
|
# sysUptime (OID 1.3.6.1.2.1.1.3.0) for windows or
|
|
# hostUptime (OID 1.3.6.1.2.1.25.1.1.0) for unix system or
|
|
# snmpEngineTime (OID 1.3.6.1.6.3.10.2.1.3) for cisco switches
|
|
#
|
|
# For information on available options please execute it with --help i.e:
|
|
# check_uptime.pl --help
|
|
#
|
|
# As I dont have time for extensive documentation below is all very brief:
|
|
#
|
|
# 1. You can also specify warning and critical thresholds which will
|
|
# give warning or critical alert if system has been up for lees then
|
|
# specified number of minutes. Example:
|
|
# check_uptime.pl -w 5
|
|
# Will give warning alert if system has been up for less then 5 minutes
|
|
#
|
|
# 2. For performance data results you can use '-f' option which will give
|
|
# total number of minutes the system has been up.
|
|
#
|
|
# 3. A special case is use of performance to feed data from previous run
|
|
# back into the plugin. This is used to cache results about what type
|
|
# of system it is (you can also directly specify this with -T option)
|
|
# and also means -w and -c threshold values are ignored and instead
|
|
# plugin will issue ONE alert (warning or critical) if system uptime
|
|
# changes from highier value to lower
|
|
#
|
|
# ============================ EXAMPLES =======================================
|
|
#
|
|
# 1. Local server (use with NRPE or on nagios host), warning on < 5 minutes:
|
|
#
|
|
# define command {
|
|
# command_name check_uptime
|
|
# command_line $USER1$/check_uptime.pl -f -w 5
|
|
# }
|
|
#
|
|
# 2. Local server (use with NRPE or on nagios host),
|
|
# one critical alert on reboot:
|
|
#
|
|
# define command {
|
|
# command_name check_uptime
|
|
# command_line $USER1$/check_uptime.pl -f -c -P "SERVICEPERFDATA$"
|
|
# }
|
|
#
|
|
# 3. Remote server SNMP v2, one warning alert on reboot,
|
|
# autodetect and cache type of server:
|
|
#
|
|
# define command {
|
|
# command_name check_snmp_uptime_v2
|
|
# command_line $USER1$/check_uptime.pl -2 -f -w -H $HOSTADDRESS$ -C $_HOSTSNMP_COMMUNITY$ -P "$SERVICEPERFDATA$"
|
|
# }
|
|
#
|
|
# 4. Remote server SNMP v3, rest as above
|
|
#
|
|
#define command {
|
|
# command_name check_snmp_uptime_v3
|
|
# command_line $USER1$/check_uptime.pl -f -w -H $HOSTADDRESS$ -l $_HOSTSNMP_V3_USER$ -x $_HOSTSNMP_V3_AUTH$ -X $_HOSTSNMP_V3_PRIV$ -L sha,aes -P "$SERVICEPERFDATA$"
|
|
# }
|
|
#
|
|
# 5. Example of service definition using above
|
|
#
|
|
# define service{
|
|
# use std-service
|
|
# hostgroup_name all_snmp_hosts
|
|
# service_description SNMP Uptime
|
|
# max_check_attempts 1
|
|
# check_command check_snmp_uptime
|
|
# }
|
|
#
|
|
# 6. And this is optional dependency definition for above which makes
|
|
# every SNMP service (service beloning to SNMP servicegroup) on
|
|
# same host dependent on this SNMP Uptime check. Then if SNMP
|
|
# daemon goes down you only receive one alert
|
|
#
|
|
# define servicedependency{
|
|
# service_description SNMP Uptime
|
|
# dependent_servicegroup_name snmp
|
|
# }
|
|
#
|
|
# ============================= VERSION HISTORY ==============================
|
|
#
|
|
# 0.1 - sometime 2006 : Simple script for tracking local system uptime
|
|
# 0.2 - sometime 2008 : Update to get uptime by SNMP, its now alike my other plugins
|
|
# 0.3 - Nov 14, 2009 : Added getting system info line and using that to decide
|
|
# format of uptime line and how to process it. Added support
|
|
# for getting uptime with SNMP from windows systems.
|
|
# Added documentation header alike my other plugins.
|
|
# Planned to release it to public, but forgot.
|
|
# 0.4 - Dec 19, 2011 : Update to support SNMP v3, released to public
|
|
# 0.41 - Jan 13, 2012 : Added bug fix by Rom_UA posted as comment on Nagios Exchange
|
|
# Added version history you're reading right now.
|
|
# 0.42 - Feb 13, 2012 : Bug fix to not report WARNING if uptime is not correct output
|
|
# 0.5 - Feb 29, 2012 : Added support for "netswitch" engine type that retrieves
|
|
# snmpEngineTime. Added proper support for sysUpTime interpreting
|
|
# it as 1/100s of a second and converting to days,hours,minutes
|
|
# Changed internal processing structure, now reported uptime
|
|
# info text is based on uptime_minutes and not separate.
|
|
# 0.51 - Jun 05, 2012 : Bug fixed for case when when snmp system info is < 3 words.
|
|
# 0.52 - Jun 19, 2012 : For switches if snmpEngineTime OID is not available,
|
|
# the plugin will revert back to checking hostUptime and
|
|
# then sysUptime. Entire logic has in fact been changed
|
|
# to support trying more than just two OIDs. Also added
|
|
# support to specify filename to '-v' option for debug
|
|
# output to go to instead of console and for '--debug'
|
|
# option as an alias to '--verbose'.
|
|
# 0.521 - Oct 4, 2012 : Small bug in one of regex, see issue #11 on github
|
|
#
|
|
# TODO:
|
|
# 0) Add '--extra-opts' to allow to read options from a file as specified
|
|
# at http://nagiosplugins.org/extra-opts. This is TODO for all my plugins
|
|
# 1) Add support for ">", "<" and other threshold qualifiers
|
|
# as done in check_snmp_temperature.pl or check_mysqld.pl
|
|
# 2) Support for more types, in particular network equipment such as cisco: [DONE]
|
|
# sysUpTime is a 32-bit counter in 1/100 of a second, it rolls over after 496 days
|
|
# snmpEngineTime (.1.3.6.1.6.3.10.2.1.3) returns the uptime in seconds and will not
|
|
# roll over, however some cisco switches (29xx) are buggy and it gets reset too.
|
|
# Routers running 12.0(3)T or higher can use the snmpEngineTime object from
|
|
# the SNMP-FRAMEWORK-MIB. This keeps track of seconds since SNMP engine started.
|
|
# 3) Add threshold into perfout as ';warn;crit'
|
|
#
|
|
# ========================== START OF PROGRAM CODE ===========================
|
|
|
|
use strict;
|
|
use Getopt::Long;
|
|
|
|
# Nagios specific
|
|
our $TIMEOUT;
|
|
our %ERRORS;
|
|
eval 'use utils qw(%ERRORS $TIMEOUT)';
|
|
if ($@) {
|
|
$TIMEOUT = 10;
|
|
%ERRORS = ('OK'=>0,'WARNING'=>1,'CRITICAL'=>2,'UNKNOWN'=>3,'DEPENDENT'=>4);
|
|
}
|
|
|
|
our $no_snmp=0;
|
|
eval 'use Net::SNMP';
|
|
if ($@) {
|
|
$no_snmp=1;
|
|
}
|
|
|
|
# Version
|
|
my $Version='0.52';
|
|
|
|
# SNMP OID
|
|
my $oid_sysSystem = '1.3.6.1.2.1.1.1.0'; # windows and some unix
|
|
my $oid_hostUptime = '1.3.6.1.2.1.25.1.1.0'; # hostUptime, usually unix systems
|
|
my $oid_sysUptime = '1.3.6.1.2.1.1.3.0'; # sysUpTime, windows
|
|
my $oid_engineTime = '1.3.6.1.6.3.10.2.1.3'; # SNMP-FRAMEWORK-MIB
|
|
|
|
my @oid_uptime_types = ( ['', '', ''], # type 0 is reserved
|
|
[ 'local', '', ''], # type 1 is local
|
|
[ 'win', 'sysUpTime', $oid_sysUptime ], # type 2 is windows
|
|
[ 'unix-host', 'hostUpTime', $oid_hostUptime ], # type 3 is unix-host
|
|
[ 'unix-sys', 'sysUpTime', $oid_sysUptime ], # type 4 is unix-sys
|
|
[ 'net', 'engineTime', $oid_engineTime ]); # type 5 is netswitch
|
|
|
|
# Not used, but perhaps later
|
|
my $oid_hrLoad = '1.3.6.1.2.1.25.3.3.1.2.1';
|
|
my $oid_sysLoadInt1 = '1.3.6.1.4.1.2021.10.1.5.1';
|
|
my $oid_sysLoadInt5 = '1.3.6.1.4.1.2021.10.1.5.2';
|
|
my $oid_sysLoadInt15 = '1.3.6.1.4.1.2021.10.1.5.3';
|
|
|
|
# Standard options
|
|
my $o_host = undef; # hostname
|
|
my $o_timeout= undef; # Timeout (Default 10)
|
|
my $o_help= undef; # wan't some help ?
|
|
my $o_verb= undef; # verbose mode
|
|
my $o_version= undef; # print version
|
|
my $o_label= undef; # change label instead of printing uptime
|
|
my $o_perf= undef; # Output performance data (uptime in minutes)
|
|
my $o_prevperf= undef; # performance data given with $SERVICEPERFDATA$ macro
|
|
my $o_warn= undef; # WARNING alert if system has been up for < specified number of minutes
|
|
my $o_crit= undef; # CRITICAL alert if system has been up for < specified number of minutes
|
|
my $o_type= undef; # type of check (local, auto, unix, win)
|
|
|
|
# Login and other options specific to SNMP
|
|
my $o_port = 161; # SNMP port
|
|
my $o_community = undef; # community
|
|
my $o_version2 = undef; # use snmp v2c
|
|
my $o_login= undef; # Login for snmpv3
|
|
my $o_passwd= undef; # Pass for snmpv3
|
|
my $v3protocols= undef; # V3 protocol list.
|
|
my $o_authproto= 'md5'; # Auth protocol
|
|
my $o_privproto= 'des'; # Priv protocol
|
|
my $o_privpass= undef; # priv password
|
|
|
|
## Additional global variables
|
|
my %prev_perf= (); # array that is populated with previous performance data
|
|
my $check_type = 0;
|
|
|
|
sub p_version { print "check_uptime version : $Version\n"; }
|
|
|
|
sub print_usage {
|
|
print "Usage: $0 [-v [debugfilename]] [-T local|unix-host|unix-sys|win|net] [-H <host> (-C <snmp_community>) [-2] | (-l login -x passwd [-X pass -L <authp>,<privp>) [-p <port>]] [-w <warn minutes> -s <crit minutes>] [-f] [-P <previous perf data from nagios \$SERVICEPERFDATA\$>] [-t <timeout>] | [-V] [--label <string>]\n";
|
|
}
|
|
|
|
sub isnnum { # Return true if arg is not a number
|
|
my $num = shift;
|
|
if ( $num =~ /^(\d+\.?\d*)|(^\.\d+)$/ ) { return 0 ;}
|
|
return 1;
|
|
}
|
|
|
|
sub div_mod { return int( $_[0]/$_[1]) , ($_[0] % $_[1]); }
|
|
|
|
sub help {
|
|
print "\nUptime Plugin for Nagios (check_uptime) v. ",$Version,"\n";
|
|
print "GPL licence, (c) 2008-2012 William Leibzon\n\n";
|
|
print_usage();
|
|
print <<EOT;
|
|
|
|
Debug & Console Options:
|
|
-v, --verbose[=FILENAME], --debug[=FILENAME]
|
|
print extra debugging information.
|
|
if filename is specified instead of STDOUT the debug data is written to that file
|
|
-h, --help
|
|
print this help message
|
|
-V, --version
|
|
prints version number
|
|
|
|
Standard Options:
|
|
-T, --type=auto|local|unix-host|unis-sys|windows|netswitch
|
|
Type of system:
|
|
local : localhost (executes 'uptime' command), default if no -C or -l
|
|
unix-host : SNMP check from hostUptime ($oid_hostUptime) OID
|
|
unix-sys : SNMP check from sysUptime ($oid_sysUptime) OID
|
|
win | windows : SNMP check from sysUptime ($oid_sysUptime) OID
|
|
net | netswitch : SNMP check from snmpEngineTime ($oid_engineTime) OID
|
|
auto : Autodetect what system by checking sysSystem OID first, default
|
|
-w, --warning[=minutes]
|
|
Report nagios WARNING alert if system has been up for less then specified
|
|
number of minutes. If no minutes are specified but previous preformance
|
|
data is fed back with -P option then alert is sent ONLY ONCE when
|
|
uptime changes from greater value to smaller
|
|
-c, --critical[=minutes]
|
|
Report nagios CRITICAL alert if system has been up for less then
|
|
specified number of minutes or ONE ALERT if -P option is used and
|
|
system's previous uptime is larger then current on
|
|
-f, --perfparse
|
|
Perfparse compatible output
|
|
-P, --prev_perfdata
|
|
Previous performance data (normally put '-P \$SERVICEPERFDATA\$' in
|
|
nagios command definition). This is recommended if you dont specify
|
|
type of system with -T so that previously checked type of system info
|
|
is reused. This is also used to decide on warning/critical condition
|
|
if number of seconds is not specified with -w or -c.
|
|
--label=[string]
|
|
Optional custom label before results prefixed to results
|
|
-t, --timeout=INTEGER
|
|
timeout for SNMP in seconds (Default: 15)
|
|
|
|
SNMP Access Options:
|
|
-H, --hostname=HOST
|
|
name or IP address of host to check (if not localhost)
|
|
-C, --community=COMMUNITY NAME
|
|
community name for the SNMP agent (used with v1 or v2c protocols)
|
|
-2, --v2c
|
|
use snmp v2c (can not be used with -l, -x)
|
|
-l, --login=LOGIN ; -x, --passwd=PASSWD
|
|
Login and auth password for snmpv3 authentication
|
|
If no priv password exists, implies AuthNoPriv
|
|
-X, --privpass=PASSWD
|
|
Priv password for snmpv3 (AuthPriv protocol)
|
|
-L, --protocols=<authproto>,<privproto>
|
|
<authproto> : Authentication protocol (md5|sha : default md5)
|
|
<privproto> : Priv protocols (des|aes : default des)
|
|
-p, --port=PORT
|
|
SNMP port (Default 161)
|
|
EOT
|
|
}
|
|
|
|
# For verbose output (updated 06/06/12 to write to debug file if specified)
|
|
sub verb {
|
|
my $t=shift;
|
|
if (defined($o_verb)) {
|
|
if ($o_verb eq "") {
|
|
print $t,"\n";
|
|
}
|
|
else {
|
|
if (!open(DEBUGFILE, ">>$o_verb")) {
|
|
print $t, "\n";
|
|
}
|
|
else {
|
|
print DEBUGFILE $t,"\n";
|
|
close DEBUGFILE;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
# load previous performance data
|
|
sub process_perf {
|
|
my %pdh;
|
|
my ($nm,$dt);
|
|
foreach (split(' ',$_[0])) {
|
|
if (/(.*)=(.*)/) {
|
|
($nm,$dt)=($1,$2);
|
|
verb("prev_perf: $nm = $dt");
|
|
# in some of my plugins time_ is to profile how long execution takes for some part of plugin
|
|
# $pdh{$nm}=$dt if $nm !~ /^time_/;
|
|
$pdh{$nm}=$dt;
|
|
}
|
|
}
|
|
return %pdh;
|
|
}
|
|
|
|
sub type_from_name {
|
|
my $type=shift;
|
|
for(my $i=1; $i<scalar(@oid_uptime_types); $i++) {
|
|
if ($oid_uptime_types[$i][0] eq $type) {
|
|
return $i;
|
|
}
|
|
}
|
|
return -1;
|
|
}
|
|
|
|
|
|
sub check_options {
|
|
Getopt::Long::Configure ("bundling");
|
|
GetOptions(
|
|
'v:s' => \$o_verb, 'verbose:s' => \$o_verb, "debug:s" => \$o_verb,
|
|
'h' => \$o_help, 'help' => \$o_help,
|
|
'H:s' => \$o_host, 'hostname:s' => \$o_host,
|
|
'p:i' => \$o_port, 'port:i' => \$o_port,
|
|
'C:s' => \$o_community, 'community:s' => \$o_community,
|
|
'2' => \$o_version2, 'v2c' => \$o_version2,
|
|
'l:s' => \$o_login, 'login:s' => \$o_login,
|
|
'x:s' => \$o_passwd, 'passwd:s' => \$o_passwd,
|
|
'X:s' => \$o_privpass, 'privpass:s' => \$o_privpass,
|
|
'L:s' => \$v3protocols, 'protocols:s' => \$v3protocols,
|
|
't:i' => \$o_timeout, 'timeout:i' => \$o_timeout,
|
|
'V' => \$o_version, 'version' => \$o_version,
|
|
'f' => \$o_perf, 'perfparse' => \$o_perf,
|
|
'w:i' => \$o_warn, 'warning:i' => \$o_warn,
|
|
'c:i' => \$o_crit, 'critical:i' => \$o_crit,
|
|
'label:s' => \$o_label,
|
|
'P:s' => \$o_prevperf, 'prev_perfdata:s' => \$o_prevperf,
|
|
'T:s' => \$o_type, 'type:s' => \$o_type,
|
|
);
|
|
if (defined ($o_help) ) { help(); exit $ERRORS{"UNKNOWN"}};
|
|
if (defined($o_version)) { p_version(); exit $ERRORS{"UNKNOWN"}};
|
|
|
|
$o_type = "win" if defined($o_type) && $o_type eq 'windows';
|
|
$o_type = "net" if defined($o_type) && $o_type eq 'netswitch';
|
|
if (defined($o_type) && $o_type ne 'auto' && type_from_name($o_type)==-1) {
|
|
print "Invalid system type specified\n"; print_usage(); exit $ERRORS{"UNNKNOWN"};
|
|
}
|
|
|
|
if (!defined($o_community) && (!defined($o_login) || !defined($o_passwd)) ) {
|
|
$o_type='local' if !defined($o_type) || $o_type eq 'auto';
|
|
if ($o_type ne 'local') {
|
|
print "Put snmp login info!\n"; print_usage(); exit $ERRORS{"UNKNOWN"}
|
|
}
|
|
if (defined($o_host)) {
|
|
print "Why are you specifying hostname without SNMP parameters?\n"; print_usage(); exit $ERRORS{"UNKNOWN"};
|
|
}
|
|
}
|
|
else {
|
|
$o_type='auto' if !defined($o_type);
|
|
if ($o_type eq 'local' ) {
|
|
print "Why are you specifying SNMP login for local system???\n"; print_usage(); exit $ERRORS{"UNKNOWN"}
|
|
}
|
|
if (!defined($o_host)) {
|
|
print "Hostname required for SNMP check.\n"; print_usage(); exit $ERRORS{"UNKNOWN"};
|
|
}
|
|
if ($no_snmp) {
|
|
print "Can't locate Net/SNMP.pm\n"; print_usage(); exit $ERRORS{"UNKNOWN"};
|
|
}
|
|
}
|
|
|
|
# check snmp information
|
|
if ((defined($o_login) || defined($o_passwd)) && (defined($o_community) || defined($o_version2)) )
|
|
{ print "Can't mix snmp v1,2c,3 protocols!\n"; print_usage(); exit $ERRORS{"UNKNOWN"}}
|
|
if (defined ($v3protocols)) {
|
|
if (!defined($o_login)) { print "Put snmp V3 login info with protocols!\n"; print_usage(); exit $ERRORS{"UNKNOWN"}}
|
|
my @v3proto=split(/,/,$v3protocols);
|
|
if ((defined ($v3proto[0])) && ($v3proto[0] ne "")) {$o_authproto=$v3proto[0]; } # Auth protocol
|
|
if (defined ($v3proto[1])) {$o_privproto=$v3proto[1]; } # Priv protocol
|
|
if ((defined ($v3proto[1])) && (!defined($o_privpass)))
|
|
{ print "Put snmp V3 priv login info with priv protocols!\n"; print_usage(); exit $ERRORS{"UNKNOWN"}}
|
|
}
|
|
|
|
if (defined($o_timeout) && (isnnum($o_timeout) || ($o_timeout < 2) || ($o_timeout > 60)))
|
|
{ print "Timeout must be >1 and <60 !\n"; print_usage(); exit $ERRORS{"UNKNOWN"}}
|
|
if (!defined($o_timeout)) {$o_timeout=$TIMEOUT+5;}
|
|
|
|
if (defined($o_prevperf)) {
|
|
if (defined($o_perf)) {
|
|
%prev_perf=process_perf($o_prevperf);
|
|
$check_type = $prev_perf{type} if $o_type eq 'auto' && exists($prev_perf{tye}) && exists($oid_uptime_types[$prev_perf{type}][0]);
|
|
}
|
|
else {
|
|
print "need -f option first \n"; print_usage(); exit $ERRORS{"UNKNOWN"};
|
|
}
|
|
}
|
|
|
|
if ($o_type eq 'auto') {
|
|
$check_type=0;
|
|
}
|
|
else {
|
|
$check_type = type_from_name($o_type);
|
|
}
|
|
}
|
|
|
|
sub create_snmp_session {
|
|
my ($session,$error);
|
|
|
|
if ( defined($o_login) && defined($o_passwd)) {
|
|
# SNMPv3 login
|
|
if (!defined ($o_privpass)) {
|
|
verb("SNMPv3 AuthNoPriv login : $o_login, $o_authproto");
|
|
($session, $error) = Net::SNMP->session(
|
|
-hostname => $o_host,
|
|
-version => '3',
|
|
-port => $o_port,
|
|
-username => $o_login,
|
|
-authpassword => $o_passwd,
|
|
-authprotocol => $o_authproto,
|
|
-timeout => $o_timeout
|
|
);
|
|
} else {
|
|
verb("SNMPv3 AuthPriv login : $o_login, $o_authproto, $o_privproto");
|
|
($session, $error) = Net::SNMP->session(
|
|
-hostname => $o_host,
|
|
-version => '3',
|
|
-username => $o_login,
|
|
-port => $o_port,
|
|
-authpassword => $o_passwd,
|
|
-authprotocol => $o_authproto,
|
|
-privpassword => $o_privpass,
|
|
-privprotocol => $o_privproto,
|
|
-timeout => $o_timeout
|
|
);
|
|
}
|
|
} else {
|
|
if (defined ($o_version2)) {
|
|
# SNMPv2c Login
|
|
verb("SNMP v2c login");
|
|
($session, $error) = Net::SNMP->session(
|
|
-hostname => $o_host,
|
|
-version => 2,
|
|
-community => $o_community,
|
|
-port => $o_port,
|
|
-timeout => $o_timeout
|
|
);
|
|
} else {
|
|
# SNMPV1 login
|
|
verb("SNMP v1 login");
|
|
($session, $error) = Net::SNMP->session(
|
|
-hostname => $o_host,
|
|
-community => $o_community,
|
|
-port => $o_port,
|
|
-timeout => $o_timeout
|
|
);
|
|
}
|
|
}
|
|
if (!defined($session)) {
|
|
printf("ERROR opening session: %s.\n", $error);
|
|
exit $ERRORS{"UNKNOWN"};
|
|
}
|
|
|
|
return $session;
|
|
}
|
|
|
|
$SIG{'ALRM'} = sub {
|
|
print "Alarm timeout\n";
|
|
exit $ERRORS{"UNKNOWN"};
|
|
};
|
|
|
|
########## MAIN #######
|
|
my $system_info="";
|
|
my $uptime_info=undef;
|
|
my $uptime_minutes=undef;
|
|
my $perf_out="";
|
|
my $status=0;
|
|
my $uptime_output;
|
|
my ($days, $hrs, $mins);
|
|
|
|
check_options();
|
|
|
|
# Check gobal timeout if snmp screws up
|
|
if (defined($o_timeout)) {
|
|
verb("Alarm at $o_timeout + 5");
|
|
alarm($o_timeout+5);
|
|
}
|
|
|
|
if ($check_type==1) { # local
|
|
# Process unix uptime command output
|
|
$uptime_output=`uptime`;
|
|
verb("Local Uptime Result is: $uptime_output");
|
|
if ($uptime_output =~ /(\d+)\s+days?,\s+(\d+)\:(\d+)/) {
|
|
($days, $hrs, $mins) = ($1, $2, $3);
|
|
}
|
|
elsif ($uptime_output =~ /up\s+(\d+)\shours?\s+(\d+)/) {
|
|
($days, $hrs, $mins) = (0, $1, $2);
|
|
}
|
|
elsif ($uptime_output =~ /up\s+(\d+)\:(\d+)/) {
|
|
($days, $hrs, $mins) = (0, $1, $2);
|
|
}
|
|
elsif ($uptime_output =~ /up\s+(\d+)\s+min/) {
|
|
($days, $hrs, $mins) = (0,0,$1);
|
|
}
|
|
elsif ($uptime_output =~ /up\s+(\d+)s+days?,s+(\d+)s+min/) {
|
|
($days, $hrs, $mins) = ($1,0,$2);
|
|
}
|
|
else {
|
|
$uptime_info = "up ".$uptime_output;
|
|
}
|
|
if (defined($days) && defined($hrs) && defined($mins)) {
|
|
$uptime_minutes = $days*24*60+$hrs*60+$mins;
|
|
}
|
|
my @temp=split(' ',`uname -a`);
|
|
if (scalar(@temp)<3) {
|
|
$system_info=`uname -a`;
|
|
}
|
|
else {
|
|
$system_info=join(' ',$temp[0],$temp[1],$temp[2]);
|
|
}
|
|
}
|
|
else {
|
|
# SNMP connection
|
|
my $session=create_snmp_session();
|
|
my $result=undef;
|
|
my $oid="";
|
|
my $guessed_check_type=0;
|
|
|
|
if ($check_type==0){
|
|
$result = $session->get_request(-varbindlist=>[$oid_sysSystem]);
|
|
if (!defined($result)) {
|
|
printf("ERROR: Can not retrieve $oid_sysSystem table: %s.\n", $session->error);
|
|
$session->close;
|
|
exit $ERRORS{"UNKNOWN"};
|
|
}
|
|
verb("$o_host SysInfo Result from OID $oid_sysSystem: $result->{$oid_sysSystem}");
|
|
if ($result->{$oid_sysSystem} =~ /Windows/) {
|
|
$guessed_check_type=2;
|
|
verb('Guessing Type: 2 = windows');
|
|
}
|
|
if ($result->{$oid_sysSystem} =~ /Cisco/) {
|
|
$guessed_check_type=5;
|
|
verb('Guessing Type: 5 = netswitch');
|
|
}
|
|
if ($guessed_check_type==0) {
|
|
$guessed_check_type=3; # will try hostUptime first
|
|
}
|
|
$oid=$oid_uptime_types[$guessed_check_type][2];
|
|
}
|
|
else {
|
|
$oid=$oid_uptime_types[$check_type][2];
|
|
}
|
|
|
|
do {
|
|
$result = $session->get_request(-varbindlist=>[$oid,$oid_sysSystem]);
|
|
if (!defined($result)) {
|
|
if ($check_type!=0) {
|
|
printf("ERROR: Can not retrieve uptime OID table $oid: %s.\n", $session->error);
|
|
$session->close;
|
|
exit $ERRORS{"UNKNOWN"};
|
|
}
|
|
else {
|
|
if ($session->error =~ /noSuchName/) {
|
|
if ($guessed_check_type==4) {
|
|
verb("Received noSuchName error for sysUpTime OID $oid. Giving up.");
|
|
$guessed_check_type=0;
|
|
}
|
|
if ($guessed_check_type==3) {
|
|
verb("Received noSuchName error for hostUpTime OID $oid, will now try sysUpTime");
|
|
$guessed_check_type=4;
|
|
}
|
|
else {
|
|
verb("Received noSuchName error for OID $oid, will now try hostUpTime");
|
|
$guessed_check_type=3;
|
|
}
|
|
if ($guessed_check_type!=0) {
|
|
$oid=$oid_uptime_types[$guessed_check_type][2];
|
|
}
|
|
}
|
|
else {
|
|
printf("ERROR: Can not retrieve uptime OID table $oid: %s.\n", $session->error);
|
|
$session->close;
|
|
exit $ERRORS{"UNKNOWN"};
|
|
}
|
|
}
|
|
}
|
|
else {
|
|
if ($check_type==0) {
|
|
$check_type=$guessed_check_type;
|
|
}
|
|
}
|
|
}
|
|
while (!defined($result) && $guessed_check_type!=0);
|
|
|
|
$session->close;
|
|
if ($check_type==0 && $guessed_check_type==0) {
|
|
printf("ERROR: Can not autodetermine proper uptime OID table. Giving up.\n");
|
|
exit $ERRORS{"UNKNOWN"};
|
|
}
|
|
|
|
my ($days, $hrs, $mins);
|
|
$uptime_output=$result->{$oid};
|
|
verb("$o_host Uptime Result from OID $oid: $uptime_output");
|
|
|
|
if ($uptime_output =~ /(\d+)\s+days?,\s+(\d+)\:(\d+)/) {
|
|
($days, $hrs, $mins) = ($1, $2, $3);
|
|
}
|
|
elsif ($uptime_output =~ /(\d+)\s+hours?,\s+(\d+)\:(\d+)/) {
|
|
($days, $hrs, $mins) = (0, $1, $2);
|
|
}
|
|
elsif ($uptime_output =~ /(\d+)\s+min/) {
|
|
($days, $hrs, $mins) = (0, 0, $1);
|
|
}
|
|
if (defined($days) && defined($hrs) && defined($mins)) {
|
|
$uptime_minutes = $days*24*60+$hrs*60+$mins;
|
|
}
|
|
elsif ($uptime_output =~ /^(\d+)$/) {
|
|
my $upnum = $1;
|
|
if ($oid eq $oid_sysUptime) {
|
|
$uptime_minutes = $upnum/100/60;
|
|
}
|
|
elsif ($oid eq $oid_engineTime) {
|
|
$uptime_minutes = $upnum/60;
|
|
}
|
|
}
|
|
else {
|
|
$uptime_info = "up ".$uptime_output;
|
|
}
|
|
my @temp=split(' ',$result->{$oid_sysSystem});
|
|
if (scalar(@temp)<3) {
|
|
$system_info=$result->{$oid_sysSystem};
|
|
}
|
|
else {
|
|
$system_info=join(' ',$temp[0],$temp[1],$temp[2]);
|
|
}
|
|
}
|
|
|
|
if (defined($uptime_minutes) && !defined($uptime_info)) {
|
|
($hrs,$mins) = div_mod($uptime_minutes,60);
|
|
($days,$hrs) = div_mod($hrs,24);
|
|
$uptime_info = "up ";
|
|
$uptime_info .= "$days days " if $days>0;
|
|
$uptime_info .= "$hrs hours " if $hrs>0;
|
|
$uptime_info .= "$mins minutes";
|
|
}
|
|
|
|
verb("System Type: $check_type (".$oid_uptime_types[$check_type][0].")");
|
|
verb("System Info: $system_info") if $system_info;
|
|
verb("Uptime Text: $uptime_info") if defined($uptime_info);
|
|
verb("Uptime Minutes: $uptime_minutes") if defined($uptime_minutes);
|
|
|
|
if (!defined($uptime_info)) {
|
|
$uptime_info = "Can not determine uptime";
|
|
$status = 3;
|
|
}
|
|
|
|
if (defined($o_perf)) {
|
|
$perf_out = "type=$check_type";
|
|
$perf_out .= " uptime_minutes=$uptime_minutes" if defined($uptime_minutes);
|
|
}
|
|
|
|
if (defined($uptime_minutes)) {
|
|
if (defined($o_prevperf)) {
|
|
$status = 1 if defined($o_warn) && exists($prev_perf{uptime_minutes}) && $prev_perf{uptime_minutes} > $uptime_minutes;
|
|
$status = 2 if defined($o_crit) && exists($prev_perf{uptime_minutes}) && $prev_perf{uptime_minutes} > $uptime_minutes;
|
|
}
|
|
else {
|
|
$status = 1 if defined($o_warn) && !isnnum($o_warn) && $o_warn >= $uptime_minutes;
|
|
$status = 2 if defined($o_crit) && !isnnum($o_crit) && $o_crit >= $uptime_minutes;
|
|
}
|
|
}
|
|
alarm(0);
|
|
|
|
my $exit_status="UNKNOWN";
|
|
$exit_status="OK" if $status==0;
|
|
$exit_status="WARNING" if $status==1;
|
|
$exit_status="CRITICAL" if $status==2;
|
|
$exit_status="UNKNOWN" if $status==3;
|
|
$exit_status="$o_label $exit_status" if defined($o_label);
|
|
print "$exit_status: $system_info";
|
|
print " - $uptime_info";
|
|
print " | ",$perf_out if $perf_out;
|
|
print "\n";
|
|
exit $status;
|