viewvc.cgi/mon-modules/fping%2Bargs.monitor

#!/usr/bin/perl -w
#
# Return a list of hosts which not reachable via ICMP echo
#
# Jim Trocki, trockij@transmeta.com
#
# This module is modified to recognize hosts in format
# username[:password]@host/database ...
# which is used my pgsql.monitor (of course, just host is used) by
# Dobrica Pavlinusic, dpavlin@rot13.org
# http://www.rot13.org/~dpavlin/sysadm.html
#
# $Id: fping.monitor 1.7 Mon, 27 Aug 2001 14:22:45 -0400 trockij $
#
#    Copyright (C) 1998, Jim Trocki
#
#    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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
use strict;

use Getopt::Std;

my %opt;
getopts ("ahr:s:t:T", \%opt);

sub usage
{
    print <<EOF;
usage: fping.monitor [-a] [-r num] [-s num] [-t num] [-T] host [host...]

    -a          only report failure if all hosts are unreachable
    -r num      retry "num" times for each host before reporting failure
    -s num      consider hosts which respond in over "num" msecs failures
    -t num      wait "num" msecs before sending retries
    -T          traceroute to each failed host. CAUTION: this may cause
                this monitor to hang for a very long time

EOF

    exit;
}

usage if ($opt{"h"});

my $TIMEOUT = $opt{"t"} || 2000;
my $RETRIES = $opt{"r"} || 3;
my $CMD = "fping -e -r $RETRIES -t $TIMEOUT";
my $START_TIME = time;
my $END_TIME;

exit 0 if (@ARGV == 0);

my @hosts;

# you can use hosts in format host:optional configuration parameters and
# this part will strip everything after hostname
foreach (@ARGV) {
        if (m/^[^:]+:?[^\@]*\@([^\/]+)\/?.*/) {
                my $host = $1;
                push @hosts,$host if (! grep /^$host$/,@hosts);
        } else {
                push @hosts,$_ if (! grep /^$_$/,@hosts);
        }
}

open (IN, "$CMD @hosts 2>&1 |") ||
        die "could not open pipe to fping: $!\n";

my @unreachable;
my @alive;
my @slow;
my @other_prob;         # details for other per-host problems
my @error;              # other errors which I'll give non-zero exit for
my @icmp;               # ICMP messages output by fping
my %addr_unknown;

my %want_host = map { $_ => 1 } @hosts; # hosts fping hasn't output yet

