freeswitch/libs/esl/perl/dump_events.pl

13 lines
270 B
Perl
Raw Normal View History

2012-07-11 18:10:24 +00:00
#!/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;
}