summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 08deb74)
raw | patch | inline | side by side (parent: 08deb74)
author | Matthias Eble <psychotrahe@gmx.de> | |
Thu, 11 Jun 2009 00:29:13 +0000 (02:29 +0200) | ||
committer | Matthias Eble <psychotrahe@gmx.de> | |
Thu, 11 Jun 2009 00:29:13 +0000 (02:29 +0200) |
Added proper usage messages in case of missing arguments.
Removed accidently committed Data::Dumper call.
Minor whitespace fixes.
Removed accidently committed Data::Dumper call.
Minor whitespace fixes.
NEWS | patch | blob | history | |
plugins-scripts/check_ifoperstatus.pl | patch | blob | history |
index 768a1cc3ef51a087d7f7b2000fee339b2ccfe1bd..66106e07126fc36970c16cf7a3703e6c4821fe4d 100644 (file)
--- a/NEWS
+++ b/NEWS
check_snmp now supports standard threshold ranges and doubles (floating numbers) in thresholds
check_fping now supports passing target timeout and interval to fping (#2347686 - Martin Foster)
Fixed SNMPv3 behaviour of check_ifoperstatus. Added -x to define privprotocol (#2343438 - Robin Schroeder)
+ check_ifoperstatus is now more userfriendly in case of missing arguments
1.4.13 25th Sept 2008
Fix Debian bug #460097: check_http --max-age broken (Hilko Bengen)
index 88782f52d1878f94760faff986ec1f24d65cfaad..e137e7fd8e20fc95594b80aa47389ef98d4672ad 100755 (executable)
my $PROGNAME = "check_ifoperstatus";
sub print_help ();
-sub usage ();
+sub usage ($);
+sub print_usage ();
sub process_arguments ();
my $timeout;
my $status;
my %ifOperStatus = ('1','up',
- '2','down',
- '3','testing',
- '4','unknown',
- '5','dormant',
- '6','notPresent',
- '7','lowerLayerDown'); # down due to the state of lower layer interface(s)
+ '2','down',
+ '3','testing',
+ '4','unknown',
+ '5','dormant',
+ '6','notPresent',
+ '7','lowerLayerDown'); # down due to the state of lower layer interface(s)
my $state = "UNKNOWN";
my $answer = "";
$status = process_arguments();
-use Data::Dumper;
# Just in case of problems, let's not hang Nagios
$SIG{'ALRM'} = sub {
print ("ERROR: No snmp response from $hostname (alarm)\n");
alarm($timeout);
-print Dumper(\%session_opts);
($session, $error) = Net::SNMP->session(%session_opts);
return $snmpkey;
}
-sub usage() {
- printf "\nMissing arguments!\n";
+sub usage($) {
+ print "$_[0]\n";
+ print_usage();
+ exit $ERRORS{"UNKNOWN"};
+}
+
+sub print_usage() {
printf "\n";
printf "usage: \n";
printf "check_ifoperstatus -k <IF_KEY> -H <HOSTNAME> [-C <community>]\n";
printf "This programm is licensed under the terms of the ";
printf "GNU General Public License\n(check source code for details)\n";
printf "\n\n";
- exit $ERRORS{"UNKNOWN"};
}
sub print_help() {
+ print_revision($PROGNAME, '@NP_VERSION@');
+ print_usage();
printf "check_ifoperstatus plugin for Nagios monitors operational \n";
printf "status of a particular network interface on the target host\n";
printf "\nUsage:\n";
printf "intensive. Use it sparingly or not at all. -n is used to match against\n";
printf "a much more descriptive ifName value in the IfXTable to verify that the\n";
printf "snmpkey has not changed to some other network interface after a reboot.\n\n";
- print_revision($PROGNAME, '@NP_VERSION@');
}
}
if (! utils::is_hostname($hostname)){
- usage();
- exit $ERRORS{"UNKNOWN"};
+ usage("Hostname invalid or not given");
}
unless ($snmpkey > 0 || defined $ifdescr || defined $iftype){
- printf "Either a valid snmpkey key (-k) or a ifDescr (-d) must be provided)\n";
- usage();
- exit $ERRORS{"UNKNOWN"};
+ usage("Either a valid snmpkey key (-k) or a ifDescr (-d) must be provided");
}
if (defined $name) {
# Must define a security level even though defualt is noAuthNoPriv
unless ( grep /^$seclevel$/, qw(noAuthNoPriv authNoPriv authPriv) ) {
- usage();
- exit $ERRORS{"UNKNOWN"};
+ usage("Must define a security level even though default is noAuthNoPriv");
}
# Authentication wanted
if ( $seclevel eq 'authNoPriv' || $seclevel eq 'authPriv' ) {
- unless ( $authproto eq 'MD5' || $authproto eq 'SHA1' ) {
- usage();
- exit $ERRORS{"UNKNOWN"};
+ if (defined $authproto && $authproto ne 'MD5' && $authproto ne 'SHA1') {
+ usage("Auth protocol can be either MD5 or SHA1");
}
$session_opts{'-authprotocol'} = $authproto if(defined $authproto);
if ( !defined $authpass) {
- usage();
- exit $ERRORS{"UNKNOWN"};
+ usage("Auth password/key is not defined");
}else{
if ($authpass =~ /^0x/ ) {
$session_opts{'-authkey'} = $authpass ;
# Privacy (DES encryption) wanted
if ($seclevel eq 'authPriv' ) {
if (! defined $privpass) {
- usage();
- exit $ERRORS{"UNKNOWN"};
+ usage("Privacy passphrase/key is not defined");
}else{
if ($privpass =~ /^0x/){
$session_opts{'-privkey'} = $privpass;
}
}else {
- usage();
- exit $ERRORS{'UNKNOWN'}; ;
+ usage("Security level or name is not defined");
}
} # end snmpv3