From 6a82785021763d5fb076c1a2399d52738236fa2f Mon Sep 17 00:00:00 2001
From: Anthony Minessale <anthm@freeswitch.org>
Date: Wed, 30 Mar 2016 17:41:31 -0500
Subject: [PATCH] add pcap-extract.sh

---
 support-d/utils/pcap-extract.sh | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 support-d/utils/pcap-extract.sh

diff --git a/support-d/utils/pcap-extract.sh b/support-d/utils/pcap-extract.sh
new file mode 100644
index 0000000000..bd95c654ac
--- /dev/null
+++ b/support-d/utils/pcap-extract.sh
@@ -0,0 +1,16 @@
+#!/bin/bash
+
+pcap=$1
+shift
+law=$1
+shift
+
+if [ -z $law ] ; then law="mu-law" ; fi
+
+for ssrc in $(tshark -n -r $pcap -Y rtp -T fields -e rtp.ssrc -Eseparator=, | sort -u) ; do
+    rm -f $pcap.$ssrc.raw $pcap.$ssrc.wav
+    sudo tshark -n -r $pcap -Y "rtp && rtp.ssrc == $ssrc" -T fields -e rtp.payload | sed "s/:/ /g" | perl -ne 's/([0-9a-f]{2})/print chr hex $1/gie' >>  $pcap.$ssrc.raw
+    sox -t raw -r 8000 -v 4 -c 1 -e $law $pcap.$ssrc.raw $pcap.$ssrc.wav
+done
+
+