commit

debian/smokeping/usr/share/perl5/Smokeping/probes/FPing6.pm

@@ -0,0 +1,62 @@
+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;