diff options
Diffstat (limited to 'lib/Smokeping/probes')
-rw-r--r-- | lib/Smokeping/probes/AnotherDNS.pm | 11 | ||||
-rw-r--r-- | lib/Smokeping/probes/Curl.pm | 6 | ||||
-rw-r--r-- | lib/Smokeping/probes/EchoPingHttp.pm | 2 | ||||
-rw-r--r-- | lib/Smokeping/probes/LDAP.pm | 20 |
4 files changed, 24 insertions, 15 deletions
diff --git a/lib/Smokeping/probes/AnotherDNS.pm b/lib/Smokeping/probes/AnotherDNS.pm index 6d5a63f..65a1bd4 100644 --- a/lib/Smokeping/probes/AnotherDNS.pm +++ b/lib/Smokeping/probes/AnotherDNS.pm @@ -16,16 +16,6 @@ to generate the POD document. use strict; -# And now, an extra ugly hack -# Reason: Net::DNS does an eval("use Win32:Registry") to -# find out if it is running on Windows. This triggers the signal -# handler in the cgi mode. - -my $tmp = $SIG{__DIE__}; -$SIG{__DIE__} = sub { }; -eval("use Net::DNS;"); -$SIG{__DIE__} = $tmp; - use base qw(Smokeping::probes::basefork); use IPC::Open3; use Symbol; @@ -33,6 +23,7 @@ use Carp; use Time::HiRes qw(sleep ualarm gettimeofday tv_interval); use IO::Socket; use IO::Select; +use Net::DNS; sub pod_hash { return { diff --git a/lib/Smokeping/probes/Curl.pm b/lib/Smokeping/probes/Curl.pm index e04e6c9..8e40067 100644 --- a/lib/Smokeping/probes/Curl.pm +++ b/lib/Smokeping/probes/Curl.pm @@ -72,8 +72,8 @@ DOC timeout => { _doc => qq{The "-m" curl(1) option. Maximum timeout in seconds.}, _re => '\d+', - _example => 10, - _default => 5, + _example => 20, + _default => 10, }, interface => { _doc => <<DOC, @@ -144,7 +144,7 @@ sub test_usage { } sub ProbeDesc($) { - return "HTTP, HTTPS, and FTP URLs using curl(1)"; + return "URLs using curl(1)"; } # other than host, count and protocol-specific args come from here diff --git a/lib/Smokeping/probes/EchoPingHttp.pm b/lib/Smokeping/probes/EchoPingHttp.pm index 6483e10..464dd12 100644 --- a/lib/Smokeping/probes/EchoPingHttp.pm +++ b/lib/Smokeping/probes/EchoPingHttp.pm @@ -110,6 +110,8 @@ sub targetvars { delete $h->{udp}; delete $h->{fill}; delete $h->{size}; + $h->{timeout}{default} = 10; + $h->{timeout}{example} = 20; return $class->_makevars($h, { url => { _doc => <<DOC, diff --git a/lib/Smokeping/probes/LDAP.pm b/lib/Smokeping/probes/LDAP.pm index 07dd7f6..2888a14 100644 --- a/lib/Smokeping/probes/LDAP.pm +++ b/lib/Smokeping/probes/LDAP.pm @@ -19,7 +19,15 @@ use Smokeping::probes::passwordchecker; use Net::LDAP; use Time::HiRes qw(gettimeofday sleep); use base qw(Smokeping::probes::passwordchecker); -use IO::Socket::SSL; + +# don't bail out if IO::Socket::SSL +# can't be loaded, just warn +# about it when doing starttls + +my $havessl = 0; + +eval "use IO::Socket::SSL;"; +$havessl = 1 unless $@; my $DEFAULTINTERVAL = 1; @@ -42,7 +50,9 @@ be specified by the variables `port' and `version'. The probe can issue the starttls command to convert the connection into encrypted mode, if so instructed by the `start_tls' variable. -It can also optionally do an authenticated LDAP bind, if the `binddn' +This requires the 'IO::Socket::SSL' perl module to be installed. + +The probe can also optionally do an authenticated LDAP bind, if the `binddn' variable is present. The password to be used can be specified by the target-specific variable `password' or in an external file. The location of this file is given in the probe-specific variable @@ -95,6 +105,12 @@ sub targetvars { }, start_tls => { _doc => "If true, encrypt the connection with the starttls command. Disabled by default.", + _sub => sub { + my $val = shift; + return "ERROR: start_tls defined but IO::Socket::SSL couldn't be loaded" + if $val and not $havessl; + return undef; + }, _example => "1", }, timeout => { |