mirror of
https://github.com/signalwire/freeswitch.git
synced 2025-03-22 07:22:11 +00:00
10ce6f6bbd
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@12074 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();
|
|
}
|
|
|
|
}
|
|
|
|
|