kenmirrors/freeswitch
1
0
Fork 0
mirror of https://github.com/signalwire/freeswitch.git synced 2025-04-12 23:40:04 +00:00
Code Issues Projects Releases Wiki Activity

Add dump_events.pl script

Browse Source
This commit is contained in:
Michael S Collins 2012-07-11 11:10:24 -07:00
parent 3375c39c02
commit fbfa31d2d1
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
libs/esl/perl/dump_events.pl Executable file
View File

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