summaryrefslogtreecommitdiffstats
path: root/lib/Smokeping/probes/EchoPingHttps.pm
diff options
context:
space:
mode:
authorNiko Tyni <ntyni@iki.fi>2005-02-13 20:23:04 +0100
committerNiko Tyni <ntyni@iki.fi>2005-02-13 20:23:04 +0100
commit6d76521656e91daa160bc8019828f1b68d7aa5dc (patch)
treeaaa27615a0702942fa1606d9a5c89f0a3547467c /lib/Smokeping/probes/EchoPingHttps.pm
parent6dba1afbe4b475a7d34f5ef867b7b37291cd1484 (diff)
downloadsmokeping-6d76521656e91daa160bc8019828f1b68d7aa5dc.tar.gz
smokeping-6d76521656e91daa160bc8019828f1b68d7aa5dc.tar.xz
Moved probes, matchers and ciscoRttMonMIB modules to lib/Smokeping.
Diffstat (limited to 'lib/Smokeping/probes/EchoPingHttps.pm')
-rw-r--r--lib/Smokeping/probes/EchoPingHttps.pm65
1 files changed, 65 insertions, 0 deletions
diff --git a/lib/Smokeping/probes/EchoPingHttps.pm b/lib/Smokeping/probes/EchoPingHttps.pm
new file mode 100644
index 0000000..32e8cb0
--- /dev/null
+++ b/lib/Smokeping/probes/EchoPingHttps.pm
@@ -0,0 +1,65 @@
+package Smokeping::probes::EchoPingHttps;
+
+=head1 301 Moved Permanently
+
+This is a Smokeping probe module. Please use the command
+
+C<smokeping -man Smokeping::probes::EchoPingHttps>
+
+to view the documentation or the command
+
+C<smokeping -makepod Smokeping::probes::EchoPingHttps>
+
+to generate the POD document.
+
+=cut
+
+use strict;
+use base qw(Smokeping::probes::EchoPingHttp);
+use Carp;
+
+sub pod_hash {
+ return {
+ name => <<DOC,
+Smokeping::probes::EchoPingHttps - an echoping(1) probe for SmokePing
+DOC
+ overview => <<DOC,
+Measures HTTPS (HTTP over SSL) roundtrip times (web servers and caches) for
+SmokePing.
+DOC
+ description => <<DOC,
+As EchoPingHttp(3pm), but SSL-enabled.
+DOC
+ authors => <<'DOC',
+Niko Tyni <ntyni@iki.fi>
+DOC
+ see_also => <<DOC,
+EchoPingHttp(3pm)
+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;