From: Michael S Collins <msc@freeswitch.org>
Date: Wed, 11 Jul 2012 18:10:24 +0000 (-0700)
Subject: Add dump_events.pl script
X-Git-Tag: v1.2.0~183
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=fbfa31d2d14750cc342cf981b8999c0f495afc24;p=thirdparty%2Ffreeswitch.git

Add dump_events.pl script
---

diff --git a/libs/esl/perl/dump_events.pl b/libs/esl/perl/dump_events.pl
new file mode 100755
index 0000000000..7ed018e7fa
--- /dev/null
+++ b/libs/esl/perl/dump_events.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+require ESL;
+
+my $command = shift;
+my $args = join(" ", @ARGV);
+
+my $con = new ESL::ESLconnection("localhost", "8021", "ClueCon");
+$con->events("plain","all");
+while ( $con->connected() ) {
+    my $e = $con->recvEventTimed(0);
+    print $e->serialize;
+}