← Back to branch summary

~ubuntu-branches/ubuntu/precise/nagios-plugins/precise-proposed

« back to all changes in this revision

Viewing changes to contrib/check_appletalk.pl

  • Committer: Bazaar Package Importer
  • Author(s): Guido Trotter
  • Date: 2004-06-15 15:37:48 UTC
  • Revision ID: james.westby@ubuntu.com-20040615153748-pq7702qdzghqfcns
Tags: upstream-1.3.1.0
Import upstream version 1.3.1.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
contrib/check_appletalk.pl
 
1
#! /usr/bin/perl -wT
 
2
#
 
3
# check_atalk_ping plugin for nagios
 
4
#
 
5
# usage:
 
6
#    check_atalk_ping atalkaddress
 
7
#
 
8
# Checks if an atalkhost responds to an atalk echo
 
9
# using "aecho"
 
10
#
 
11
# initial version: 23 October 2002 by Stefan Beck, IT Software Solutions
 
12
# current status: $Revision: 1.1 $
 
13
#
 
14
# Copyright Notice: GPL
 
15
#
 
16
BEGIN {
 
17
     if ( $0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/ ) {
 
18
         $runtimedir = $1;
 
19
         $PROGNAME   = $2;
 
20
     }
 
21
     delete $ENV{'LANG'};
 
22
}
 
23
 
 
24
use strict;
 
25
use lib utils.pm;
 
26
 
 
27
use utils qw($TIMEOUT %ERRORS &print_revision &support);
 
28
use vars qw($PROGNAME);
 
29
 
 
30
$PROGNAME = "check_atalk";
 
31
 
 
32
my (
 
33
     $verbose,      $host,          $warning_avg, $warning_loss,
 
34
     $critical_avg, $critical_loss, $count,       $cmd,
 
35
     $avg,          $loss,          $line
 
36
);
 
37
my ( $opt_c, $opt_w, $opt_H, $opt_p );
 
38
$opt_c = $opt_w = $opt_p = $opt_H = '';
 
39
 
 
40
sub print_help ();
 
41
sub print_usage ();
 
42
sub help ();
 
43
sub version ();
 
44
 
 
45
# Just in case of problems, let's not hang NetSaint
 
46
$SIG{'ALRM'} = sub {
 
47
         print "Plugin Timeout\n";
 
48
         exit 2;
 
49
};
 
50
alarm($TIMEOUT);
 
51
 
 
52
delete @ENV{ 'PATH', 'IFS', 'CDPATH', 'ENV', 'BASH_ENV' };
 
53
 
 
54
use Getopt::Long;
 
55
Getopt::Long::Configure( 'bundling', 'no_ignore_case' );
 
56
GetOptions(
 
57
     "V|version"    => \&version,
 
58
     "h|help"       => \&help,
 
59
     "p|packets=i"  => \$opt_p,
 
60
     "c|critical=s" => \$opt_c,
 
61
     "w|warning=s"  => \$opt_w,
 
62
     "H|hostname=s" => \$opt_H
 
63
);
 
64
 
 
65
 
 
66
# appletalk  hostname ot address
 
67
$opt_H = shift unless ($opt_H);
 
68
unless ($opt_H) { print_usage (); exit $ERRORS{'UNKNOWN'}; }
 
69
if ( $opt_H && $opt_H =~ m/^([-a-zA-Z\.\:0-9]+)$/ ) {
 
70
     $host = $1;
 
71
}
 
72
else {
 
73
     print "$opt_H is not a valid host name\n";
 
74
     exit $ERRORS{'UNKNOWN'};
 
75
}
 
76
 
 
77
# number of packets
 
78
$opt_p = 5 unless $opt_p;
 
79
if ( $opt_p && $opt_p =~ m/^([1-9]+[0-9]*)$/ ) {
 
80
     $count = $1;
 
81
}
 
82
else {
 
83
     print "$opt_p is not a valid packet number\n";
 
84
     exit $ERRORS{'UNKNOWN'};
 
85
}
 
86
 
 
87
if ( $opt_w && $opt_w =~ m/^([1-9]+[0-9]*),([1-9][0-9]*)%$/ ) {
 
88
     $warning_avg  = $1;
 
89
     $warning_loss = $2;
 
90
}
 
91
else {
 
92
     print "$opt_w is not a valid threshold\n";
 
93
     exit $ERRORS{'UNKNOWN'};
 
94
}
 
95
 
 
96
if ( $opt_c && $opt_c =~ m/^([1-9]+[0-9]*),([1-9][0-9]*)%$/ ) {
 
97
     $critical_avg  = $1;
 
98
     $critical_loss = $2;
 
99
}
 
