63 lines
1.4 KiB
Perl
63 lines
1.4 KiB
Perl
package Smokeping::probes::FPing6;
|
|
|
|
=head1 301 Moved Permanently
|
|
|
|
This is a Smokeping probe module. Please use the command
|
|
|
|
C<smokeping -man Smokeping::probes::FPing6>
|
|
|
|
to view the documentation or the command
|
|
|
|
C<smokeping -makepod Smokeping::probes::FPing6>
|
|
|
|
to generate the POD document.
|
|
|
|
=cut
|
|
|
|
use strict;
|
|
use base qw(Smokeping::probes::FPing);
|
|
|
|
sub pod_hash {
|
|
return {
|
|
name => <<DOC,
|
|
Smokeping::probes::FPing6 - FPing6 Probe for SmokePing
|
|
DOC
|
|
description => <<DOC,
|
|
Integrates FPing6 as a probe into smokeping. This probe is derived from
|
|
FPing; the only difference is that the target host used for checking
|
|
the fping command output is ::1 instead of localhost.
|
|
DOC
|
|
authors => <<'DOC',
|
|
Tobias Oetiker <tobi@oetiker.ch>
|
|
|
|
Niko Tyni <ntyni@iki.fi>
|
|
DOC
|
|
see_also => <<DOC
|
|
L<Smokeping::probes::FPing>
|
|
DOC
|
|
}
|
|
}
|
|
|
|
sub testhost {
|
|
return "::1";
|
|
}
|
|
|
|
sub probevars {
|
|
my $self = shift;
|
|
my $h = $self->SUPER::probevars;
|
|
$h->{binary}{_example} = "/usr/bin/fping6";
|
|
$h->{protocol}{_example} = "6";
|
|
$h->{protocol}{_default} = "6";
|
|
$h->{sourceaddress}{_re} = "[0-9A-Fa-f:.]+";
|
|
$h->{sourceaddress}{_example} = "::1";
|
|
return $h;
|
|
}
|
|
|
|
sub ProbeDesc($){
|
|
my $self = shift;
|
|
my $bytes = $self->{properties}{packetsize}||56;
|
|
return "IPv6-ICMP Echo Pings ($bytes Bytes)";
|
|
}
|
|
|
|
1;
|