From 085f51e6af606a8ab27b64e49f56c1908a9cb7a8 Mon Sep 17 00:00:00 2001 From: Niko Tyni Date: Tue, 15 Feb 2005 12:22:29 +0000 Subject: * CHANGES updated * FPing : added 'hostinterval' (-p), renamed 'mindelay' -> 'mininterval' (-i) * Smokeping.pm: include links to the probe manpages from smokeping_config --- lib/Smokeping/probes/FPing.pm | 35 +++++++++++++++++++++++------------ 1 file changed, 23 insertions(+), 12 deletions(-) (limited to 'lib/Smokeping/probes') diff --git a/lib/Smokeping/probes/FPing.pm b/lib/Smokeping/probes/FPing.pm index 17f649d..5f5a9cd 100644 --- a/lib/Smokeping/probes/FPing.pm +++ b/lib/Smokeping/probes/FPing.pm @@ -102,15 +102,15 @@ sub ping ($){ my $errh = gensym; # pinging nothing is pointless return unless @{$self->addresses}; - my @bytes = () ; - push @bytes, "-b$self->{properties}{packetsize}" if $self->{properties}{packetsize}; - my @timeout = (); - push @timeout, "-t" . int(1000 * $self->{properties}{timeout}) if $self->{properties}{timeout}; + my @params = () ; + push @params , "-b$self->{properties}{packetsize}" if $self->{properties}{packetsize}; + push @params, "-t" . int(1000 * $self->{properties}{timeout}) if $self->{properties}{timeout}; + push @params, "-i" . int(1000 * $self->{properties}{mininterval}); + push @params, "-p" . int(1000 * $self->{properties}{hostinterval}) if $self->{properties}{hostinterval}; my @cmd = ( - $self->binary, @bytes, + $self->binary, '-C', $self->pings, '-q','-B1','-r1', - '-i' . $self->{properties}{mindelay}, - @timeout, + @params, @{$self->addresses}); $self->do_debug("Executing @cmd"); my $pid = open3($inh,$outh,$errh, @cmd); @@ -168,14 +168,25 @@ Initial target timeout. In the default mode, this is the amount of time tha ping waits for a response to its first request. Successive timeouts are multiplied by the backoff factor. DOC }, - mindelay => { + hostinterval => { _re => '(\d*\.)?\d+', - _example => 1, - _default => 10, + _example => 1.5, + _doc => < { + _re => '(\d*\.)?\d+', + _example => .001, + _default => .01, _doc => <