From 038fc07c26122bd65e07c079107abf8ab34f6278 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Sun, 12 Jan 2020 04:39:43 -0500
Subject: Utilities for getting information about a test network.

---
 dht/vnet/core-gettcp.sh | 22 ++++++++++++++++++++++
 dht/vnet/core-kill.sh   |  2 ++
 dht/vnet/core-top.sh    |  2 ++
 dht/vnet/getnodes.sh    |  2 ++
 dht/vnet/gettcp.sh      |  7 +++++++
 dht/vnet/load-nodes.sh  |  8 ++++++++
 dht/vnet/load-tcp.sh    |  8 ++++++++
 7 files changed, 51 insertions(+)
 create mode 100755 dht/vnet/core-gettcp.sh
 create mode 100755 dht/vnet/core-kill.sh
 create mode 100755 dht/vnet/core-top.sh
 create mode 100755 dht/vnet/getnodes.sh
 create mode 100755 dht/vnet/gettcp.sh
 create mode 100755 dht/vnet/load-nodes.sh
 create mode 100755 dht/vnet/load-tcp.sh

diff --git a/dht/vnet/core-gettcp.sh b/dht/vnet/core-gettcp.sh
new file mode 100755
index 00000000..12204b84
--- /dev/null
+++ b/dht/vnet/core-gettcp.sh
@@ -0,0 +1,22 @@
+#!/usr/bin/awk --exec
+BEGIN {
+	for( ARGC=1; ARGC<17; ARGC++ ) {
+		ARGV[ARGC] = "ve" sprintf("%X",ARGC - 1) "/PUBLIC_ID.txt";
+	}
+}
+
+BEGINFILE {
+	boot_key  = "";
+	boot_port = "";
+	boot_ip   = "";
+	boot_tcp  = "";
+}
+
+{
+	if     ( boot_key  == ""                   ) boot_key=$0;
+	else if( boot_port == "" && $1  == "Port:" ) boot_port=$2;
+	else if( boot_ip   == "" && $1  == "IP:"   ) boot_ip=$2;
+	else if( boot_tcp  == "" && $1  == "TCP:"  ) boot_tcp=$2;
+}
+
+ENDFILE { print( boot_key "@" boot_ip ":" boot_port "{tcp:" boot_tcp "}" ); }
diff --git a/dht/vnet/core-kill.sh b/dht/vnet/core-kill.sh
new file mode 100755
index 00000000..c807b53a
--- /dev/null
+++ b/dht/vnet/core-kill.sh
@@ -0,0 +1,2 @@
+#!/bin/sh
+for p in $(cat ???/pid); do kill $p; done
diff --git a/dht/vnet/core-top.sh b/dht/vnet/core-top.sh
new file mode 100755
index 00000000..fe5d34dd
--- /dev/null
+++ b/dht/vnet/core-top.sh
@@ -0,0 +1,2 @@
+#!/bin/sh
+top $(sed 's/^/-p /' ve?/pid) "$@"
diff --git a/dht/vnet/getnodes.sh b/dht/vnet/getnodes.sh
new file mode 100755
index 00000000..b435883d
--- /dev/null
+++ b/dht/vnet/getnodes.sh
@@ -0,0 +1,2 @@
+#!/bin/sh
+./everywhere.sh ../dht ls | grep node-id | sed 's/ *node-id/ping/' > nodes.txt
diff --git a/dht/vnet/gettcp.sh b/dht/vnet/gettcp.sh
new file mode 100755
index 00000000..7e9a9212
--- /dev/null
+++ b/dht/vnet/gettcp.sh
@@ -0,0 +1,7 @@
+#!/bin/bash
+sudo netstat -lnp | grep 'tcp.*dht' | \
+  awk '{ split($4,a,":"); port=a[length(a)]; pid=int($7) ; system ("readlink /proc/"  pid  "/cwd | sed s,$,\\ {tcp:" port "},")  }' | \
+  sort | \
+  while read path port; do
+	  ( cd $path ; ../dht ls | grep node-id |sed 's/ *node-id//; s/$/'$port/ )
+  done > ports.txt
diff --git a/dht/vnet/load-nodes.sh b/dht/vnet/load-nodes.sh
new file mode 100755
index 00000000..3c247c4c
--- /dev/null
+++ b/dht/vnet/load-nodes.sh
@@ -0,0 +1,8 @@
+#!/bin/sh
+cmd="$@"
+for ep in ep?
+do
+    ( cd $ep
+      ../dht < ../nodes.txt
+      )
+done
diff --git a/dht/vnet/load-tcp.sh b/dht/vnet/load-tcp.sh
new file mode 100755
index 00000000..9fd3b553
--- /dev/null
+++ b/dht/vnet/load-tcp.sh
@@ -0,0 +1,8 @@
+#!/bin/sh
+cmd="$@"
+for ep in ep?
+do
+    ( cd $ep
+      ( echo "toxtcp" ; sed s,^,ping, ../ports.txt ) | ../dht
+      )
+done
-- 
cgit v1.2.3