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

creates 60000 layer3 udp connections -- kinda poor idea

Browse Source
This commit is contained in:
Jed Reynolds
2020-05-28 22:32:31 -07:00
parent cfbe26c76c
commit e49511666f
1 changed files with 55 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
sixtyk-udp.pl Normal file
View File

@@ -0,0 +1,55 @@
#!/usr/bin/perl -w
use strict;
use warnings;
use Carp;
$SIG{__DIE__} = sub { Carp::confess(@_)};
$SIG{__WARN__} = sub { Carp::confess(@_)};
$| = 1;
use lib '/home/lanforge/scripts';
use lib '../';
use lib './';
use LANforge::Utils;
package main;
my $num_connections = 60000;
my $speed = 2400; # 16000;
my $pktsz = "AUTO";
our $lfmgr_host = "localhost";
our $lfmgr_port = 4001;
our $resource = 1;
my $port_a = "r1a";
my $port_b = "r2a";
our $quiet = "yes";
our $utils = new LANforge::Utils();
$utils->connect($main::lfmgr_host, $main::lfmgr_port);
our @connections = ();
my $n = 0;
for (my $c = 1; $c <= $num_connections; $c++) {
$n = (10 * $num_connections) + $c;
push(@connections, "tcp".substr("$n", 1));
}
my @cmds = ();
foreach my $con_name (@::connections) {
@cmds = (
"add_endp ${con_name}-A 1 1 $port_a lf_udp -1 NO $speed $speed NO $pktsz $pktsz increasing 1",
"set_endp_report_timer ${con_name}-A 15000",
#"set_endp_details ${con_name}-A 8912 8912",
"add_endp ${con_name}-B 1 1 $port_b lf_udp -1 NO $speed $speed NO $pktsz $pktsz increasing 1",
"set_endp_report_timer ${con_name}-B 15000",
#"set_endp_details ${con_name}-B 8912 8912",
"add_cx ${con_name} default_tm ${con_name}-A ${con_name}-B",
"set_cx_report_timer default_tm ${con_name} 15000 cxonly",
);
foreach my $cmd (@cmds) {
$utils->doCmd($cmd);
print(".");
}
print("0");
}
print("\n");