Re: [Freeswitch-users] How to set callback for subclass CUSTOM event in perl with module ESL::Dispatch?

16 Mar 2014

      answer

$daemon->set_callback("custom", \&custom,'spandsp::txfaxnegociateresult');

16.03.2014 15:17, "Гришин В.С." пишет:
...
I have FreeSWITCH Version 1.2.22~32bit ( 32bit) on Centos 5.9
In directory /usr/src/freeswitch-1.2.22/libs/esl/perl  is  script 
dispatch.pl
I changed it to see CUSTOM events and spandsp::rxfaxpageresult 
subclass events, but heither CUSTOM events hor 
spandsp::rxfaxpageresult subclass  not captured.
#!/usr/bin/perl
use ESL::Dispatch;
use Data::Dumper;
my $daemon = init ESL::Dispatch({});
$| = 1;
sub worker {
  my $self = shift;
  print "I'm a worker\n";
}
sub heartbeat {
  my $self = shift;
  my $event = shift;
  print Dumper $event;
}
sub channel_hangup {
  my $self = shift;
  my $event = shift;
  print Dumper $event;
  print "DO SQL GOODIES HERE!\n";
}
sub custom {
  my $self = shift;
  my $event = shift;
  print Dumper $event;
  print "DO SQL GOODIES HERE!\n";
}
$0 = "ESL::Dispatch rocks!";
$daemon->set_worker(\&worker, 2000);
$daemon->set_callback("heartbeat", \&heartbeat);
$daemon->set_callback("channel_hangup", \&channel_hangup);
$daemon->set_callback("custom", \&custom);
$daemon->set_callback('spandsp::rxfaxpageresult', \&custom);
$daemon->run;
I need catch the evnet only subclass spandsp:: 
(https://wiki.freeswitch.org/wiki/Mod_spandsp#Events) into CUSTOM event.
Vladislav Grishin
Vladislav Grishin