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

lf-verify: Let it work at least somewhat.

Browse Source
This commit is contained in:
Ben Greear
2020-03-10 17:18:31 -07:00
parent b8c8f24f27
commit c14f26515d
1 changed files with 11 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
lf_verify.pl
View File

@@ -12,6 +12,11 @@
# Un-buffer output # Un-buffer output
$| = 1; $| = 1;
# use lib prepends to @INC, so put lower priority first
# This is before run-time, so cannot condition this with normal 'if' logic.
use lib '/home/lanforge/scripts';
use lib "./";
use LANforge::Endpoint; use LANforge::Endpoint;
use LANforge::Port; use LANforge::Port;
use LANforge::Utils; use LANforge::Utils;
@@ -26,14 +31,14 @@ my $shelf_num = 1;
# This sets up connections between 2 LANforge machines # This sets up connections between 2 LANforge machines
my $lf1 = 1; my $lf1 = 1;
my $lf2 = 4; my $lf2 = 2;
# Port pairs. These are the ports that should be talking to each other. # Port pairs. These are the ports that should be talking to each other.
# Ie, the third column in lf1_ports talks to the third column in lf2_ports. # Ie, the third column in lf1_ports talks to the third column in lf2_ports.
my @lf1_ports = (4, 5, 2); # ,7); my @lf1_ports = ("wlan0");
my @lf2_ports = (5, 6, 4); # ,5); my @lf2_ports = ("vap0000");
my $ports_are_connected = 1; # Connected to each other. If true, we can test some my $ports_are_connected = 0; # Connected to each other. If true, we can test some
# ethernet driver settings more precisely. # ethernet driver settings more precisely.
my $manual_check = 0; # If this is true, then user input will be asked for each time my $manual_check = 0; # If this is true, then user input will be asked for each time
@@ -75,20 +80,9 @@ my @cx_names = ();
my $fail_msg = ""; my $fail_msg = "";
# Open connection to the LANforge server.
my $t = new Net::Telnet(Prompt => '/default\@btbits\>\>/');
$t->open(Host => $lfmgr_host,
Port => $lfmgr_port,
Timeout => 10);
$t->waitfor("/btbits\>\>/");
# Configure our utils. # Configure our utils.
my $utils = new LANforge::Utils(); our $utils = new LANforge::Utils();
$utils->telnet($t); # Set our telnet object. $::utils->connect($lfmgr_host, $lfmgr_port);
$utils->cli_send_silent(0); # Do show input to CLI $utils->cli_send_silent(0); # Do show input to CLI
$utils->cli_rcv_silent(0); # Repress output from CLI ?? $utils->cli_rcv_silent(0); # Repress output from CLI ??