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

dispatch examples update 

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@16923 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Brian West 2010-03-05 23:57:08 +00:00
parent f32d1b1534
commit ed2ef13eac
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,11 +17,16 @@ sub heartbeat {
print Dumper $event;
}
sub channel_hangup {
my $self = shift;
my $event = $self->{event_hash};
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", \&heartbeat);
$daemon->set_callback("channel_hangup", \&channel_hangup);
$daemon->run;