From e49511666fa701be43cb6abf61611e155e754942 Mon Sep 17 00:00:00 2001
From: Jed Reynolds <jed@candelatech.com>
Date: Thu, 28 May 2020 22:32:31 -0700
Subject: [PATCH] creates 60000 layer3 udp connections -- kinda poor idea

---
 sixtyk-udp.pl | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 sixtyk-udp.pl

diff --git a/sixtyk-udp.pl b/sixtyk-udp.pl
new file mode 100644
index 00000000..dfb77d6e
--- /dev/null
+++ b/sixtyk-udp.pl
@@ -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");