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

["Гришин В.С."]

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

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.freeswitch.org/pipermail/freeswitch-users/attachments/20140316/eb801a00/attachment.html