mirror of
https://github.com/signalwire/freeswitch.git
synced 2025-02-05 18:44:54 +00:00
ff1a9d091e
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@12176 d0543943-73ff-0310-b7d9-9358b9ac24b2
18 lines
238 B
Perl
18 lines
238 B
Perl
require ESL;
|
|
|
|
my $con = new ESL::ESLconnection("localhost", "8021", "ClueCon");
|
|
|
|
$con->events("plain", "all");
|
|
|
|
for(;;) {
|
|
#my $e = $con->recvEventTimed(100);
|
|
my $e = $con->recvEvent();
|
|
|
|
if ($e) {
|
|
print $e->serialize();
|
|
}
|
|
|
|
}
|
|
|
|
|