Revision

16926

Author

brian

Date

2010-03-05 18:32:04 -0600 (Fri, 05 Mar 2010)

Log Message

 add the event as an arg to the callback. 

Modified Paths

• freeswitch/trunk/libs/esl/perl/ESL/Dispatch.pm
• freeswitch/trunk/libs/esl/perl/dispatch.pl

Diff

--- freeswitch/trunk/libs/esl/perl/ESL/Dispatch.pm	2010-03-06 00:25:23 UTC (rev 16925)
+++ freeswitch/trunk/libs/esl/perl/ESL/Dispatch.pm	2010-03-06 00:32:04 UTC (rev 16926)
@@ -63,7 +63,7 @@
       $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});
   };
 }
 

--- freeswitch/trunk/libs/esl/perl/dispatch.pl	2010-03-06 00:25:23 UTC (rev 16925)
+++ freeswitch/trunk/libs/esl/perl/dispatch.pl	2010-03-06 00:32:04 UTC (rev 16926)
@@ -13,13 +13,14 @@
 
 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";
 }