ESL: Examples in Perl
Lets see how to use the Perl ESL implementation to connect and interact with the Event System in a FreeSWITCH server.
Display Filtered Events
A command line utility that connects to FreeSWITCH listening socket, subscribe to all events (don't do this on a busy server), and then display only selected types, further filtered on values in chosen headers.
#!/usr/bin/perl
require ESL;
my $type = ".*";
my $header = ".*";
my $value = ".*";
#$type = "CUSTOM|CHANNEL.*|MESSAGE";
#$header = "Core-UUID|Event-Subclass|Channel-State|Channel-Call-State";
#$value = "HANGUP|ACTIVE|DOWN|CS_EXECUTE";
my $con = new ESL::ESLconnection("localhost", "8021", "ClueCon");
$con->events("plain", "all");
while($con->connected()) {
my $e = $con->recvEvent();
if ($e) {
if(! ($e->getType() =~ /^($type)$/) ) {
next;
}
printf "Type: [%s]\n", $e->getType();
my $h = $e->firstHeader();
while ($h) {
if( ( $h =~ /^($header)$/) && ($e->getHeader($h) =~ ...
