1 files changed, 26 insertions, 0 deletions
diff --git a/nocompile/bin/ipdist.sh b/nocompile/bin/ipdist.sh
new file mode 100755
index 0000000..ca97696
--- /dev/null
+++ b/nocompile/bin/ipdist.sh
@@ -0,0 +1,26 @@
+#!/bin/sh
+if [ "_$1" = "_" -o "_$2" = "_" ];then
+ echo "usage: $0 hostA hostB"
+ exit
+fi
+
+#constants for now.
+c=299.792458 #km/ms of light in vacuum
+iof=1.4475 #picked the higher of two from wikipedia.
+# http://en.wikipedia.org/wiki/Optical_fiber#Index_of_refraction
+
+ipA=$(gethostbyname "$1")
+ipB=$(gethostbyname "$2")
+A=$(whob "$ipA" | egrep "^Lat|^Lon" | cut '-d ' -f2 | tr '\n' ' ')
+B=$(whob "$ipB" | egrep "^Lat|^Lon" | cut '-d ' -f2 | tr '\n' ' ')
+km=$(echo "$A" "$B" \
+  | geod +ellps=clrk66 -I +units=km \
+  | cut -f3)
+ms=$(printf '%s / %s * %s\n' "$km" "$c" "$iof" | bc)
+
+echo "ipA: $ipA"
+echo "ipB: $ipB"
+echo "c: $c"
+echo "iof: $iof"
+echo "km: $km"
+echo "ms: $ms"