Add dump_events.pl script

2012-07-11 11:10:24 -07:00 · 2012-07-11 11:10:24 -07:00 · fbfa31d2d1
parent 3375c39c02
commit fbfa31d2d1
1 changed files with 12 additions and 0 deletions
--- a/libs/esl/perl/dump_events.pl
+++ 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;
+}