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

fixes broken usage of telnet object, uses new utils::connect method

Browse Source
This commit is contained in:
Logan Lipke
2020-04-10 16:50:57 -07:00
parent c911364e7b
commit 5bbb747fee
3 changed files with 3 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lf_l4_auth.pl
View File

@@ -145,20 +145,9 @@ if ( !defined *LANforge::Utils::fmt_cmd ) {
} }
# Configure our utils. # Configure our utils.
our $utils = new LANforge::Utils(); our $utils = new LANforge::Utils();
$::utils->connect($lfmgr_host, $lfmgr_port);
#-----------------------------------------------------------------------#
$::utils->telnet($::t); # Set our telnet object.
if ($::quiet eq "yes") {
$::utils->cli_send_silent(1); # Do show input to CLI
$::utils->cli_rcv_silent(1); # Repress output from CLI ??
}
else {
$::utils->cli_send_silent(0); # Do show input to CLI
$::utils->cli_rcv_silent(0); # Repress output from CLI ??
}
#-----------------------------------------------------------------------# #-----------------------------------------------------------------------#
# survey ports, complain if they are not present # # survey ports, complain if they are not present #
#-----------------------------------------------------------------------# #-----------------------------------------------------------------------#

10
lf_monitor.pl
View File

@@ -128,15 +128,7 @@ sub init {
$t->waitfor("/btbits\>\>/"); $t->waitfor("/btbits\>\>/");
$::utils = new LANforge::Utils(); $::utils = new LANforge::Utils();
$::utils->telnet($t); # Set our telnet object. $::utils->connect($lfmgr_host, $lfmgr_port);
if ($::quiet eq "yes") {
$::utils->cli_send_silent(1); # Do show input to CLI
$::utils->cli_rcv_silent(1); # Repress output from CLI ??
}
else {
$::utils->cli_send_silent(0); # Do show input to CLI
$::utils->cli_rcv_silent(0); # Repress output from CLI ??
}
} }
## ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ## ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ----

4
lf_nfs_io.pl
View File

@@ -229,9 +229,7 @@ sub init {
$conn->max_buffer_length(1024 * 1024 * 10); # 10M buffer $conn->max_buffer_length(1024 * 1024 * 10); # 10M buffer
$::utils = new LANforge::Utils(); $::utils = new LANforge::Utils();
$::utils->telnet($conn); # Set our telnet object. $::utils->connect($lfmgr_host, $lfmgr_port);
$::utils->cli_send_silent($::DEBUG ? 0 : 1); # Do show input to CLI
$::utils->cli_rcv_silent($::DEBUG ? 0 : 1); # Repress output from CLI ??
if ($::group && $::group ne "") { if ($::group && $::group ne "") {
my $ra_bounds = $::group_names{ $::group }; my $ra_bounds = $::group_names{ $::group };