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

l3_vid_group: Can create, start and stop connections and groups. Not done yet.

Browse Source
This commit is contained in:
Jed Reynolds
2020-03-18 17:18:46 -07:00
parent 4cfad9cd50
commit 7219e61d91
1 changed files with 44 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
l3_vid_group.pl
View File

@@ -181,11 +181,12 @@ if ($::clear_group > 0) {
print "No test groups defined, bye."; print "No test groups defined, bye.";
exit(1); exit(1);
} }
my $re = q(^TestGroup name:\s+).$::generic_test_grp.q(\s+[\[]);
my @matches = grep {/$re/} @$ra_tg_list; my @matches = grep {/^$::generic_test_grp$/} @$ra_tg_list;
print Dumper(\@matches) if ($::debug); print Dumper(\@matches) if ($::debug);
if (@matches < 1) { if (@matches < 1) {
print "No test group matching name [$::test_grp], bye."; print "No test group matching name [$::generic_test_grp], bye.";
exit(1); exit(1);
} }
print "will clear groups $::generic_test_grp and $::l3_test_grp\n"; print "will clear groups $::generic_test_grp and $::l3_test_grp\n";
@@ -280,6 +281,7 @@ if ($::action eq "create") {
last if (@selected_list >= $::num_cx); last if (@selected_list >= $::num_cx);
} }
my @next_cmds = ();
for (my $i=0; $i < $::num_cx; $i++) { for (my $i=0; $i < $::num_cx; $i++) {
my $j = 10000 + $i; my $j = 10000 + $i;
my $cname = "_".$::cx_name . substr("$j", 1); my $cname = "_".$::cx_name . substr("$j", 1);
@@ -289,22 +291,39 @@ if ($::action eq "create") {
my $cmd = qq(/home/lanforge/scripts/lf_firemod.pl --mgr $::lfmgr_host --mgr_port $::lfmgr_port ) my $cmd = qq(/home/lanforge/scripts/lf_firemod.pl --mgr $::lfmgr_host --mgr_port $::lfmgr_port )
.qq(--action create_cx --cx_name $cname --endp_type $::endp_type ) .qq(--action create_cx --cx_name $cname --endp_type $::endp_type )
.qq(--use_ports $ports --use_speeds 0,0 --report_timer 3000); .qq(--use_ports $ports --use_speeds 0,0 --report_timer 3000);
print "CMD: $cmd\n"; #print "CMD: $cmd\n";
`$cmd`; `$cmd`;
$::utils->doAsyncCmd($::utils->fmt_cmd("add_tgcx", $::l3_test_grp, $cname)); push(@next_cmds, $::utils->fmt_cmd("add_tgcx", $::l3_test_grp, $cname));
}
sleep 1;
$::utils->doAsyncCmd("nc_show_endpoints all"); # this helps prepare us for adding next generic connections
for my $cmd (@next_cmds) {
$::utils->doCmd($cmd);
}
@next_cmds = ();
for (my $i=0; $i < $::num_cx; $i++) {
my $j = 10000 + $i;
my $cname = "_".$::cx_name . substr("$j", 1);
my $ports = join('.', 1, $::resource, $selected_list[$i]).",".$::upstream;
my $gname = $::cx_name . substr("$j", 1); my $gname = $::cx_name . substr("$j", 1);
$cmd = qq(/home/lanforge/scripts/l3_video_em.pl --mgr $::lfmgr_host --mgr_port $::lfmgr_port ) $cmd = qq(/home/lanforge/scripts/l3_video_em.pl --mgr $::lfmgr_host --mgr_port $::lfmgr_port )
.qq(--cx_name $cname --max_tx 1G --buf_size $::buffer_size ) .qq(--cx_name $cname --max_tx 1G --buf_size $::buffer_size )
.qq(--stream $::vid_mode --quiet yes ); .qq(--stream $::vid_mode --quiet yes );
my $cmd2 = qq(./lf_firemod.pl --mgr $::lfmgr_host --mgr_port $::lfmgr_port ) my $cmd2 = qq(./lf_firemod.pl --mgr $::lfmgr_host --mgr_port $::lfmgr_port )
.qq(--action create_endp --endp_name $gname --endp_type 'generic' ) .qq(--action create_endp --endp_name $gname --endp_type 'generic' )
.qq(--port_name ).$selected_list[$i].q( ) .qq(--port_name ).$selected_list[$i]
.q(--endp_cmd ").$cmd.q("); .q( --endp_cmd ").$cmd.q(");
print "CMD: $cmd2\n";
`$cmd2`; `$cmd2`;
$::utils->sleep_ms(20); $::utils->sleep_ms(20);
$::utils->doAsyncCmd($::utils->fmt_cmd("add_tgcx", $::generic_test_grp, $gname)); push(@next_cmds, $::utils->fmt_cmd("add_tgcx", $::generic_test_grp, "CX_".$gname));
}
sleep 1;
$::utils->doAsyncCmd("nc_show_endpoints all"); # this helps prepare us for adding next generic connections
for my $cmd (@next_cmds) {
$::utils->doCmd($cmd);
} }
exit 0; exit 0;
@@ -324,13 +343,25 @@ if ($::action eq "start") {
# collect all cx names in the test group and start up the # collect all cx names in the test group and start up the
# video pulser on them # video pulser on them
print "Starting connections..."; print "Starting connections...";
$::utils->doCmd("start_group $::l3_test_grp");
sleep 1;
$::utils->doCmd("start_group $::generic_test_grp"); $::utils->doCmd("start_group $::generic_test_grp");
exit 0; exit 0;
} }
# ------ ------ ------ ------ ------ ------ ------ ------ ------ ------ ------ # ------ ------ ------ ------ ------ ------ ------ ------ ------ ------ ------
if ($::action eq "stop") { if ($::action eq "stop") {
print "we will stop!"; if (!(defined $::generic_test_grp) || ("" eq $::generic_test_grp)) {
print "Please specify test group to stop: --test_grp foo; bye.";
exit(1);
}
# collect all cx names in the test group and start up the
# video pulser on them
print "Stopping connections...";
$::utils->doCmd("stop_group $::generic_test_grp");
sleep 1;
$::utils->doCmd("stop_group $::l3_test_grp");
exit 0; exit 0;
} }
# ------ ------ ------ ------ ------ ------ ------ ------ ------ ------ ------ # ------ ------ ------ ------ ------ ------ ------ ------ ------ ------ ------