package Smokeping::probes::EchoPingChargen; =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 use strict; use base qw(Smokeping::probes::EchoPing); use Carp; sub pod_hash { return { name => < < < variable is not supported. DOC authors => <<'DOC', Niko Tyni DOC see_also => < DOC } } sub proto_args { return ("-c"); } sub test_usage { my $self = shift; my $bin = $self->{properties}{binary}; croak("Your echoping binary doesn't support CHARGEN") if `$bin -c 2>&1 127.0.0.1` =~ /(usage|not compiled|invalid option)/i; $self->SUPER::test_usage; return; } sub ProbeDesc($) { return "TCP Chargen pings using echoping(1)"; } sub targetvars { my $class = shift; my $h = $class->SUPER::targetvars; delete $h->{udp}; return $h; } 1;