while (<IN>)
{
    chomp;
    if (/^(\S+).*unreachable/)
    {
        push (@unreachable, $1);
        delete $want_host{$1}
            or push @error, "unreachable host `$1' wasn't asked for";
    }

    elsif (/^(\S+) is alive \((\S+)/)
    {
        delete $want_host{$1}
            or push @error, "reachable host `$1' wasn't asked for";

        if ($opt{"s"} && $2 > $opt{"s"})
        {
            push (@slow, [$1, $2]);
        }

        else
        {
            push (@alive, [$1, $2]);
        }
    }

    elsif (/^(\S+)\s+address\s+not\s+found/)
    {
        $addr_unknown{$1} = 1;
        push @other_prob, "$1 address not found";
        push @unreachable, $1;
        delete $want_host{$1}
            or push @error, "unknown host `$1' wasn't asked for";
    }

    # ICMP Host Unreachable from 1.2.3.4 for ICMP Echo sent to 2.4.6.8
    # (among others)

    elsif (/^ICMP (.*) for ICMP Echo sent to (\S+)/)
    {
        push @icmp, $_;
    }

    else
    {
        push @error, "unidentified output from fping: [$_]";
    }
}

for my $host (keys %want_host) {
    push @other_prob, "$host not listed in fping's output";
    push @unreachable, $host;
}

close (IN);

$END_TIME = time;

my $retval = $? >> 8;

if ($retval < 3)
{
    # do nothing
}

elsif ($retval == 3)
{
    push @error, "fping: invalid cmdline arguments [$CMD @ARGV]";
}

elsif ($retval == 4)
{
    push @error, "fping: system call failure";
}

else
{
    push @error, "unknown return code ($retval) from fping";
}

if (@error) {
    print "unusual errors\n";
}
else {
    my @fail = sort @unreachable, map { $_->[0] } @slow;
    # This line is intentionally blank if there are no failures.
    print "@fail\n";
}

print "\n";
print "start time: " . localtime ($START_TIME) . "\n";
print "end time  : " . localtime ($END_TIME) . "\n";
print "duration  : " . ($END_TIME - $START_TIME) . " seconds\n";

if (@error != 0)
{
    print <<EOF;

------------------------------------------------------------------------------
unusual errors
------------------------------------------------------------------------------
EOF
    print join ("\n", @error), "\n";
}

if (@unreachable != 0)
{
    print <<EOF;

------------------------------------------------------------------------------
unreachable hosts
------------------------------------------------------------------------------
EOF
    print join ("\n", @unreachable), "\n";

    print "\nother problems:\n", join "\n", @other_prob, ''
        if @other_prob;
}

if (@icmp != 0)
{
    print <<EOF;

------------------------------------------------------------------------------
ICMP messages
------------------------------------------------------------------------------
EOF
    print join "\n", @icmp, '';
}


if (@slow != 0)
{
    print <<EOF;

------------------------------------------------------------------------------
slow hosts (response time which exceeds $opt{s}ms)
------------------------------------------------------------------------------
EOF

    foreach my $host (@slow)
    {
        printf ("%-40s %.2f ms\n", @{$host});
    }
}


if (@alive != 0)
{
    print <<EOF;

------------------------------------------------------------------------------
reachable hosts                          rtt
------------------------------------------------------------------------------
EOF
    
    for (my $i = 0; $i < @alive; $i++)
    {
        printf ("%-40s %.2f ms\n", @{$alive[$i]});
    }
}

#
# traceroute
#
if ($opt{"T"} && @unreachable)
{
    my $header_output = 0;
    foreach my $host (@unreachable)
    {
        next if $addr_unknown{$host};
        print $header_output++ ? "\n" : <<EOF;

------------------------------------------------------------------------------
traceroute to unreachable hosts
------------------------------------------------------------------------------
EOF
        system ("traceroute -w 3 $host 2>&1");
    }
}

exit 1 if @error;

#
# fail only if all hosts do not respond
#
if ($opt{"a"})
{
    exit(@alive ? 0 : 1);
}

exit 1 if (@slow != 0);

exit $retval;
1	#!/usr/bin/perl -w
2	#
3	# Return a list of hosts which not reachable via ICMP echo
4	#
5	# Jim Trocki, trockij@transmeta.com
6	#
7	# This module is modified to recognize hosts in format
8	# username[:password]@host/database ...
9	# which is used my pgsql.monitor (of course, just host is used) by
10	# Dobrica Pavlinusic, dpavlin@rot13.org
11	# http://www.rot13.org/~dpavlin/sysadm.html
12	#
13	# $Id: fping.monitor 1.7 Mon, 27 Aug 2001 14:22:45 -0400 trockij $
14	#
15	# Copyright (C) 1998, Jim Trocki
16	#
17	# This program is free software; you can redistribute it and/or modify
18	# it under the terms of the GNU General Public License as published by
19	# the Free Software Foundation; either version 2 of the License, or
20	# (at your option) any later version.
21	#
22	# This program is distributed in the hope that it will be useful,
23	# but WITHOUT ANY WARRANTY; without even the implied warranty of
24	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
25	# GNU General Public License for more details.
26	#
27	# You should have received a copy of the GNU General Public License
28	# along with this program; if not, write to the Free Software
29	# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
30	#
31	use strict;
32
33	use Getopt::Std;
34
35	my %opt;
36	getopts ("ahr:s:t:T", \%opt);
37
38	sub usage
39	{
40	print <<EOF;
41	usage: fping.monitor [-a] [-r num] [-s num] [-t num] [-T] host [host...]
42
43	-a only report failure if all hosts are unreachable
44	-r num retry "num" times for each host before reporting failure
45	-s num consider hosts which respond in over "num" msecs failures
46	-t num wait "num" msecs before sending retries
47	-T traceroute to each failed host. CAUTION: this may cause
48	this monitor to hang for a very long time
49
50	EOF
51
52	exit;
53	}
54
55	usage if ($opt{"h"});
56
57	my $TIMEOUT = $opt{"t"} \|\| 2000;
58	my $RETRIES = $opt{"r"} \|\| 3;
59	my $CMD = "fping -e -r $RETRIES -t $TIMEOUT";
60	my $START_TIME = time;
61	my $END_TIME;
62
63	exit 0 if (@ARGV == 0);
64
65	my @hosts;
66
67	# you can use hosts in format host:optional configuration parameters and
68	# this part will strip everything after hostname
69	foreach (@ARGV) {
70	if (m/^[^:]+:?[^\@]\@([^\/]+)\/?./) {
71	my $host = $1;
72	push @hosts,$host if (! grep /^$host$/,@hosts);
73	} else {
74	push @hosts,$_ if (! grep /^$_$/,@hosts);
75	}
76	}
77
78	open (IN, "$CMD @hosts 2>&1 \|") \|\|
79	die "could not open pipe to fping: $!\n";
80
81	my @unreachable;
82	my @alive;
83	my @slow;
84	my @other_prob; # details for other per-host problems
85	my @error; # other errors which I'll give non-zero exit for
86	my @icmp; # ICMP messages output by fping
87	my %addr_unknown;
88
89	my %want_host = map { $_ => 1 } @hosts; # hosts fping hasn't output yet
90
91	while (<IN>)
92	{
93	chomp;
94	if (/^(\S+).*unreachable/)
95	{
96	push (@unreachable, $1);
97	delete $want_host{$1}
98	or push @error, "unreachable host `$1' wasn't asked for";
99	}
100
101	elsif (/^(\S+) is alive \((\S+)/)
102	{
103	delete $want_host{$1}
104	or push @error, "reachable host `$1' wasn't asked for";
105
106	if ($opt{"s"} && $2 > $opt{"s"})
107	{
108	push (@slow, [$1, $2]);
109	}
110
111	else
112	{
113	push (@alive, [$1, $2]);
114	}
115	}
116
117	elsif (/^(\S+)\s+address\s+not\s+found/)
118	{
119	$addr_unknown{$1} = 1;
120	push @other_prob, "$1 address not found";
121	push @unreachable, $1;
122	delete $want_host{$1}
123	or push @error, "unknown host `$1' wasn't asked for";
124	}
125
126	# ICMP Host Unreachable from 1.2.3.4 for ICMP Echo sent to 2.4.6.8
127	# (among others)
128
129	elsif (/^ICMP (.*) for ICMP Echo sent to (\S+)/)
130	{
131	push @icmp, $_;
132	}
133
134	else
135	{
136	push @error, "unidentified output from fping: [$_]";
137	}
138	}
139
140	for my $host (keys %want_host) {
141	push @other_prob, "$host not listed in fping's output";
142	push @unreachable, $host;
143	}
144
145	close (IN);
146
147	$END_TIME = time;
148
149	my $retval = $? >> 8;
150
151	if ($retval < 3)
152	{
153	# do nothing
154	}
155
156	elsif ($retval == 3)
157	{
158	push @error, "fping: invalid cmdline arguments [$CMD @ARGV]";
159	}
160
161	elsif ($retval == 4)
162	{
163	push @error, "fping: system call failure";
164	}
165
166	else
167	{
168	push @error, "unknown return code ($retval) from fping";
169	}
170
171	if (@error) {
172	print "unusual errors\n";
173	}
174	else {
175	my @fail = sort @unreachable, map { $_->[0] } @slow;
176	# This line is intentionally blank if there are no failures.
177	print "@fail\n";
178	}
179
180	print "\n";
181	print "start time: " . localtime ($START_TIME) . "\n";
182	print "end time : " . localtime ($END_TIME) . "\n";
183	print "duration : " . ($END_TIME - $START_TIME) . " seconds\n";
184
185	if (@error != 0)
186	{
187	print <<EOF;
188
189	------------------------------------------------------------------------------
190	unusual errors
191	------------------------------------------------------------------------------
192	EOF
193	print join ("\n", @error), "\n";
194	}
195
196	if (@unreachable != 0)
197	{
198	print <<EOF;
199
200	------------------------------------------------------------------------------
201	unreachable hosts
202	------------------------------------------------------------------------------
203	EOF
204	print join ("\n", @unreachable), "\n";
205
206	print "\nother problems:\n", join "\n", @other_prob, ''
207	if @other_prob;
208	}
209
210	if (@icmp != 0)
211	{
212	print <<EOF;
213
214	------------------------------------------------------------------------------
215	ICMP messages
216	------------------------------------------------------------------------------
217	EOF
218	print join "\n", @icmp, '';
219	}
220
221
222	if (@slow != 0)
223	{
224	print <<EOF;
225
226	------------------------------------------------------------------------------
227	slow hosts (response time which exceeds $opt{s}ms)
228	------------------------------------------------------------------------------
229	EOF
230
231	foreach my $host (@slow)
232	{
233	printf ("%-40s %.2f ms\n", @{$host});
234	}
235	}
236
237
238
239	if (@alive != 0)
240	{
241	print <<EOF;
242
243	------------------------------------------------------------------------------
244	reachable hosts rtt
245	------------------------------------------------------------------------------
246	EOF
247
248	for (my $i = 0; $i < @alive; $i++)
249	{
250	printf ("%-40s %.2f ms\n", @{$alive[$i]});
251	}
252	}
253
254	#
255	# traceroute
256	#
257	if ($opt{"T"} && @unreachable)
258	{
259	my $header_output = 0;
260	foreach my $host (@unreachable)
261	{
262	next if $addr_unknown{$host};
263	print $header_output++ ? "\n" : <<EOF;
264
265	------------------------------------------------------------------------------
266	traceroute to unreachable hosts
267	------------------------------------------------------------------------------
268	EOF
269	system ("traceroute -w 3 $host 2>&1");
270	}
271	}
272
273	exit 1 if @error;
274
275	#
276	# fail only if all hosts do not respond
277	#
278	if ($opt{"a"})
279	{
280	exit(@alive ? 0 : 1);
281	}
282
283	exit 1 if (@slow != 0);
284
285	exit $retval;