From 372a20962b00cf3974e8530eb3ee981df11caba4 Mon Sep 17 00:00:00 2001
From: Tobias Oetiker <tobi@oetiker.ch>
Date: Fri, 6 Jul 2012 09:06:30 +0200
Subject: respect the probe timeout -- Dmitry Melekhov

---
 lib/Smokeping/probes/TelnetIOSPing.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/Smokeping')

diff --git a/lib/Smokeping/probes/TelnetIOSPing.pm b/lib/Smokeping/probes/TelnetIOSPing.pm
index 3b78581..7fe9dff 100644
--- a/lib/Smokeping/probes/TelnetIOSPing.pm
+++ b/lib/Smokeping/probes/TelnetIOSPing.pm
@@ -137,13 +137,14 @@ sub pingone ($$){
     my $pssword = $target->{vars}{iospass};
     my $bytes = $self->{properties}{packetsize};
     my $pings = $self->pings($target);
+    my $timeout = $self->{properties}{timeout};
 
     # do NOT call superclass ... the ping method MUST be overwriten
     my %upd;
     my @args = ();
 
 
-     my $telnet = Net::Telnet->new();
+     my $telnet = Net::Telnet->new( Timeout    => $timeout );
 #               These are for debugging
 #               $telnet->errmode("TIPreturn");
 #               $telnet->input_log("TIPinlog");
-- 
cgit v1.2.3-24-g4f1b