Utilities for getting information about a test network.

7 files changed, 51 insertions, 0 deletions

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