Commit f179cd7a authored by Mike Hibler's avatar Mike Hibler

Old change: add timeout to telnet operations.

parent 2bfec1fa
......@@ -37,6 +37,9 @@ use IO::Pty;
use strict;
$ENV{'PATH'} = '/bin:/usr/bin:/usr/local/bin'; # Required when using system() or backticks `` in combination with the perl -T taint checks
# timeout for telnet operations, library default is 10 seconds
my $TIMEOUT = 10;
sub spawn_subprocess {
my(@cmd) = @_;
my($pid, $pty, $tty, $tty_fd);
......@@ -93,6 +96,7 @@ sub _icebox_exec ($$) {
-telnetmode => 0,
-cmd_remove_mode => 1,
-output_record_separator => "\r",
-timeout => $TIMEOUT,
-errmode => "return");
if (not defined $ssh) {
print STDERR "$host: could not create telnet object\n";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment