package Smokeping::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(Smokeping::probes::EchoPingHttp); use Carp; sub pod_hash { return { name => < < < < variable than the default 20, as repetitive URL fetching may be quite heavy on the server. DOC authors => <<'DOC', Niko Tyni DOC see_also => < DOC } } sub proto_args { my $self = shift; my $target = shift; my @args = $self->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;