package Smokeping::probes::EchoPingDiscard; =head1 301 Moved Permanently This is a Smokeping probe module. Please use the command C to view the documentation or the command C to generate the POD document. =cut sub pod_hash { return { name => < < <<'DOC', Niko Tyni DOC see_also => < DOC } } use strict; use base qw(Smokeping::probes::EchoPing); use Carp; sub proto_args { my $self = shift; my $target = shift; my @args = $self->udp_arg; return ("-d", @args); } sub test_usage { my $self = shift; my $bin = $self->{properties}{binary}; croak("Your echoping binary doesn't support DISCARD") if `$bin -d 127.0.0.1 2>&1` =~ /(not compiled|invalid option|usage)/i; $self->SUPER::test_usage; return; } sub ProbeDesc($) { return "TCP or UDP Discard pings using echoping(1)"; } 1;