package probes::EchoPingHttps; =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(probes::EchoPingHttp); use Carp; sub pod_hash { return { name => < < < <<'DOC', Niko Tyni DOC see_also => <SUPER::proto_args($target); return ("-C", @args); } sub test_usage { my $self = shift; my $bin = $self->{properties}{binary}; my $response = `$bin -C -h/ 127.0.0.1 2>&1`; croak("Your echoping binary doesn't support SSL") if ($response =~ /(not compiled|invalid option|usage)/i); $self->SUPER::test_usage; return; } sub ProbeDesc($) { return "HTTPS pings using echoping(1)"; } 1;