allow custom subs to subclass/custom events

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@16952 d0543943-73ff-0310-b7d9-9358b9ac24b2

diff --git a/libs/esl/perl/ESL/Dispatch.pm b/libs/esl/perl/ESL/Dispatch.pm
index d25ca8f674d6c236856fa714f03330c1ba5cfa39..1d21934046a7b924c5200c11d191c19d30c8e59f 100644 (file)
--- a/libs/esl/perl/ESL/Dispatch.pm
+++ b/libs/esl/perl/ESL/Dispatch.pm
@@ -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");
     }