add the event as an arg to the callback.

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

diff --git a/libs/esl/perl/ESL/Dispatch.pm b/libs/esl/perl/ESL/Dispatch.pm
index 54ea1e0cb765252a6be2b8148b1ebba2e04fac0a..2523d794e5cfe1945262d3ba58596d5429bb6a37 100644 (file)
--- a/libs/esl/perl/ESL/Dispatch.pm
+++ b/libs/esl/perl/ESL/Dispatch.pm
@@ -63,7 +63,7 @@ sub render_event($;$$) {
       $callback = lc($self->{event_hash}->{'event-name'});
       print "DEBUG: executing $callback callback\n";
     }
-    &{$self->{_callback}->{lc($self->{event_hash}->{'event-name'})}}($self);
+    &{$self->{_callback}->{lc($self->{event_hash}->{'event-name'})}}($self, $self->{event_hash});
   };
 }
 

diff --git a/libs/esl/perl/dispatch.pl b/libs/esl/perl/dispatch.pl
index 477596c9778ff215104edb7b199c82e7a55beba1..fd61913d832f1c6418e803d74056f783524773d8 100644 (file)
--- a/libs/esl/perl/dispatch.pl
+++ b/libs/esl/perl/dispatch.pl
@@ -13,13 +13,14 @@ sub worker {
 
 sub heartbeat {
   my $self = shift;
-  my $event = $self->{event_hash};
+  my $event = shift;
   print Dumper $event;
 }
 
 sub channel_hangup {
   my $self = shift;
-  my $event = $self->{event_hash}; 
+  my $event = shift;
+  print Dumper $event;
   print "DO SQL GOODIES HERE!\n";
 }