I am working on a freeswitch sipVicious blocker.

I would like to run it from within freeswitch.

Is there a way to get events while running within freeswitch without running a socket via ESL::ESLconnection?

#!/usr/bin/perl

use strict;

use warnings;

use ESL;

my $c = new ESL::ESLconnection(

"localhost",

"8021",

"ClueCon"

);

$c->events(

"plain",

"CHANNEL_CREATE CUSTOM sofia::pre_register"

);

while ($c->connected()) {

my $event = $c->recvEvent();

#do some stuff 

}