Utils: timeouts were too short, now closer to what they were

This commit is contained in:
Jed Reynolds
2020-03-12 18:24:59 -07:00
parent c2fc59a037
commit a43733616b

View File

@@ -35,11 +35,11 @@ sub new {
sub connect {
my ($self, $host, $port) = @_;
my $t = new Net::Telnet(Prompt => '/btbits>> $/',
Timeout => 10);
Timeout => 30);
$self->{telnet} = \$t;
$t->open(Host => $host,
Port => $port,
Timeout => 2);
Timeout => 20);
$t->max_buffer_length(16 * 1024 * 1000); # 16 MB buffer
$t->waitfor($self->{prompt});
$t->print("set_flag brief 0"); # If we leave it brief, RSLT prompt is not shown.