kenmirrors
/
freeswitch
mirror of https://github.com/signalwire/freeswitch.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

allow custom subs to subclass/custom events 

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@16952 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Brian West 2010-03-09 04:12:48 +00:00
parent da2660a23f
commit 08339b2038
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
libs/esl/perl/ESL/Dispatch.pm
View File

@ -24,7 +24,7 @@ sub init($;$) {
$self->{pass} = $args->{pass} ||= "ClueCon";
$self->{_esl} = new ESL::ESLconnection("$self->{host}", "$self->{port}", "$self->{pass}");
$self->{_callback} = undef;
$self->{_custom_subclass} = undef;
return bless($self, $class);
}
@ -38,6 +38,10 @@ sub set_callback($;$$) {
my $self = shift;
my $event = shift;
$self->{_callback}->{$event} = shift;
my $subclass = shift;
if($subclass) {
$self->{_custom_subclass} = split(/,/, $subclass);
}
}
sub render_event($;$) {
@ -75,6 +79,12 @@ sub run($;) {
for(;;) {
# Only register for events we have callbacks for.
for my $key ( keys %{$self->{_callback}} ) {
if ($key eq "CUSTOM") {
foreach $subclass (@{$self->{_custom_subclass}}) {
$self->{_esl}->events("plain", "$key $subclass");
}
next;
}
$self->{_esl}->events("plain", "$key");
}