From fbfa31d2d14750cc342cf981b8999c0f495afc24 Mon Sep 17 00:00:00 2001
From: Michael S Collins <msc@freeswitch.org>
Date: Wed, 11 Jul 2012 11:10:24 -0700
Subject: [PATCH] Add dump_events.pl script

---
 libs/esl/perl/dump_events.pl | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100755 libs/esl/perl/dump_events.pl

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;
+}