diff options
| author | Tobias Oetiker <tobi@oetiker.ch> | 2012-07-06 09:06:30 +0200 |
|---|---|---|
| committer | Tobias Oetiker <tobi@oetiker.ch> | 2012-07-06 09:06:30 +0200 |
| commit | 372a20962b00cf3974e8530eb3ee981df11caba4 (patch) | |
| tree | 6002cc071a8a68e6883a5844d6373bffdf9e541b | |
| parent | dde47e5461dbbe07ce5653971f98912625ea233e (diff) | |
| download | smokeping-372a20962b00cf3974e8530eb3ee981df11caba4.tar.gz smokeping-372a20962b00cf3974e8530eb3ee981df11caba4.tar.xz | |
respect the probe timeout -- Dmitry Melekhov
| -rw-r--r-- | lib/Smokeping/probes/TelnetIOSPing.pm | 3 |
1 files changed, 2 insertions, 1 deletions
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"); |