100
else {
 
101
     print "$opt_c is not a valid threshold\n";
 
102
     exit $ERRORS{'UNKNOWN'};
 
103
}
 
104
 
 
105
$cmd = "/usr/bin/aecho -c $count $host 2>&1 |";
 
106
print "$cmd\n" if ($verbose);
 
107
open CMD, $cmd;
 
108
 
 
109
while (<CMD>) {
 
110
     print $_ if ($verbose);
 
111
     $line = $_;
 
112
 
 
113
     # 5 packets sent, 5 packets received, 0% packet loss
 
114
     # round-trip (ms)  min/avg/max = 0/0/0
 
115
 
 
116
     if (/received, ([0-9]+)% packet loss/) {
 
117
         $loss = $1;
 
118
     }
 
119
     if (/min\/avg\/max = [0-9]+\/([0-9]+)\/[0-9]+/) {
 
120
         $avg = $1;
 
121
     }
 
122
}
 
123
 
 
124
sub print_help() {
 
125
     print_revision( $PROGNAME, '$Revision: 1.1 $ ' );
 
126
     print "Copyright (c) 2002 Stefan Beck\n";
 
127
     print "\n";
 
128
     print "Check if an atalkhost responds to an atalk echo using\n";
 
129
     print "      aecho -c <packets> <atalkhost>\n";
 
130
     print "\n";
 
131
     print_usage ();
 
132
     print "\n";
 
133
     print "-H, --hostname=HOST\n";
 
134
     print "   host to ping\n";
 
135
     print "-w, --warning=THRESHOLD\n";
 
136
     print "   warning threshold pair\n";
 
137
     print "-c, --critical=THRESHOLD\n";
 
138
     print "   critical threshold pair\n";
 
139
     print "-p, --packets=INTEGER\n";
 
140
     print "   number of ICMP ECHO packets to send (Default: 5)\n";
 
141
     print "\n";
 
142
     print
 
143
       "THRESHOLD is <rta>,<pl>% where <rta> is the round trip average 
 
144
travel\n";
 
145
     print
 
146
       "time (ms) which triggers a WARNING or CRITICAL state, and <pl> 
 
147
is the\n";
 
148
     print "percentage of packet loss to trigger an alarm state.\n";
 
149
     print "\n";
 
150
 
 
151
     support();
 
152
}
 
153
 
 
154
sub print_usage () {
 
155
     print "$PROGNAME -H atalkhost -w <wrta>,<wpl>% -c <crta>,<cpl>%\n";
 
156
     print "         [-p packets] [-t timeout] [-L]\n";
 
157
     print "$PROGNAME [-h | --help]\n";
 
158
     print "$PROGNAME [-V | --version]\n";
 
159
}
 
160
 
 
161
sub version () {
 
162
     print_revision( $PROGNAME, '$Revision: 1.1 $ ' );
 
163
     exit $ERRORS{'OK'};
 
164
}
 
165
 
 
166
sub help () {
 
167
     print_help ();
 
168
     exit $ERRORS{'OK'};
 
169
}
 
170
 
 
171
my $state  = "OK";
 
172
my $answer = undef;
 
173
 
 
174
if ( defined $loss && defined $avg ) {
 
175
     if ( $loss >= $critical_loss ) {
 
176
         $state = "CRITICAL";
 
177
     }
 
178
     elsif ( $avg >= $critical_avg ) {
 
179
         $state = "CRITICAL";
 
180
     }
 
181
     elsif ( $loss >= $warning_loss ) {
 
182
         $state = "WARNING";
 
183
     }
 
184
     elsif ( $avg >= $warning_avg ) {
 
185
         $state = "WARNING";
 
186
     }
 
187
     else {
 
188
         $state = "OK";
 
189
     }
 
190
     $answer = "Appletalk PING $state - Packet loss = $loss%, RTA = $avg 
 
191
ms\n";
 
192
}
 
193
else {
 
194
     $state  = "UNKNOWN";
 
195
     $answer = "UNKNOWN - $line";
 
196
}
 
197
print $answer;
 
198
exit $ERRORS{$state};
 
199
 
 
200
 
 
201
 
 
202
 
 
203
-------------------------------------------------------
 
204
This sf.net email is sponsored by:ThinkGeek
 
205
Welcome to geek heaven.
 
206
http://thinkgeek.com/sf
 
207
_______________________________________________
 
208
Nagios-devel mailing list
 
209
Nagios-devel@lists.sourceforge.net
 
210
https://lists.sourceforge.net/lists/listinfo/nagios-devel