kenmirrors
/
freeswitch
mirror of https://github.com/signalwire/freeswitch.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Dispatch will call you on register, and call you back if you hangup on next register

This commit is contained in:
Brian West 2014-04-17 20:35:57 -05:00
parent 8ce6198bf9
commit bf093e9dc1
1 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
libs/esl/perl/dispatch.pl
View File

@ -2,7 +2,11 @@
use ESL::Dispatch;
use Data::Dumper;
my $daemon = init ESL::Dispatch({});
my $calls;
# Debug Yo!
#ESL::eslSetLogLevel(7);
$| = 1;
@ -11,23 +15,34 @@ sub worker {
print "I'm a worker\n";
}
sub heartbeat {
sub register {
my $self = shift;
my $event = shift;
print Dumper $event;
my $esl = $self->{_esl};
my $contact = $event->{contact};
my $profile = $event->{'profile-name'};
my $callid = $event->{'call-id'};
return if $call->{$callid};
$contact =~ s/.*\<(.*)\>.*/{my_call_id=$callid}sofia\/$profile\/$1/;
$esl->api('bgapi', "originate $contact &echo");
print "Adding $callid to calls hash\n";
$call->{$callid} = 1;
}
sub channel_hangup {
my $self = shift;
my $event = shift;
print Dumper $event;
print "DO SQL GOODIES HERE!\n";
my $callid = $event->{variable_my_call_id};
print "Removing $callid from calls hash\n";
delete $call->{$callid};
}
$0 = "ESL::Dispatch rocks!";
$daemon->set_worker(\&worker, 2000);
$daemon->set_callback("heartbeat", \&heartbeat);
$daemon->set_callback("custom", \&register, 'sofia::register');
$daemon->set_callback("channel_hangup", \&channel_hangup);
$daemon->run;