scottk/wlan-lanforge-scripts
1
0
Fork 0
mirror of https://github.com/Telecominfraproject/wlan-lanforge-scripts.git synced 2025-10-31 18:58:01 +00:00
Code Issues Packages Projects Releases Wiki Activity

more telnet object fixes

Browse Source
This commit is contained in:
Jed Reynolds
2020-09-09 11:08:04 -07:00
parent 204144d731
commit fd541e7526
1 changed files with 1 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
attenuator_series.pl
View File

@@ -226,16 +226,8 @@ sub attenuate {
## ##
# connect to manager # connect to manager
our $t = new Net::Telnet(Prompt => '/default\@btbits\>\>/',
Timeout => 60);
$t->open(Host => $::lfmgr_host,
Port => $::lfmgr_port,
Timeout => 10);
$t->waitfor("/btbits\>\>/");
our $utils = new LANforge::Utils(); our $utils = new LANforge::Utils();
$::utils->telnet($t); # Set our telnet object. $utils->connect($lfmgr_host, $lfmgr_port);
if ($::quiet eq "yes") { if ($::quiet eq "yes") {
$::utils->cli_send_silent(1); # Do show input to CLI $::utils->cli_send_silent(1); # Do show input to CLI
$::utils->cli_rcv_silent(1); # Repress output from CLI ?? $::utils->cli_rcv_silent(1); # Repress output from CLI ??