1 files changed, 63 insertions, 0 deletions
diff --git a/wrappers/tracepath b/wrappers/tracepath
new file mode 100755
index 0000000..c7d3770
--- /dev/null
+++ b/wrappers/tracepath
@@ -0,0 +1,63 @@
+#!/bin/sh
+#
+#   Copyright (c)  2008             Dmitry Butskoy
+#                                   <dmitry@butskoy.name>
+#   License:  GPL v2 or any later
+#
+#   See COPYING for the status of this software.
+#
+
+#
+#  Shell wrapper providing tracepath(1) or tracepath6(1) command line interface.
+#
+#  The original implementation of tracepath/tracepath6 can be obtained
+#  from the iputils package, available at http://www.skbuff.net/iputils/
+#
+
+opts="-q1 --mtu --back"
+port=44444
+prgname=$0
+length=""
+
+
+usage () {
+    echo "Usage: $prgname [-nbh] [ -l pktlen ] host[/port]" >&2
+}
+
+
+PARSED=`getopt -- 'hnbl:' "$@"`
+[ $? != 0 ] && exit 2
+
+eval set -- "$PARSED"
+
+while [ $# -gt 0 ]
+do
+    case "$1" in
+	-n)  opts="$opts $1"; shift ;;
+	-b)  shift ;;
+	-l)  length=$2; shift 2 ;;
+	-h)  usage ; exit 0 ;;
+	--)  shift; break ;;
+	*)  echo "$prgname: Internal parsing error" >&2; exit 2 ;;
+    esac
+done
+
+[ $# -eq 0 ] && {
+    usage
+    exit 2
+}
+
+host=$1
+case "$host" in
+    */*) port=${host##*/}
+	 host=${host%/*}
+	 ;;
+esac
+
+
+case "$prgname" in
+    *6)  opts="$opts -6" ;;
+esac
+
+exec traceroute $opts -p $port $host $length
+